1,183
社区成员
发帖
与我相关
我的任务
分享各位帮帮看看源码有啥错
这些源码运行后为什么得到的数值是乱码？
我在DFW问，他们说是读的是二进制数据
谁帮我改改?
procedure TForm1.Timer1Timer(Sender: TObject);
const
ResourceOffset: dword = $12345678;
var
hw: HWND;
pid: dword;
h: THandle;
tt: Cardinal;
resource: dword;
begin
hw := FindWindow(nil, 'xxxxx');
if hw <> 0 then
begin
GetWindowThreadProcessId(hw, @pid);
h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
ReadProcessMemory(h, Pointer(ResourceOffset), @Resource, 8, tt);
listbox1.Items.Add(String(@resource));
MessageBeep(0);
CloseHandle(h);
end;
end;
我在DFW问，他们说是读的是二进制数据
谁帮我改改?
procedure TForm1.Timer1Timer(Sender: TObject);
const
ResourceOffset: dword = $12345678;
var
hw: HWND;
pid: dword;
h: THandle;
tt: Cardinal;
resource: dword;
begin
hw := FindWindow(nil, 'xxxxx');
if hw <> 0 then
begin
GetWindowThreadProcessId(hw, @pid);
h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
ReadProcessMemory(h, Pointer(ResourceOffset), @Resource, 8, tt);
listbox1.Items.Add(String(@resource));
MessageBeep(0);
CloseHandle(h);
end;
end;
...全文
请发表友善的回复…
发表回复
dickeybird888 2003-10-10
- 打赏
- 举报
哈哈！
Debug007 2003-10-10
- 打赏
- 举报
我用金山游侠找的字串地址..还是乱码...
bottom 2003-10-10
- 打赏
- 举报
to:xinghf(xinghf) ( 如何修改，偶来学习！
xinghf 2003-10-09
- 打赏
- 举报
同意楼上
偏移地址应该是你要显示内容的地址
偏移地址应该是你要显示内容的地址
pankun 2003-10-09
- 打赏
- 举报
你随便读个偏移地址,怎么能不是乱码嘛.
除非你确定ResourceoOffset处是个字串.
除非你确定ResourceoOffset处是个字串.
