Auslesen eines Strings aus dem Ram eines Prozesses

[Astat]

Hallo roflcopter100.

Delphi-Quellcode:

function InfoAuslesen(ptrOffset: Pointer; cbData: DWORD): Pointer; stdcall;
var
  hWindow: HWND;
  dwPID: DWORD;
  cbRead: DWORD;
  hProc: THandle;
begin
  result := nil;
  hWindow := FindWindow(nil, 'Form1');
  if hWindow <> 0 then begin
    if GetWindowThreadProcessId(hWindow ,@dwPID) <> 0 then begin
      hProc := OpenProcess(PROCESS_VM_READ ,False , dwPID);
      GetMem(Result, cbData);
      if not ReadProcessMemory(hProc, ptrOffset, Result, cbData, cbRead) then
        RaiseLastWin32Error;
      CloseHandle(hProc);
    end;
  end else
    RaiseLastWin32Error;
end;

var
  ptrData: Pointer;
begin
  ptrData := InfoAuslesen(ptr($00000001), 11);
  writeln(PChar(ptrData));
  FreeMem(ptrData);
end.

lg. Astat