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

[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]

Amigo tengo dos dudas para este codigo
1ºComo puedo aplicar el shortname para las rutas conservando el nombre del archivo ya que lo aplique de este modo

Código Delphi [-]
var Origen, Destino,FileName : string;
begin
FileName := ExtractFileName(Opendialog1.filename);
Origen := GetshortName(Opendialog1.FileName);
Destino := ChangeFileExt(ExtractFileName(FileName),'.inf');
 LlamarReg2inf(Handle,'REG2INF.EXE',Origen,Destino );
end;

me entrega bien pero si el nombre de archivo tiene espacio no hace nada por ejemplo
mi archivo.xx
pero si esta asi
miarchivo.xx funciona ok
2ºAplico HINSTANCE pero no me da resultado la coloque en Tform1.LlamarReg2inf
para que responda a errores y sepa cuando el resultado fue exitoso
gracias por tu tiempo

[ecfisa]

Empezado por jonydread

Como puedo aplicar el shortname para las rutas conservando el nombre del archivo

Si no te entendí mál, sería:

Código Delphi [-]
var
  Origen, Destino: string;
begin
  OpenDialog1.Execute;
  Origen   := GetshortName(Opendialog1.FileName);
  Destino  := ExtractFilePath(Opendialog1.FileName) + ChangeFileExt(ExtractFileName(Opendialog1.FileName), '.INF');
  ...

Un saludo.

[jonydread]

asi coloque para que funcionara

Código Delphi [-]
Origen := GetshortName(Opendialog1.FileName);
Destino :=ChangeFileExt(ExtractFileName(Opendialog1.FileName), '.inf');

funciona pero si el nombre contiene espacios no funciona

lo otro disculpa
para colocar un HINSTANCE donde lo coloco??

gracias!!