读取内存数据
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;