Delphi Getlasterror Текст Ошибки

Функция GetLastError возвращает код последней возникшей в системе ошибки, которая устанавливается при вызове функций API Windows. Для того, чтобы получить текст ошибки, соответствующий коду, в Delphi можно воспользоваться функцией FormatMessage из модуля Windows.

Данная функция имеет следующий прототип:

function FormatMessage(dwFlags: DWORD; lpSource: Pointer; dwMessageId: DWORD; dwLanguageId: DWORD; lpBuffer: PChar; nSize: DWORD; Arguments: Pointer): DWORD; stdcall;

Если функции FormatMessage передать параметры GetLastError в качестве идентификатора ошибки и LPCTSTR, то она вернет текст ошибки в локализованном формате.

Ниже приведен пример кода, который получает последнюю ошибку в системе и выводит ее текст в диалоговое окно:

var  LastError: DWORD;  ErrorMessage: array[0..MAX_PATH] of Char;begin  LastError := GetLastError;  if LastError <> ERROR_SUCCESS then  begin    FormatMessage(      FORMAT_MESSAGE_FROM_SYSTEM,      nil,      LastError,      LANG_USER_DEFAULT,      ErrorMessage,      MAX_PATH,      nil    );    ShowMessage(ErrorMessage);  end;end;

В данном примере мы используем функцию GetLastError, чтобы получить код последней ошибки, а затем передаем его в функцию FormatMessage, чтобы получить текст ошибки. Полученный текст выводится в диалоговое окно функцией ShowMessage.