Text an EXE-Datei anhängen und wieder auslesen

[Uncle Cracker]

Wie kann ich denn Text an eine EXE-Datei dranhängen und dann später wieder in der EXE auslesen? Die EXE an die was "drangehangen" wird, ist die EXE die es auch selber wieder ausliest. Ich habe zwar dazu auch schon ein bisschen was im Forum gefunden, konnte damit aber nix anfangen, da das meisten nicht so richtig funktioniert hat.

Hier mal eine Funktion die schreibt und eine die ausließt, aber irgendwie will da nix ausgelesen werden

Delphi-Quellcode:

procedure Write_Str(file1 : TFileStream; was : string);
var
  i : Integer;
  temp : Integer;
begin
  i := 0;
  repeat
    i := i + 1;
    temp := ord(was[i]);

    file1.WriteBuffer(temp,1);
  until i = length(was);
end;


function Read_Str(file1 : TMemoryStream; lang : Integer) : string;
var
  i : Integer;
  temp : Integer;
  ch : char;
  s : string;
begin
  s := '';
  for i := 1 to lang do
  begin
    file1.Read(temp,1);
    ch := chr(temp);
    s := s + ch;
  end;
  result := s;

end;

Gibt es vielleicht noch andere Varianten? Mit UpdateRessource habe ich es auch schon probiert, will aber auch nicht so recht

Vielleicht hatte schonmal jemand das Problem und kann mir helfen.


Danke UC