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;
procedure TForm1.btnLoadFileNameClick(Sender: TObject);
begin
with OpenDialog1 do
begin
Filter:= 'Archivos de texto | *.TXT';
if Execute then
ComboBox1.Items.Add(FileName);
end;
end;
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.