Delphi中利用SEH屏蔽退出时的Runtime Error

Delphi写的程序，如果在单元的finalization里出现了一些异常操作会导致退出时抛出Runtime Error ，规范的处理办法当然是解决这些异常，但是有些特殊的情况下，比如用了很多的第三方控件，实在没办法解决问题时，只有把他屏蔽掉，这样给客户的时候就不至于看到满天的Runtime Error 了。 做法其实很简单，就是在 END.之前手工调用Halt释放，并且将Halt抛出的错误屏蔽掉，这样做和正常的DELPHI释放过程没有任何区别，因为End.编译后其实就是一句话 Call Halt0，只是VCL自己没有屏蔽Halt0里抛出的错误，而是跳出个Runtime Error 来; 　　首先就是位置的问题，如果是EXE的话，直接在END.之前就行了，如果是Dll的话就麻烦点，需要挂上DllProc，当wReason = DLL_PROCESS_DETACH时处理。 然后就是如何屏蔽错误的问题了，第一个最容易想到的做法就是直接 Try 　halt except end; 　　但是这样是不行的，因为try…except end捕获的错误都会放到System单元的_HandleOnException中处理，函数检查错误类型是否是DelphiException，如果不是就不处理，这个时候就会被DELPHI的顶层异常机制捕获，并抛出Runtime error，halt里抛出来的错误恰恰就是非DelphiException，代码如下： 　procedure _HandleOnException; … 　　CMP [EAX].TExceptionRecord.ExceptionCode,cDelphiException 　　JE @@DelphiException 　　CLD 　　CALL _FpuInit 　　MOV EDX,ExceptClsProc 　　TEST EDX,EDX 　　JE @@exit 　　 CALL EDX 　　TEST EAX,EAX 　　JNE @@common 　　JMP @@exit … End; 所以，需要借助SHE机制来处理这个问题，代码如下： 　　asm 　　 //挂上SEH xor edx, edx 　　 push ebp 　　push OFFSET @@safecode 　　push dword ptr fs:[edx] 　　mov fs:[edx],esp 　　//调用Halt0 　　call Halt0 　　jmp @@exit; 　　@@safecode: 　　 //如果出现异常继续调用Halt0退出 call Halt0; 　　@@exit: 　end; 这个做法的好处就是，不会对DELPHI正常释放过程产生影响，所有的释放操作都是和VCL一致的，只是不会把错误显示出来。 以下是完整代码： 一、EXE的情况，把代码放在工程文件 procedure Halt0; begin Halt; end; begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; asm 　xor edx, edx 　push ebp 　push OFFSET @@safecode 　 push dword ptr fs:[edx] 　mov fs:[edx],esp 　 call Halt0 　jmp @@exit; 　@@safecode: 　　call Halt0; 　 @@exit: end; end.

二、DLL的情况，把代码放在工程文件里 procedure Halt0; begin Halt; end; var OldProc: Pointer; procedure DLLEntryPoint(dwReason: DWord); begin if (dwReason = DLL_PROCESS_DETACH) Then Begin 　asm 　　xor edx, edx 　　push ebp 　　push OFFSET @@safecode 　　push dword ptr fs:[edx] 　　mov fs:[edx],esp 　　call Halt0 　　jmp @@exit; 　　 @@safecode: 　　call Halt0; 　　@@exit: 　end; end; end; begin DllProc := @DLLEntryPoint; DllProcEX := @DLLEntryPoint; end. 测试这段代码可以，自己在某个单元的finalization段里抛出一个异常，看看加上代码和不加代码的效果有何不同。