Ver Mensaje Individual
  #6  
Antiguo 23-11-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita