- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
我想读取地址为1005334的值,应该写..我写了个就是读不出数据
procedure TForm1.Button1Click(Sender: TObject);
var
hwnd:cardinal;
pid:Dword;
hProcess:cardinal;
x:widechar;
Num: cardinal;
begin
hwnd := FindWindow(nil, '扫雷');
GetWindowThreadProcessId (hwnd, @pid);
hProcess := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
If hProcess <> 0 Then
begin
ReadProcessMemory(hprocess,Pointer($1005334),@x,sizeof(x),num);
label1.Caption := string(x);
end
else
showmessage('未启动游戏');
CloseHandle(hProcess);
end; |
|