disculpa tantos post pero he ido avanzando y me surgen dudas que no he podido realizar solo, es si puedo modificar esta funcion para obtener nombre corto conservando el nombre completo porque he probado en otra parte del codigo con getshortname funciona pero el nombre lo tira con esos tildes
Código Delphi
[-]function CambiarExt(Nom: string): string;
begin
nom:= AnsiReplaceStr(nom,' ','');
SetLength(Nom, Length(Nom)-Length(ExtractFileExt(Nom)));
Result:= Nom+'.inf';
end;
antes lo hacia asi
Código Delphi
[-]
Path:=GetshortName(ExtractFilePath(Opendialog1.FileName));
Filename := Extractfilename(opendialog1.FileName);
Origen := GetshortName(opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');
y colocaba origen, path+filename pero ahora no da resultados...