Delphi XE2读取内存偏移数据代码

======================================================
注：本文源代码点此下载
======================================================

delphi xe2读取内存偏移数据代码

刚学习的时候直接读取基值是很简单的,但是类型[[[00a41ff0+1c]+34]+490]这样的偏移数值应该如何读取呢?下面给大家分享下delphi 的代码:

var

gameh:hwnd;{定义窗口句柄}

gamepid:dword;{定义窗口进程id}

readbyte:size_t;{实际读取字节}

gamehprocess: thandle;{就是非负数的整数类型定义进程句柄}

hp:dword;

text:dword;{看下面代码你就知道为什么要定义它了}

//完美血值基值 [[[00a41ff0+1c]+34]+490]

begin

gameh:=findwindow(nil,'完美世界国际版');//取窗口句柄

getwindowthreadprocessid(gameh,gamepid);//获取进程id

gamehprocess:=openprocess(process_all_access,false,gamepid);//获取进程句柄

readprocessmemory(gamehprocess,pointer($00a41ff0),@text,4,readbyte);//读取00a41ff0内存的值

readprocessmemory(gamehprocess,pointer(text+$1c),@text,4,readbyte);//读取00a41ff0+1c的值

readprocessmemory(gamehprocess,pointer(text+$34),@text,4,readbyte);//读取00a41ff0+1c+34的值

readprocessmemory(gamehprocess,pointer(text+$490),@hp,4,readbyte);//读取00a41ff0+1c+34+490的值

lbl2.caption:=inttostr(hp); //显示血值

end;

今天你有收获了吗?

绿色通道:好文要顶关注我收藏该文与我联系

posted @ 2011-10-31 18:28 ahroot 阅读(45) 评论(0)编辑 收藏

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/