下面的代码出自CSDN Delphi版的一高人(kiboisme 蓝色光芒) procedure ExceptProc{ExceptionRecord,SEH,Context,DispatcherContext};assembler; asm MOV EAX , [ESP+] MOV EAX.TContext.Eip , Offset @@ExceptDone MOV EAX , RET $; @@ExceptDone: XOR EAX , EAX MOV ESP , FS:[EAX+$] PO…