[求助]请教各位大大关于DELPHI 如何读出物理内存指定的值。 :3:-编程技术-看雪-安全社区|安全招聘|kanxue.com

最新回复 (6)
私仇之路雪币： 73 活跃值： (16) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 346 粉丝 0 关注私信	私仇之路 2 楼 var pBuffer:Pointer; dwSize:DWORD; begin dwSize:=100;//想要读取的长度 pBuffer:=VirtualAlloc(nil,dwSize,MEM_COMMIT,PAGE_READWRITE); if pBuffer=nil then exit; ReadOrWritePhyMem(TRUE,$789340,dwSize,pBuffer); VirtualFree(pBuffer,dwSize,MEM_DECOMMIT); end; 2011-8-3 18:11 0
qinmiaozn 雪币： 109 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 59 粉丝 0 关注私信	qinmiaozn 3 楼朋友首先感谢你其次我想读出内存到MEMO 我的写法是 memo1.Text:=PChar(string(pBuffer)); 但是这样子的方法读不出内存字串。还请赐教谢谢了！ 2011-8-3 23:08 0
私仇之路雪币： 73 活跃值： (16) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 346 粉丝 0 关注私信	私仇之路 4 楼刚开始没有仔细看他的代码，后来复制了慢慢调了一下，现在可以正确读取了。 var Addr:integer; buf:array [0..4096] of byte; begin Addr:=strtoint('$'+Edit1.Text); buf[4096]:=0; Memo1.Text:=''; if ReadOrWritePhyMem(True,Addr,4096,@buf) then Memo1.Text:=PChar(@buf[Addr mod 4096]); end; 还有，要在他的代码里搜索Inc(DWORD(VirtualAddress),Access mod $1000);这一行，把他删了。 2011-8-4 09:33 0
qinmiaozn 雪币： 109 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 59 粉丝 0 关注私信	qinmiaozn 5 楼感谢了兄弟！ 2011-8-4 18:50 0
qinmiaozn 雪币： 109 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 59 粉丝 0 关注私信	qinmiaozn 6 楼提示出错缓中区长度不足或内存跨段 2011-8-4 19:21 0
私仇之路雪币： 73 活跃值： (16) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 346 粉丝 0 关注私信	私仇之路 7 楼还是QQ和你说吧，晕了。。。。 2011-8-4 20:14 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

最新回复 (6)
私仇之路雪币： 73 活跃值： (16) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 346 粉丝 0 关注私信	私仇之路 2 楼 var pBuffer:Pointer; dwSize:DWORD; begin dwSize:=100;//想要读取的长度 pBuffer:=VirtualAlloc(nil,dwSize,MEM_COMMIT,PAGE_READWRITE); if pBuffer=nil then exit; ReadOrWritePhyMem(TRUE,$789340,dwSize,pBuffer); VirtualFree(pBuffer,dwSize,MEM_DECOMMIT); end; 2011-8-3 18:11 0
qinmiaozn 雪币： 109 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 59 粉丝 0 关注私信	qinmiaozn 3 楼朋友首先感谢你其次我想读出内存到MEMO 我的写法是 memo1.Text:=PChar(string(pBuffer)); 但是这样子的方法读不出内存字串。还请赐教谢谢了！ 2011-8-3 23:08 0
私仇之路雪币： 73 活跃值： (16) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 346 粉丝 0 关注私信	私仇之路 4 楼刚开始没有仔细看他的代码，后来复制了慢慢调了一下，现在可以正确读取了。 var Addr:integer; buf:array [0..4096] of byte; begin Addr:=strtoint('$'+Edit1.Text); buf[4096]:=0; Memo1.Text:=''; if ReadOrWritePhyMem(True,Addr,4096,@buf) then Memo1.Text:=PChar(@buf[Addr mod 4096]); end; 还有，要在他的代码里搜索Inc(DWORD(VirtualAddress),Access mod $1000);这一行，把他删了。 2011-8-4 09:33 0
qinmiaozn 雪币： 109 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 59 粉丝 0 关注私信	qinmiaozn 5 楼感谢了兄弟！ 2011-8-4 18:50 0
qinmiaozn 雪币： 109 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 59 粉丝 0 关注私信	qinmiaozn 6 楼提示出错缓中区长度不足或内存跨段 2011-8-4 19:21 0
私仇之路雪币： 73 活跃值： (16) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 346 粉丝 0 关注私信	私仇之路 7 楼还是QQ和你说吧，晕了。。。。 2011-8-4 20:14 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

[求助]请教各位大大 关于DELPHI 如何读出物理内存指定的值。 :3:

[求助]请教各位大大关于DELPHI 如何读出物理内存指定的值。 :3: