Если это ваш первый визит, рекомендуем почитать справку по форуму. Для размещения своих сообщений необходимо зарегистрироваться. Для просмотра сообщений выберите раздел. |
FormatMessage - что не так делаю? |
Философия, технологии, алгоритмы! |
|
Опции темы |
21.12.2005, 23:43 | #1 |
Покинул БВФ
Сообщений: 469
Регистрация: 28.06.2005
Не в сети |
FormatMessage - что не так делаю?
ПРивет всем. Получаю код ошибки при помощи GetLastError и пытаюсь получить строку с текстом. Код такой
var h:Cardinal; dw1,dw2:dword; dwret:dword; MyMessage2:PChar; a:dword; LPDWordWord; begin a:=1769612;//Get_Stats DW1:=0; if Not DeviceIOControl(h,a,addr(dw1),4,addr(dw2),4,dwret, nil) then begin LPDWORD:=GetLastError; FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_IGNORE_INSERTS, 0, LPDWord,// 0, // Default language MyMessage2, 0, nil ); ShowMessage(String(MyMessage2)); end; На строке с ShowMessage выскакивает AV. Сабж. |