Delphi-Quellcode:
function BufferToString (Byt : Integer) : String;
begin
if (((Byt>31) and (Byt<127))) then result:=CHR(Byt)
else result:='';
end;
...
getsysteminfo(si);
Count:=cardinal(si.lpMinimumApplicationAddress);
while Count<cardinal(si.lpMaximumApplicationAddress) do begin
virtualqueryex(XHwnd,pointer(Count),mbi,sizeof(mbi));
if ((mbi.State and mem_commit)>0) then
Content:=Content+ToString(integer(mbi.BaseAddress));
inc(Count,mbi.regionsize);
end;
...
Auf dem
Handle liegt der richtige ProcessHandle. Aber dieser Algorithmus gibt trotzdem nichts zurück
