UC知道delphi中读取指定内存地址的值的问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 18:20:18
我想读取地址为E86E971的值,应该怎么办?我写了个程序可是编译不通过.
var
wnd:hwnd;
pid:hwnd;
pHandle:hwnd;
hp:pansichar;
begin
Wnd := FindWindow(nil,'Element Client');
GetWindowThreadProcessId(wnd,@pid);
pHandle:=OpenProcess(PROCESS_ALL_ACCESS,false,pid);
ReadProcessMemory(pHandle,Pointer($E86E971),@hp,sizeof(hp),0);
edit1.text:=strpas(hp);
end;
var
wnd:hwnd;
pid:hwnd;
pHandle:hwnd;
hp:pansichar;
begin
Wnd := FindWindow(nil,'Element Client');
GetWindowThreadProcessId(wnd,@pid);
pHandle:=OpenProcess(PROCESS_ALL_ACCESS,false,pid);
ReadProcessMemory(pHandle,Pointer($E86E971),@hp,sizeof(hp),0);
edit1.text:=strpas(hp);
end;
先在每步都作个判断
Wnd := FindWindow(nil,'Element Client');
if Wnd>0 then
begin
GetWindowThreadProcessId(wnd,@pid);
if pid>0 then
begin
pHandle:=OpenProcess(PROCESS_ALL_ACCESS,false,pid);
if pHandle>0 then
begin
ReadProcessMemory(pHandle,Pointer($E86E971),@hp,sizeof(hp),0);
edit1.text:=strpas(hp);
Exit;
end;
end;
end;
ShowMessage('Error');
end;
自己调试哪步数值没得到