function TranslateError(WinError: cardinal): string;
function MAKELANGID(P,S: cardinal): cardinal;
begin
Result:=(word(S) shl 10) or word(P);
end;
var lpMsgBuf: cardinal;
begin
lpMsgBuf:=0;
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM,
nil, WinError, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
@lpMsgBuf, 0, nil);
Result:=PChar(lpMsgBuf);
LocalFree(lpMsgBuf);
end;
коды ошибок
при проверки всяких системных ф-ий они выдают коды разных ошибок....
никто не знает где мона надыбать расшифровки шестнадцатиричных кодов????
яндекс с гуглом не знают..
особо пока интересуют 2 ошибки $800401F0, $8000FFFF
никто не знает где мона надыбать расшифровки шестнадцатиричных кодов????
яндекс с гуглом не знают..
особо пока интересуют 2 ошибки $800401F0, $8000FFFF
Полезная функция. Переводит коды ошибок Виндовса на дефолтный язык системы (если ситема шпарит по русски - то будет русский), полученных из GetLastError (я портировал этот код из примера на С++)
Код:
а можно использовать такую архетиктуру....
Код:
try
StrToInt('ля-ля-ля'); //место предпологаемой ошибки
except
on E: Exception do MessageBox(Handle, PChar(E.Message), 'Ошибка', MB_ICONERROR + MB_OK);
end;
StrToInt('ля-ля-ля'); //место предпологаемой ошибки
except
on E: Exception do MessageBox(Handle, PChar(E.Message), 'Ошибка', MB_ICONERROR + MB_OK);
end;