Thema: Delphi GetLastError Liste?

Einzelnen Beitrag anzeigen

Benutzerbild von Sprint
Sprint

Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
 
Delphi 5 Professional
 
#3

Re: GetLastError Liste?

  Alt 2. Dez 2004, 01:38
@daywalker299:

Zitat von Muetze1:
Wenn nicht, die MSDN hat eine komplette Liste: System Error Codes
Und wenn dir die Liste von Microsoft zu unvollständig erscheinen mag, kannst du dir auch deine eigene erstellen.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  J: Cardinal;
  S: String;
begin

  with TStringList.Create do
  begin
    try
      J := 0;
      while J < High(Cardinal) do
      begin
        S := SysErrorMessage(J);
        if Length(S) > 0 then
          Add(IntToStr(J) + ' - ' + S);
        Inc(J);
      end;
      SaveToFile('C:\WinAPI Fehlercode.txt');
    finally
      Free;
    end;
  end;

end;
Ciao, Sprint.

"I don't know what I am doing, but I am sure I am having fun!"
  Mit Zitat antworten Zitat