WriteWideStringFromProcessMemory

[RedShakal]

Hallo, ich habe vor einiger Zeit mal angefragt wie man einen Text aus dem Arbeitsspeicher eines anderen Programmes ausliest. Dies klappte auch immer sehr gut

Delphi-Quellcode:

function ReadWideStringFromProcessMemory(AddressOfString : Cardinal) : WideString;
var
  WideCharRead : WideChar;
  BytesRead : Cardinal;
begin
  Result := '';

  WindowName     :=  FindWindow(nil,WindowTitle);
  ThreadId       :=  GetWindowThreadProcessId(WindowName,@ProcessId);
  HandleWindow   :=  OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);

  repeat
    ReadProcessMemory(HandleWindow, Pointer(AddressOfString), @WideCharRead, SizeOf(WideCharRead), BytesRead);
    Inc(AddressOfString, SizeOf(WideCharRead));
    Result := Result + WideCharRead;
  until (Word(WideCharRead) = 0) or (BytesRead <> SizeOf(WideCharRead));
    CloseHandle(HandleWindow);
  end;

Aber nun stellt sich die Frage: Wenn ich diesen Text ändern will mit einer mir vorher unbekannten Länge müsste ich ja theoretisch aus dem Read ein WriteProcessMemory machen, einen Text übergeben und das ganze dann übergeben. Das Problem ist das es sich um Unicode zeichen handelt. Es wird dabei vorrausgesetzt das ein Terminator Zeichen am ende vorhanden ist.

Wie kann man sowas am einfachsten Realisieren?