procedure TForm1.Button5Click(Sender: TObject); Var ptemp:Pchar; readByte:Dword; begin Gameh:=FindWindow(nil,GameCaption); if Gameh=0 then exit; GetWindowThreadProcessID(Gameh,GamePid); GamehProcess:=OpenProcess(windows.PROCESS_ALL_ACCESS,false,GamePid); ReadProcessMemory(GamehProcess,Pointer($0A31E44),@Pchar,4,readByte); label29.Caption:=Pchar; end;这样可以吗?
procedure TForm1.Button5Click(Sender: TObject);
Var
ptemp:Pchar;
readByte:Dword;
begin
Gameh:=FindWindow(nil,GameCaption);
if Gameh=0 then exit;
GetWindowThreadProcessID(Gameh,GamePid);
GamehProcess:=OpenProcess(windows.PROCESS_ALL_ACCESS,false,GamePid);
ReadProcessMemory(GamehProcess,Pointer($0A31E44),@Pchar,4,readByte);
label29.Caption:=Pchar;
end;这样可以吗?