Registriert seit: 11. Mai 2008
Ort: Kühlungsborn
446 Beiträge
Delphi 2009 Professional
|
Re: String mit ReadMemoryProcess auslesen
11. Jul 2009, 12:33
Ich weiß ja nicht was Du machst, aber wenn Du es so implementiert hättest, wie von mir geschrieben würd es funktionieren:
Delphi-Quellcode:
function ReadWideStringFromProcessMemory(PID : Cardinal; AddressOfString : Cardinal) : WideString;
var
ProcessHandle : THandle;
WideCharRead : WideChar;
BytesRead : Cardinal;
begin
Result := '';
ProcessHandle := OpenProcess(PROCESS_VM_READ, FALSE, PID);
if ProcessHandle <> INVALID_HANDLE_VALUE then
begin
repeat
ReadProcessMemory(ProcessHandle, Pointer(AddressOfString), @WideCharRead, SizeOf(WideCharRead), BytesRead);
Inc(AddressOfString, SizeOf(WideCharRead));
Result := Result + WideCharRead;
until (Word(WideCharRead) = 0) or (BytesRead <> SizeOf(WideCharRead));
CloseHandle(ProcessHandle);
end;
end;
Prozess öffnen, ersten (Wide)Char lesen, an String anhängen, nächsten Char lesen, anhängen usw.. Als Abbruchbedingung dient entweder das terminierende Null-Char oder aber alternativ ein Lesefehler.
Fridolin Walther "While Mr. Kim, by virtue of youth and naiveté, has fallen prey to the inexplicable need for human contact, let me step in and assure you that my research will go on uninterrupted, and that social relationships will continue to baffle and repulse me."
|