Использование FormatMessage

← →
RDS © (2006-05-03 11:39) [0]

Нужно получить не код ошибки, а расшифровку этого кода. Делаю следующим образом :
err:dword; perr:pchar; ................ err:=GetLastError; //showmessage(IntToStr(err)); formatmessage(FORMAT_MESSAGE_FROM_SYSTEM, nil,err,LANG_ENGLISH,perr,1024,nil); showmessage(widestring(perr));
В сообщении получаю набор крокозябров. Подскажите, где может быть ошибка.
Спасибо

← →
Плохиш © (2006-05-03 11:58) [1]

Память для perr распределяешь?

← →
RDS © (2006-05-03 12:27) [2]

Я так понял, что FormatMessage это сам делает. Получается нужно сделать getmem(perr,1024), так?

← →
fellix (2006-05-03 12:31) [3]

> RDS © (03.05.06 11:39)

1. Создай буфер perr^ или используй FORMAT_MESSAGE_ALLOCATE_BUFFER и LocalFree.
2. Зачем там widestring?

← →
Плохиш © (2006-05-03 12:31) [4]

lpBuffer Points to a buffer for the formatted (and null-terminated) message. If dwFlags includes FORMAT_MESSAGE_ALLOCATE_BUFFER, the function allocates a buffer using the LocalAlloc function, and places the address of the buffer at the address specified in lpBuffer.

> Получается нужно сделать getmem(perr,1024), так?

да или добавить "or FORMAT_MESSAGE_ALLOCATE_BUFFER" в первый параметр.

> RDS

Посмотрите реализацию SysUtils.SysErrorMessage.

Спасибо, все работает

Использование FormatMessage Найти похожие ветки