内存地址是2A1B064 怎么Edit1.text显示出来是乱码啊??
var
wnd:hwnd;
pid:hwnd;
pHandle:hwnd;
hp:pointer;
i:integer;
nSize:DWORD;
lpNumberOfBytesRead:DWORD;
begin
i:=$2A1B064;
nSize:=4;
hp:=AllocMem(nSize);
Wnd := FindWindow(nil,'Element Client');
GetWindowThreadProcessId(wnd,@pid);
pHandle:=OpenProcess(PROCESS_ALL_ACCESS,false,pid);ReadProcessMemory(pHandle,Pointer(i),hp,nSize,lpNumberOfBytesRead);
Edit1.text:=strpas(hp);end;
var
wnd:hwnd;
pid:hwnd;
pHandle:hwnd;
hp:pointer;
i:integer;
nSize:DWORD;
lpNumberOfBytesRead:DWORD;
begin
i:=$2A1B064;
nSize:=4;
hp:=AllocMem(nSize);
Wnd := FindWindow(nil,'Element Client');
GetWindowThreadProcessId(wnd,@pid);
pHandle:=OpenProcess(PROCESS_ALL_ACCESS,false,pid);ReadProcessMemory(pHandle,Pointer(i),hp,nSize,lpNumberOfBytesRead);
Edit1.text:=strpas(hp);end;
解决方案 »
- 在Delphi8中,出現Unable to attach to ASP.Net worker process(typically aspnet_wp.exe or w3wp.exe)該如何解決?
- winsocket——api翻译出了问题??????
- Undeclared identifier "dsBrowse",为什么?再线等
- 我打算近一段去深圳了,希望了解一下情况!十分感激!
- 我的值怎么传不过去(指针)
- 在DELPHI中怎样取得本机sql server 2000服务器名
- 哪里可以得到ISO9000的具体标准内容?
- 走到这,不进来瞧一下,真的逛为人生!不信,瞧瞧!
- DBgrideh导出Excel,升级到Office3 2013后导出变慢
- 是否有离线浏览包下载!象大富翁那种!
- scktsrvr.exe 占用CPU资源100%,请高手和遇到此类问题的人进来讨论讨论
- 远程连接SQL serever2000的问题
Edit1.Text := IntToStr(i);
i := 0;
Move(hp^, i, 1);
Edit1.Text := IntToStr(i);字显示:
i := 0;
Move(hp^, i, 2);
Edit1.Text := IntToStr(i);双字显示:
Move(hp^, i, 4);
Edit1.Text := IntToStr(i);
然后直接显示 hp 就一切正常,你非定义成指针干么