使用INT3进行HOOK处理

原理：设置异常捕获，然后将需要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;