做游戏修改器的一点记录,有关大航海家3
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;