Question

Delphi 获取函数的地址

procedure hanshuA;
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
p:^DWORD;
i:DWORD;
begin
p:=@hanshuA;
i:=p^;
ShowMessage(IntToHex(i,4)); //输出的函数地址不正确
end;
------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
p:^DWORD;
i:DWORD;
begin
p:=@hanshuA;
asm
mov eax,p
mov i,eax
end;
ShowMessage(IntToHex(i,4)); //这样写就对了 ... 不用汇编 怎么样写?
end;
下面是嵌入汇编后 可以得到正确的函数地址, 查看反汇编指令





Answer 1

p:=@hanshuA;
i:=integer(Pointer(p));