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