Agregar archivos en un TFileStream

[Ramsay]

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.


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 ?

[ecfisa]

Hola Ramsay.

Revisa este enlace: How do I concatenate two files into one? (http://stackoverflow.com/questions/16155038/how-do-i-concatenate-two-files-into-one)

Saludos :)

[Ramsay]

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.

[ecfisa]

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 :)

[Ramsay]

Ok , ahora lo hago.