[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