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

时间：2015-12-02 06:39:21 收藏：0 阅读：414

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

原文：http://www.cnblogs.com/findumars/p/5011847.html