Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
Delphi 5 Professional
|
Re: GetLastError Liste?
2. Dez 2004, 01:38
@daywalker299:
Zitat von Muetze1:
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!"
|