Как получить описание кода, полученного GetLastError?
Falk0ner, вс, 06/07/2008 - 15:34.
Функция RTL SysErrorMessage(GetLastError).
procedure TForm1.Button1Click(Sender: TObject);
begin
{Cause a Windows system error message to be logged}
ShowMessage(IntToStr(lStrLen(nil)));
ShowMessage(SysErrorMessage(GetLastError));
end;
begin
{Cause a Windows system error message to be logged}
ShowMessage(IntToStr(lStrLen(nil)));
ShowMessage(SysErrorMessage(GetLastError));
end;
Отправить комментарий