Enviar Varios archivos susesivamente a ap. externa?

[jonydread]

Hola amigos,
Tengo un problemilla que no he podido resolver, uso una aplicación externa la cual recibe de a un archivo y he estado tratando de enviarle múltiples archivos pero necesito enviarlos de a uno sucesivamente
uso una función que me paso Ecfisa para darle una entrada y salida del fichero convertido

Código Delphi [-]
Origen := listbox1.Items.Strings[i];
Destino := ChangeFileExt(Origen,'.inf');
 LlamarReg2inf(Handle,'REG2INF.EXE',Origen,Destino );

la única forma que encuentro es manual ir eliminando archivo ya convertido de la lista y darle de nuevo al botón
si alguien sabe de alguna forma agradecería mucho.
muchas gracias
Saludos!

[ecfisa]

Hola.

Pienso que el problema se presenta por que Reg2Inf.exe no devuelve el control a la aplicación que lo invoca. Como te imaginas, me es imposible comprobarlo ya que ni siquiera sé que es lo que hace Reg2Inf.exe. Pero supongo que es una aplicación DOS. Si es así, quizá la prueba que realizé te pueda servir de algo.

Primero create 3 archivos de texto con algún contenido y llamalos ARCHIVO1.TXT, ARCHIVO2.TXT y ARCHIVO3.TXT. (En mi caso los situe en C:\TEMP)

Hacé un archivito de texto con el siguiente contenido:

@ECHO OFF
CLS
ECHO %1 %2

Guardalo como Reg2Inf.bat (en mi caso C:\'), lo único que hace es mostrar los parámetros enviados.

Luego desde Delphi:

Código Delphi [-]
...
implementation

uses
  ShellApi;

{ Archivos .TXT al Combo }
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:= 1 to 3 do
    ComboBox1.Items.Add('C:\TEMP\ARCHIVO'+IntToStr(i)+'.TXT');
end;

{ funcion que llama a Reg2Inf }
procedure LlamarReg2inf(Hnd: THandle; const App:string; const Origen: string;
  const Destino: string);
begin
  ShellExecute(Hnd,
              'OPEN',
              PChar(App),
              Pchar(Origen+' '+Destino),
              PChar(ExtractFilePath(App)),
              SW_SHOW); // quité SW_HIDE para visualizar el efecto
end;

{ cambia la extension .TXT por .INF (o la que gustes) }
function CambiarExt(Nom: string): string;
begin
  SetLength(Nom, Length(Nom)-Length(ExtractFileExt(Nom)));
  Result:= Nom+'.INF';
end;

{ Ejecuta y queda command prompt }
procedure TForm1.btnExecAndStayClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to ComboBox1.Items.Count -1 do
   LlamarReg2Inf(Handle,'CMD', '/K C:\Reg2Inf.BAT '+ComboBox1.Items[i],
     CambiarExt(ComboBox1.Items[i]));
end;

{ Ejecuta y devuelve el control }
procedure TForm1.btnExecAndExitClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to ComboBox1.Items.Count -1 do
   LlamarReg2Inf(Handle,'CMD', '/C C:\Reg2Inf.BAT '+ComboBox1.Items[i],
     CambiarExt(ComboBox1.Items[i]));
end;
end.

Como podrás comprobar funciona correctamente: Si enviás como parámetro '/K' muestra los nombres y queda en el command prompt y si envias '/C' hace lo propio y se devuelve el control.

Resumiendo, probá cambiando Reg2Inf.BAT por Reg2inf.EXE a ver que nos dice Reg2Inf.exe ...

Un saludo.

[jonydread]

Hise la prueba y funciona de lujo ahora a trabajar en mi codigo para añadirlo
una consulta
en esta parte del codigo para insertar mediante opendialog los archivos, se puede?
y 1 al 3 se puede poner algo asi asta el ultimo archivo cargado

Código Delphi [-]
for i:= 1 to 3 do

Código Delphi [-]
for i:= 1 to 3 do
    Listbox1.Items.Add('C:\TEMP\ARCHIVO'+IntToStr(i)+'.reg');

Gracias por la ayuda

[jonydread]

Originally Posted by jonydread

Hise la prueba y funciona de lujo ahora a trabajar en mi codigo para añadirlo
una consulta
en esta parte del codigo para insertar mediante opendialog los archivos, se puede?
y 1 al 3 se puede poner algo asi asta el ultimo archivo cargado

Código Delphi [-]
for i:= 1 to 3 do
    Listbox1.Items.Add('C:\TEMP\ARCHIVO'+IntToStr(i)+'.reg');

Gracias por la ayuda

que pregunta ya solucione eso

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
Opendialog1.Execute;
for i:= 0 to Opendialog1.Files.Count-1 do
    Listbox1.Items.Add(opendialog1.files[i]);
end;

[jonydread]

disculpa tantos post pero he ido avanzando y me surgen dudas que no he podido realizar solo, es si puedo modificar esta funcion para obtener nombre corto conservando el nombre completo porque he probado en otra parte del codigo con getshortname funciona pero el nombre lo tira con esos tildes

Código Delphi [-]
function CambiarExt(Nom: string): string;
begin

  nom:= AnsiReplaceStr(nom,' ','');
  SetLength(Nom, Length(Nom)-Length(ExtractFileExt(Nom)));
  Result:= Nom+'.inf';
end;

antes lo hacia asi

Código Delphi [-]
Path:=GetshortName(ExtractFilePath(Opendialog1.FileName));
Filename := Extractfilename(opendialog1.FileName);
Origen := GetshortName(opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');

y colocaba origen, path+filename pero ahora no da resultados...