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;

https://www.cnblogs.com/ahroot/archive/2011/10/31/2230609.html
 

相关阅读 >>

Delphi 把整个窗体保存为图片的方法

Delphi在字符串中删除指定字符串

Delphi xe 7 mediaplayer 在安卓里放不出声音

Delphi firedac 获取 insert 记录的自增 id

Delphi_关于null,nil

Delphi tpath

Delphi中从windows资源管理器中拖放图片到timage控件上

Delphi连接mysql出现乱码

Delphi twebbrowser控件编程

Delphi 枚举所有电脑磁盘

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE2读取内存偏移数据代码