参考资料--delphiexception机制浅探.docVIP

Delphi 的 Exception 机制浅探 savetime2k@ 2004.4.24 目 录 =============================================================================== ⊙ =============================================================================== 本文排版格式为： 正文由窗口自动换行；所有代码以 80 字符为边界；中英文字符以空格符分隔。 (作者保留对本文的所有权利，未经作者同意请勿在在任何公共媒体转载。) =============================================================================== ⊙ 问题 =============================================================================== EXCEPTION_DISPOSITION __cdecl _except_handler ( struct _EXCEPTION_RECORD *ExceptionRecord, void * EstablisherFrame, struct _CONTEXT *ContextRecord, void * DispatcherContext ); /* * Exception disposition return values. */ typedef enum _EXCEPTION_DISPOSITION { ExceptionContinueExecution, ExceptionContinueSearch, ExceptionNestedException, ExceptionCollidedUnwind } EXCEPTION_DISPOSITION; Exception 是线程相关的 {$IFDEF PIC} {$IFDEF PC_MAPPED_EXCEPTIONS} RaiseExceptionProc := @RaiseException; 被执行了两次 _StartExe，initialization中都有 正 文 =============================================================================== ⊙ 数据结构 =============================================================================== cContinuable = 0; cNonContinuable = 1; cUnwinding = 2; cUnwindingForExit = 4; cUnwindInProgress = cUnwinding or cUnwindingForExit; cDelphiException = $0EEDFADE; cDelphiReRaise = $0EEDFADF; cDelphiExcept = $0EEDFAE0; cDelphiFinally = $0EEDFAE1; cDelphiTerminate = $0EEDFAE2; cDelphiUnhandled = $0EEDFAE3; cNonDelphiException = $0EEDFAE4; cDelphiExitFinally = $0EEDFAE5; cCppException = $0EEFFACE; { used by BCB } EXCEPTION_CONTINUE_SEARCH = 0; EXCEPTION_EXECUTE_HANDLER = 1; EXCEPTION_CONTINUE_EXECUTION = -1; JmpInstruction = packed record opCode: Byte; distance: Longint; end; TExcDescEntry = record vTable: Pointer; handler: Pointer; end; PExcDesc = ^TExcDesc; TExcDesc = pa