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

[shmia]

Kurz und knackig:

Delphi-Quellcode:

procedure Write_Str(file1 : TStream; const was : string); 
begin 
   file1.WriteBuffer(was[1], Length(was)); 
end; 

function Read_Str(file1 : TStream; lang : Integer) : string; 
begin 
   SetLength(Result, lang);
   file1.ReadBuffer(Result[1], lang);
end;

[Uncle Cracker]

Mhh, und wie kann ich jetzt schreiben bzw. lesen? Es sollen mehrere Werte sein.

Danke UC

[Motzi]

Schau dir mal meinen TExtraResManager an.. www.manuel-poeter.de

[Luckie]

Was soll denn das werden? Dir ist klar dass jeder einigermassen brauchbare Virenscanner Alarm schlägt, da sich die größe der Exe verändert?

Und wenn es mehrer Daten sein sollen, nimm einen Record.

[Uncle Cracker]

Es soll sich ja nicht fortlaufend ändern, sondern nur einmal. Also ich lade eine EXE aus meinem Hauptprogramm hänge Daten dran und gebe es dann weiter.

Ich habe nur keine Funktion gefunden, mit der ich was dranhänge bzw. auslese.

[dizzy]

Dir ist aber auch klar, dass Trojaner genau SO arbeiten!?

[Uncle Cracker]

Mhhh, das verstehe ich jetzt nicht? Wie meinst du das?

[Matze]

Er meint das, was Luckie auch schon gesagt hat, nämlich, dass jeder Virenscanner dein Programm als Virus identifizieren würde.

Man könnte deshalb denken... ABer dir traue ich das nicht zu.

[Uncle Cracker]

Zitat:

Man könnte deshalb denken... ABer dir traue ich das nicht zu.

Danke


Und wie könnte ich das jetzt am besten machen? Also ich habe keine richtig Lust auf zusätzliche Kompos und mit Record kenne ich mich da nicht so aus, Suche hat auch nicht sehr geholfen