Cita:
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.