Отображение отформатированных сообщений об ошибках

Delphi , Синтаксис , Ошибки и Исключения

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

 function GetLastErrorText(): string;
 var
   dwSize: DWORD;
   lpszTemp: PAnsiChar;
 begin
   dwSize := 512;
   lpszTemp := nil;
   try
     GetMem(lpszTemp, dwSize);
     FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_ARGUMENT_ARRAY,
       nil,
       GetLastError(),
       LANG_NEUTRAL,
       lpszTemp,
       dwSize,
       nil)
   finally
     Result := lpszTemp;
     FreeMem(lpszTemp)
   end
 end;

Статья Отображение отформатированных сообщений об ошибках раздела Синтаксис Ошибки и Исключения может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Ошибки и Исключения ::