Что-то не пойму никак.
Хочу получить описание ошибки после выполнения функции CreateFile.
В хелпе написано, что надо использовать FormatMessage.
Делаю так:

Код

var  fm: DWORD;  lpMsgBuf: string;  SetLength(lpMsgBuf, 100);  fm:= FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER + FORMAT_MESSAGE_FROM_SYSTEM,        nil, GetLastError, LANG_SYSTEM_DEFAULT, PChar(lpMsgBuf), 100, nil);

Получаю fm = 25
А в lpMsgBuf = p>|.....

Без строки SetLength(lpMsgBuf, 100); вылетает эксепшн "Access violation in kernel32.dll".

Может что-нибудь подскажете ?

Цитата

Без строки SetLength(lpMsgBuf, 100); вылетает эксепшн "Access violation in kernel32.dll".

Ага. Правильно.

Код

var fm: DWORD; lpMsgBuf: string; lpMsgArrBuf:Array[0..100] of Char; fm:= FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER + FORMAT_MESSAGE_FROM_SYSTEM,       nil, GetLastError, LANG_SYSTEM_DEFAULT, lpMsgBufArr, 100, nil); lpMsgBuf:=PChar(@lpMsgBufArr);

FORMAT_MESSAGE_ALLOCATE_BUFFER

Specifies that the lpBuffer parameter is a pointer to a PVOID pointer, and that the nSize parameter specifies the minimum number of TCHARs to allocate for an output message buffer. The function allocates a buffer large enough to hold the formatted message, and places a pointer to the allocated buffer at the address specified by lpBuffer. The caller should use the LocalFree function to free the buffer when it is no longer needed.


var
fm: Integer;
lpMsgBuf: PChar;

begin
fm := FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER + FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError, LANG_SYSTEM_DEFAULT, @lpMsgBuf, 100, nil);
MessageBox(Handle, lpMsgBuf, nil, MB_OK);
LocalFree(Cardinal(lpMsgBuf));
end;

Это сообщение отредактировал(а) cully - 11.2.2003, 06:30

еще правельнее будет:
fm := FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER + FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError, LANG_SYSTEM_DEFAULT, @lpMsgBuf, 0, nil);

Цитата(cully @ 10.2.2003, 22:40)

еще правельнее будет: fm := FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER + FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError, LANG_SYSTEM_DEFAULT, @lpMsgBuf, 0, nil);

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