Советы по Delphi

         

Как получить текстовое описание ошибки, полученной GetLastError?


Своим опытом делится Олег Кулабухов:

Используйте SysErrorMessage.

    procedure TForm1.Button1Click(Sender: TObject);
begin
{Cause a Windows system error message to be logged}
ShowMessage(IntToStr(lStrLen(nil)));
ShowMessage(SysErrorMessage(GetLastError));
end;

[001857]



Содержание раздела