读取内存数据

var
 Gameh:HWND;
 GamePid:DWORD;
 Gamehprocess: THandle;
 SitNum :DWORD;
 readByte:DWORD;
begin
  //获取游戏窗口句柄
  Gameh:=findwindow(nil,'对对碰角色版');
  //获取进程ID
  GetWindowThreadprocessID(Gameh,GamePid);
  //获取进程句柄  PROCESS_VM_READ or PROCESS_VM_WRITE 一个是读入内存权限 一个是写入内存数据权限
   gamehProcess:=OpenProcess(PROCESS_VM_READ or PROCESS_VM_WRITE,false,GamePid);
  //读出坐位号
   Readprocessmemory(gamehProcess, Pointer($0047d814),@SitNum,4,  readByte);
   //显示 坐位号信息
   self.Edit1.Text:= intToHex(SitNum,8);
end;