initialization
if ModuleIsCpp then HexDisplayPrefix := '0x';
InitExceptions;
{$IFDEF LINUX}
SafeCallErrorProc := @SafeCallError;
ExitProcessProc := PropagateSignals;
CheckLocale;
{$ENDIF}
{$IFDEF MSWINDOWS}
InitPlatformId;
InitDriveSpacePtr;
{$ENDIF}
GetFormatSettings; { Win implementation uses platform id }
Перехват ошибок средсвами WinApi
А вот в теперь приходится писать без ошибок =) Однако очХочется....
Ну, во-первых, покури хелп по функция GetLastError, FormatMessage.
Код:
Я так понял тут где то СallBack функция устанавливается (из того что я понял про SEH). Буду разбирать дальше
Хе - хе Onni а ты думал перехватывать ошибки просто, как и все что делается на Delphi?! Либо учи С++, либо учись делать ассемблерные вставки на Delphi... А материальчик прочти по внимательней...
Вставки я делать умею, а "материальчик" я пока читаю, так что если еще что пойму - обязательно отпишусь - тема довольна полезная.
http://fasm.moy.su
Главная мысль сделать рассылку, по программированию.
Значит немного ассемблер знаешь?! Если хочешь можешь помочь мне:
Главная мысль сделать рассылку, по программированию.
Цитата: 0nni
...можно легко перехватить, и продолжить выполнение программы, а мона и не перехватывать...
Почитай о функции SetUnhandledExceptionFilter