Cross platform FormatMessage function

[Leledumbo]

Is there any cross platform alternative to WINAPI's FormatMessage? I have an IDE project with embedded terminal (made with TCmdBox) with each command is processed by TProcess. Using try-except block where on except I write the exception message, I got (for instance):
Failed to execute XXX : 2
With FormatMessage, I can make it to:
The system cannot find the file specified.
Much clearer, isn't it?
But I don't seem to find the same function for other OSes.

[Paul Ishenin]

Have you seen rtl Format function?

[Leledumbo]

rtl? Isn't that SysUtils function?

[Paul Ishenin]

yes

[Leledumbo]

EProcess is raised with that function as the message formatter, I just simply parse the error code after the colon and pass it to FormatMessage.
The error code is system dependent (CMIIW, but does Linux defines 2 as "File not found"?), every OS has its own code for particular error. If only LCL/FCL/RTL has this kind of function, I mean something like:

Code: [Select]


function OSErrorMsg(const ErrorCode: Integer): String;
var
  Buf: PChar;
begin
{$ifdef windows}
FormatMessage(
  ...
)
Result:=StrPas(Buf);
{$else}
...
{$endif}
end;