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 ?