获取EIP（汇编语言直接给Delphi变量赋值）

var
  EIP: Cardinal;
 
procedure GetEIP(); stdcall;
asm
  pop eax;
  mov EIP,eax;
  push eax;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetEIP();
  ShowMessage('Button1Click, 0x' + IntToHex(EIP, 8));
end;

记录一下。由C++转成Delphi的获取EIP代码。

http://www.cnblogs.com/yangyxd/p/3930950.html