本文整理自网络，侵删。
原理：设置异常捕获，然后将需要HOOK的代码直接修改成INT3即可用的一个关键的API：SetUnhandledExceptionFilter
//异常处理函数 function MyInt3(CONST P:EXCEPTION_POINTERS):Integer;cdecl; var add:Pointer; begin OutputDebugString(PChar(inttohex(P.ExceptionRecord.ExceptionCode,2))); Add:=p.ExceptionRecord.ExceptionAddress; OutputDebugString(PChar(Format('Address:%x ',[Cardinal(Add)]))); inc(p.ContextRecord.Eip); result:=-1; end; 执行 SetUnhandledExceptionFilter(@MyInt3);
为了防止DELPHI自身捕获到异常，先要对其进行清除
asm @Loop: mov eax,fs:[0] cmp dword ptr [eax],$FFFFFFFF je @SEHCleared mov eax,[eax] mov fs:[0],eax jmp @Loop @SEHCleared: end;
来源：http://blog.csdn.net/yoie01/article/details/8702257 相关阅读 >>
Delphi datetimetogmt gmt时间与tdatetime转换
更多相关阅读请进入《Delphi》频道 >>
