S
SexyGG
Unregistered / Unconfirmed
GUEST, unregistred user!
这些源码运行后为什么得到的数值是乱码？<br>procedure TForm1.Timer1Timer(Sender: TObject);<br>const<br> ResourceOffset: dword = $12345678;<br><br>var<br> hw: HWND;<br> pid: dword;<br> h: THandle;<br> tt: Cardinal;<br> resource: dword;<br>begin<br> hw := FindWindow(nil, 'xxxxx');<br> if hw <> 0 then<br> begin<br> GetWindowThreadProcessId(hw, @pid);<br> h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);<br> ReadProcessMemory(h, Pointer(ResourceOffset), @Resource, 8, tt);<br> listbox1.Items.Add(String(@resource));<br> MessageBeep(0);<br> CloseHandle(h);<br> end;<br> end;