küçük bir proje üstünde çalışıyorum fakat bir yerde takıldım sorun şöyle;

mesela  ben open dialog ile seçtiğim klasörün  ( C:\documents and settings\administrator\desktop\klasör\ )   yolunu label'in başlığına yazdıra biliyorum 

Fakat bana ms-dos  yolu lazım oda nedir diye soracak olursanız;

C:\documen~1\admini~1\deskt~1\klasör\    işte bu  lazım yani kısaltılmış hali  , bu  çıktıyı  hangi fonksiyon ile  ala bilirim ?

var
  aLongPath, aShortPath: string;
begin
  aLongPath  := 'C:\Program Files (x86)\Microsoft Visual Studio 10.0\Microsoft Visual Studio 2010 Ultimate - ENU\Logs';
  aShortPath := ExtractShortPathName(aLongPath);
  ShowMessage(aShortPath);
end;

hocam teşekkür ederim, işimi gördüm ama yinede sağ ol bunu da alayım ben