var hProcess: THandle; dwCount: DWORD; pBaseAddr: Pointer; szBuf: array[0..128] of Char; begin hProcess := GetCurrentProcess; pBaseAddr := PChar('测试'); ReadProcessMemory(hProcess, pBaseAddr, @szBuf, SizeOf(szBuf), dwCount); MessageBox(Handle, szBuf, nil, MB_ICONINFORMATION); end;
var hProcess: THandle; dwCount: DWORD; pBaseAddr: Pointer; i:integer; szBuf: array[1..16] of byte; szbufstr:string; begin hProcess := GetCurrentProcess; pBaseAddr := PChar('测试'); ReadProcessMemory(hProcess, pBaseAddr, @szBuf, SizeOf(szBuf), dwCount); for i:=1 to 16 do szbufstr:=szbufstr+chr(szbuf[i]); edit1.text:=szbufstr; end;以上这些我都试过了,就是不行啊!!!! 大伙GO ON
例如:READPROCESSMEMORY(@1,@2,$3,就是这第四个赋值的地方,数值的我会,汉字的应该用什么呢?@5)
hProcess: THandle;
dwCount: DWORD;
pBaseAddr: Pointer;
szBuf: array[0..128] of Char;
begin
hProcess := GetCurrentProcess;
pBaseAddr := PChar('测试');
ReadProcessMemory(hProcess, pBaseAddr, @szBuf, SizeOf(szBuf), dwCount);
MessageBox(Handle, szBuf, nil, MB_ICONINFORMATION);
end;
hProcess: THandle;
dwCount: DWORD;
pBaseAddr: Pointer;
i:integer;
szBuf: array[1..16] of byte;
szbufstr:string;
begin
hProcess := GetCurrentProcess;
pBaseAddr := PChar('测试');
ReadProcessMemory(hProcess, pBaseAddr, @szBuf, SizeOf(szBuf), dwCount);
for i:=1 to 16 do
szbufstr:=szbufstr+chr(szbuf[i]);
edit1.text:=szbufstr;
end;以上这些我都试过了,就是不行啊!!!! 大伙GO ON