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