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 一个是读入内存权限 一个是写入内存数据权限<br>   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;