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

[复制链接]
查看11 | 回复2 | 2011-12-30 09:42:53 | 显示全部楼层 |阅读模式
procedure TForm1.btn1Click(Sender: TObject);vari:Integer ;addr:Integer ;p:Pointer ;strHEX:string ;begini:=12;p:=@i;addr :=PCardinal(@p)^ ;strHEX:=IntToHex(addr,8);edt1.Text :=IntToStr(addr);edt2.Text :=strHEX ;end;...
回复

使用道具 举报

千问 | 2011-12-30 09:42:53 | 显示全部楼层
比如:var g_iTmp:integer;g_pPointer:Pointer;g_pPointer:=@g_iTemp;{获取地址}...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行