Insertar archivos dentro de un .exe

[[coso]]

Hola. Este ejemplo graba 0123456789 al final de cualquier archivo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   f: file of Byte;
   i : integer;
   c : byte;
   s : PChar;
begin
   if OpenDialog1.Execute then
   begin
     AssignFile(f, OpenDialog1.FileName);
     Reset(f);
     Seek(f,Filesize(f));
     for i := 0 to 9 do
     begin
        s := PChar(inttostr(i));
        c := byte(s[0]);
        Write(f,c);
     end;
     CloseFile(f);
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
        f : file of byte;
        i : integer;
        c : byte;
begin
        if OpenDialog1.Execute then
        begin
                AssignFile(f,OpenDialog1.Filename);
                Reset(f);
                Seek(f,Filesize(f)-10);

                for i := 0 to 9 do
                begin
                  Read(F,c);
                  Edit2.Text := Edit2.Text + Char(c);
                end;

                CloseFile(f);
        end;
end;

un par de cosas:
- si el ejecutable donde quieres grabar es la propia aplicacion, tendras que 'esconderla' del administrador de tareas. desconozco como se hace eso
- si hay algun antivirus por alla que tenga grabado los checksums de los .exe, probablemente te identificara esto como virus.

saludos