ejecutar ap.ext. dir. y nombre in & outfile

[jonydread]

algo enredado el titulo pero trate de ser algo especifico y no lo pude editar despues,
lo que pasa ejecuto programa externo que convierte archivo segun estos parametros en un bat

set WORKFILE=%~1
set OUTFILE=%~dpn1.inf
CD /D %~dp1

:doit
Echo.
Echo ** Converting "%~nx1" ...
reg2inf.exe "%WORKFILE%" "%OUTFILE%"
Echo.
PAUSE
goto end

queria saber si se puede hacer lo mismo en codigo delphi
algo asi como un shellexecute que tome el archivo de entrada %WORKFILE% y salga con %OUTFILE%
tengo solo una parte mas o menos clara
%WORKFILE% podria ponerlo como Opendialog1.FileName o ParamStr(1)
pero
%OUTFILE% ??? debe tener otra extension (en bat set OUTFILE=%~dpn1.inf) y quedar en el mismo directorio de workfile en (bat CD /D %~dp1)
demas no se bien como realizar esta parte, mas bien estoy bien nulo
reg2inf.exe "%WORKFILE%" "%OUTFILE%"

saludos!
Gracias!

[ecfisa]

Hola.

No entiendo la necesidad de enviar los parámetros al archivo por lotes, yo lo haría directamente a reg2inf. Por ejemplo:

Código Delphi [-]
procedure 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);
end;

Llamada:

Código Delphi [-]
 LlamarReg2inf(Handle,'C:\REG2INF.EXE','C:\TEMP\OLDNAME.XX','C:\TEMP\NEWNAME.XXX');

Saludos.

[jonydread]

lo que pasa es que reg2inf.exe es un programa externo, es un archivo comprimido funciona con pantalla msdos y no puedo editarlo, para ello existe otro bat que envia los parametros que coloque, lo que quiero es saltar el primero y hacerlo en delphi y enviar directo a reg2inf.exe

[jonydread]

funciona bien pero como puedo reemplazar esto
,'C:\TEMP\NEWNAME.XXX' mantener nombre de archivo y crear en el mismo directorio de entrada
edit:
ay quedo

Código Delphi [-]
procedure Tform1.LlamarReg2inf(Hnd: THandle; const App:string; const Origen: string; const Destino: string);
var sAppName, sAppinf : string;
begin
sAppName := App;
sAppinf := ChangeFileExt(sAppName,'.inf');
  ShellExecute(Hnd,
              'OPEN',
              PChar(ExtractFileName(App)),
              Pchar(Origen+' '+Destino),
              PChar(ExtractFilePath(App)),
              SW_HIDE);
end;

muchas gracias!!

[jonydread]

disculpa el de arriba estaba mal no funciona

[ecfisa]

Hola jonydread.

Podés enviar constantes como en el ejemplo que te puse anteriormente o variables. Lo que importa es que en el argumento Origen envíes la Ruta+Nombre de archivo sobre el que se van a hacer las operaciones (WORKFILE) y en el argumento Destino el nombre que deseas darle a la salida (OUTFILE).

Un ejemplo con variables:

Código Delphi [-]
var
  Aplicacion ,Entrada, Salida:
begin
  Aplicacion:= 'Y:\UNA_RUTA\REG2INF.EXE';  // Aplicacion: reg2inf.exe
  Entrada   := 'X:\OTRA_RUTA\ENTRADA.@@@'; // Nombre de archivo de entrada
  Salida    := 'X:\OTRA_RUTA\SALIDA.UXO';  // Nombre de archivo de salida
  LlamarReg2Inf(Handle,  Aplicacion, Entrada, Salida);
  ...

Saludos.

[jonydread]

Mil gracias tenia la solucion ay mismo y no me habia dado cuenta

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);
end;

llamar LlamarReg2inf

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var sAppName, sAppnew : string;
begin
sAppName := Opendialog1.FileName;
sAppnew := ChangeFileExt(sAppName,'.inf');
 LlamarReg2inf(Handle,'REG2INF.EXE',Opendialog1.FileName,sAppnew );
end;

[jonydread]

ok muchas gracias!

[ecfisa]

Hola.

Estaba pensando, que si los archivos son elegidos mediante un TOpenDialog, existen pocas posibilidades de que el archivo no exista...

Es decir o cancela la elección o la acepta, pero si hace esto último, si o sí el nombre de archivo se encontrará en la propiedad FileName del TOpenDialog. Y a menos que el archivo se halle en una unidad removible y sea quitada antes de llamar a ShellExecute no veo la posibilidad de que el archivo desaparezca.

De todas formas podés utilizar la función FileExists antes de llamar a ShellExecute para verificar la existencia el archivo enviado en el argumento Origen.

Saludos.

[jonydread]

lo ise asi

Código Delphi [-]
    if FileExists(Opendialog1.FileName) then
              label1.Caption:='Convertido con exito!! : '+outfile
              else
   label1.Caption:='Error! No se Encuentra Archivo'
       end;

gracias!!