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

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;