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

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

[ecfisa]

si el nombre contiene espacios no funciona

Tenés razón, eso me pasa por hacer las cosas en el aire.

De este modo renombra correctamente el archivo usando nombres cortos (con y sin espacios):

Código Delphi [-]
...
var
  Origen, Destino: string;
begin
  OpenDialog1.Execute;
  Origen   := GetshortName(Opendialog1.FileName);
  Destino  := GetShortName(ChangeFileExt(Origen, '.INF'));
  ShowMessage(Origen+#10#13+Destino);  // las cadenas sólo difieren en '.INF'
  ...

Saludos.

[jonydread]

Empezado por ecfisa

Tenés razón, eso me pasa por hacer las cosas en el aire.

De este modo renombra correctamente el archivo usando nombres cortos (con y sin espacios):

Código Delphi [-]
...
var
  Origen, Destino: string;
begin
  OpenDialog1.Execute;
  Origen   := GetshortName(Opendialog1.FileName);
  Destino  := GetShortName(ChangeFileExt(Origen, '.INF'));
  ShowMessage(Origen+#10#13+Destino);  // las cadenas sólo difieren en '.INF'
  ...

Saludos.

Disculpas creo que me exprese mal, funciona bien lo que pasa que el nombre del archivo si tiene espacios no realiza la accion, estoy buscando como reemplazar el espacio por _ para que pueda escribir el archivo de salida

[ecfisa]

estoy buscando como reemplazar el espacio por _ para que pueda escribir el archivo de salida

Código Delphi [-]
uses StrUtils;
...
var
  ArchivoSalida: string;
begin
  ...
  ArchivoSalida:= AnsiReplaceStr(ArchivoSalida, ' ', '_');
  ...
end;

Saludos.

[jonydread]

lo he hecho asi

Código Delphi [-]
procedure TReg2infConverter.Button2Click(Sender: TObject);
var Origen, Destino,FileName: string;
begin
Origen := GetshortName(Opendialog1.FileName);
Destino :=ChangeFileExt(FileName, '.inf');
FileName := ExtractFileName(Opendialog1.FileName);
FileName := StringReplace(FileName,' ','_',[rfReplaceAll]);
 LlamarReg2inf(Handle,'REG2INF.EXE',Origen,Destino );
end;

es la única forma que realiza la acción pero el archivo de salida sale sin nombre .inf solamente
para que quede mas claro
este archivo esta en esta ruta
D:\Documents and Settings\Administrador\Mis documentos\pruebas\Copia de arch.reg (con este da el problema)
D:\Documents and Settings\Administrador\Mis documentos\pruebas\Copiadearch.reg (este realiza la acción y conserva el nombre completo)