exe zur lauzeit ändern...

[the_seed]

so, hab mich jetzt mal dahinter gemacht wie man streams an files anhängen kann - da ich es selber machen mmöchte
nur mein problem ist das wenn ich etwas anhänge dass das komplette file überschrieben wird - hab den source aus nem tut von delphi-source.de

Code:

type
Tsave = class(TForm)
    save: TButton;
    procedure saveClick(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  save: Tsave;

implementation

{$R *.dfm}
type
Tdatensatz=record
id:integer;
name:ansistring;
end;
tdatenarray = array of tdatensatz;

procedure Tsave.saveClick(Sender: TObject);
var
daten:tdatenarray;
stream:tstream;
i:integer;
len:longint;
begin
setlength(daten,2);
daten[0].id:=1;
daten[0].name:='ein name';
daten[1].id:=2;
daten[1].name:='ein andrer name';
stream:=tfilestream.create('c:\rechner.exe',fmcreate);
try
len:=length(daten);
stream.write(len,sizeof(len));

for i:= 0 to length(daten) - 1 do begin
stream.write(daten[1].id, sizeof(daten[i].id));
len:=length(daten[i].name);
stream.write(len, sizeof(len));
stream.write(pchar(daten[i].name)^,len);


end;
finally
stream.free;
end;
end;
end.

kann mir jmd helfen?