Sysutils light?

[Luckie]

Zitat von Neutral General:

Da gibts z.B. auch noch SysErrorMessage. Sehr nützlich. Allerdings kann man die nicht mal grad so nachprogrammieren.

SysErrorMessage ist auch nur eine Kapselung der API-Funktion FormatMessageW:

Delphi-Quellcode:

function SysErrorMessage(ErrorCode: Integer): WideString;

  function MAKELANGID(usPrimaryLanguage, usSubLanguage: BYTE): WORD;
  begin
    Result := (usSubLanguage shl 10) or usPrimaryLanguage;
  end;
var
  MsgBuffer         : array[0..2047] of WideChar;
  len               : Integer;
begin
  len := FormatMessageW(FORMAT_MESSAGE_FROM_SYSTEM, nil, ErrorCode, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
    MsgBuffer, sizeof(MsgBuffer), nil);
  if len > 0 then
  begin
    SetString(Result, MsgBuffer, len);
  end
  else
    Result := '';
end;

Ansonsten habe ich noch auf meiner Homepage eine abgespeckte SysUtils.pas -> MpuTools.pas. Da sind aber auf der anderen Seite auch wieder viele Funktionen drin, die Borland in andere Units gepackt hatte, wie die Dielaoge zum auswählen einer Datei zum Beispiel.