Delphi XE2读取游戏内存偏移数据代码_Delphi资料

首页 Delphi资料好文收藏股海冲浪自制小软件 E4A易安卓手机编程 ASP资料 Python PHP资料在线字典留言板

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

阅读 708 次更新时间：2014/4/20

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

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

[delphi] onclick="dp.sh.Toolbar.Command('ViewSource',this);return false;" href="http://blog.csdn.net/meend/article/details/6962617#">view plainonclick="dp.sh.Toolbar.Command('CopyToClipboard',this);return false;" href="http://blog.csdn.net/meend/article/details/6962617#">copy
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;  

今天你有收获了吗？