Delphi: 内挂，读内存出错

投资技能

procedure TForm1.Button1Click(Sender: TObject);
var
wnd:hwnd;  
pid:hwnd;  
pHandle:hwnd;  
nSize:BYTE;
lpNumberOfBytesRead:DWORD;
begin


Address:=$008D64B4;

wnd:=FindWindow(nil,'Element Client');

GetWindowThreadProcessId( wnd, @pid);

pHandle := OpenProcess(PROCESS_ALL_ACCESS, false, pid);

ReadProcessMemory  ( pHandle, Pointer($008D64B4), @Address, nSize, lpNumberOfBytesRead);


end;



就写这么多。。。的读就出问题了。。应该是后面两个参数设的有毛病。。可是又找到相关的文档说明


ReadProcessMemory(Address: LongWord; Count: Integer; var Buffer): Integer;

怎么才只有三个参数啊

function WriteProcessMemory(Address: LongWord; Count: Integer; var Buffer): Integer;
帮助文档里的写入函数也是这样的。。


哪位大哥发一个可以正确的　样本我看一下，就读句内存的就好了

看来转植还是有点不一样的。。

EchanEeg

Num: cardinal;
ReadProcessMemory(进程句柄, Pointer($地址值), @变量, 长度,Num );

活辣椒

读出的数据存在变量里,可与直接用
上面那个你看不出来是delphi吗 ......

蓝雨

对于本帖我不发布任何意见