delphi中获取指定内存地址的值

时间:2011-5-31来源:yang 作者: peng点击: 20次

procedure TForm1.Button1Click(Sender: TObject);
var
hwnd:cardinal;
pid:Dword;
hProcess:cardinal;
x:string;
Num: cardinal;

begin
setlength(X,$10);
hwnd := FindWindow(nil, ‘Cheat Engine 5.3‘);
GetWindowThreadProcessId (hwnd, @pid);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
    If hProcess <> 0 Then
    begin
      if ReadProcessMemory(hprocess,Pointer($1005334),@x,$10,num) then
      label1.Caption := string(x)
      else
      showmessage(‘读数失败~！‘);
    end
    else
      showmessage(‘未启动游戏‘);
    CloseHandle(hProcess);

end;