Agregar archivos en un TFileStream
 

Hola , estoy estudiando TFileStream , estoy tratando de agregar dos ejecutables o archivos cualquiera en un TFileStream que crea un ejecutable final , el tema es que no encuentro documentacion sobre como hacer el agregado de un archivo en un TFileStream.

Código Delphi [-]
procedure TFormulario.CrearArchivoStream;
var
  F: TFileStream;
  s: String;
  archivo1,archivo2:string;

begin
  archivo1 := 'test1.exe';
  archivo2 := 'test1.exe';
  F := TFileStream.Create( ExtractFilePath( Application.ExeName ) + 'prueba.exe', fmCreate );
  s := 'Añadiendo información al archivo de texto.' + #13 + #10;
  F.Write( s[1], Length( s ) );
  F.Free;
end;

¿ Como se podria hacer ?

Hola Ramsay.

Revisa este enlace: How do I concatenate two files into one?

Saludos :)

Si , era eso gracias , debi usar "concatenar" en google por eso no encontre ese link , ¿ y para separarlo conoces algun link de ayuda ? , lei que se trataba algo de copystream pero el ejemplo estaba incompleto.

Hola Ramsay.

Tu última pregunta no tiene relación con la que inició el tema, por favor crea un nuevo hilo con ella.

Saludos y gracias por tu colaboración :)

Ok , ahora lo hago.