Question

如何获取delphi中pointer的实际32位内存地址，相当于ptr函数的反操作。

32位地址哦，显示为interger，十六进制，如0033AAFFH。

Answer 1

procedure TForm1.btn1Click(Sender: TObject);
var
i:Integer ;
addr:Integer ;
p:Pointer ;
strHEX:string ;

begin
i:=12;
p:=@i;
addr :=PCardinal(@p)^ ;
strHEX:=IntToHex(addr,8);
edt1.Text :=IntToStr(addr);
edt2.Text :=strHEX ;

end;

Answer 2

比如：
var g_iTmp:integer;
g_pPointer:Pointer;

g_pPointer:=@g_iTemp;{获取地址}

追问

32位地址哦，显示为interger，十六进制，如0033AAFFH。