imprimir varios archivos de word

[ecfisa]

Como se puede hacer eso cargando archivos mediante un opendialog o listbox y enviarlos sucesivamente a una aplicación externa??

Te pongo un ejemplo que carga nombres de archivos de texto (.TXT) en un TComboBox usando un TOpenDialog y ShellExecute los envía para ser abiertos. En este caso, los archivos serán abiertos por la aplicación que esté asociada al tipo de extensión en el S.O.

Código Delphi [-]
...
implementation

uses ShellApi;

// Carga los nombres en el combo
procedure TForm1.btnLoadFileNameClick(Sender: TObject);
begin
  with OpenDialog1 do
  begin
    Filter:= 'Archivos de texto | *.TXT';
    if Execute then
      ComboBox1.Items.Add(FileName);
  end;
end;

// Abre los archivos existentes en el combo 
procedure TForm1.btnOpenFilesClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to ComboBox1.Items.Count - 1 do
    ShellExecute(Handle, 'open',PChar(ComboBox1.Items[i]), nil, nil, SW_SHOWNORMAL);
end;
...

Saludos.

[jonydread]

mi Aplicacion externa toma de a uno los archivos por eso consultaba como enviarlos susesivamente estoy tratando de hacerlo con createprocess para cuando termine con uno seguir con otro ay estoy medio colgado porque me sale un error

Código Delphi [-]
procedure Tform1.LlamarReg2inf(Hnd: THandle; const App:string; const Origen: string; const Destino: string);
begin
  ShellExecute(Hnd,
              'OPEN',
              PChar(ExtractFileName(App)),
              Pchar(Origen+' '+Destino),
              PChar(ExtractFilePath(App)),
              SW_HIDE);
procedure TForm1.Button2Click(Sender: TObject);
var Origen, Destino : string;
  i: Integer;
   Process: Cardinal;
begin
Origen := Listbox1.Items[i];
Destino := ChangeFileExt(Origen,'.inf');
 LlamarReg2inf(Handle,'REG2INF.EXE',Origen,Destino );
 Process := ExecuteProcess('reg2inf.exe');
  if Process <> 0 then
    WaitForSingleObject(Process, INFINITE);
    //finalizado
 end;

uso esa funcion que me pasaste en otro post
Gracias

[PepeLolo]

Te pongo enlace a una aplicación realizada en delphi que fusiona PDF. Descarga el código fuente del mismo, y sigue el proceso al guardar el PDF a generar, este contiene un ejemplo de código que solicitas.

un saludo.

[jonydread]

Empezado por PepeLolo

Te pongo enlace a una aplicación realizada en delphi que fusiona PDF. Descarga el código fuente del mismo, y sigue el proceso al guardar el PDF a generar, este contiene un ejemplo de código que solicitas.

un saludo.

uff lo vi pero no logre comprender del todo
gracias!!