构造SEH来实现跳转-转载

下面的代码出自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+$]
  POP  FS:[EAX]
  POP  EAX
  POPAD
end;

//P As TProcedure /Function xxx : integer/Boolean/More
Function ExceptDoProcedure(P : Pointer) : integer;assembler;
asm
  PUSH EAX                    //被执行函数
  PUSHAD                      //保护现场
  XOR  EAX          , EAX
  PUSH Offset ExceptProc      //异常处理函数
  PUSH FS:[EAX]               //SEH结构
  MOV  FS:[EAX]     , ESP
  MOV  FS:[EAX+$] , ESP
  MOV  DS:[EAX]     , EAX;    //产生异常，触发SEH执行,进而转入P中执行
end;

//调用时
Function DoIt : integer;
begin
  ShowMessage('OK');
  Result := $
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Tag := ExceptDoProcedure(@DoIt);
  Caption := IntToHex(Tag , );
end;