ok, geb mich geschlagen ... schön das mal geändert zu wissen, es es dann die ganze Zeit falsch im Kopf
Delphi-Quellcode:
Var E1, E2: LongWord;
begin
SetLastError(123);
E1 := GetLastError;
E2 := GetLastError;
SetLastError(123);
MessageDlg(Format('%d %d', [E1, E2]), mtInformation, [mbOK], 0);
MessageDlg(IntToStr(GetLastError), mtInformation, [mbOK], 0);