Уменьшение длины имени

[Aндрей]

Мне в программе нужно укоротить путь до папки (использую TShellTreeView).

function ShortFileName(const FileName: string): string;
var aTmp: array[0..255] of Char;
begin
  if not DirectoryExists(FileName)  //FileExists(FileName)
    then Result:=''
    else if GetShortPathName(PChar(FileName), aTmp, Sizeof(aTmp)-1) = 0
      then Result:= FileName
      else Result:= StrPas (aTmp);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit2.Text:=(ShortFileName(Edit1.Text));
end;

Как я понял, чтобы эта функция работала, обязательно должен существовать файл, к которому указывается путь (иначе выдается пустое значение). А можно как-нидуть без файла обойтись? Например, чтобы она укорачивала такой путь:
C:\Documents and Settings\Андрей\Мои документы\DelphiWorld6\base\

[Манжосов Денис :)]

Функция ExtractFilePath()

Простите, не то. перепутал.

[MalCer]

ExtractFileDir(Application.ExeName) ;// только вернет путь к файлу без слэша на конце

[Alter]

Например так:

uses
   FileCtrl;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if Opendialog1.Execute then
     label1.Caption := MinimizeName(Opendialog1.FileName,
                                    label1.Canvas, label1.Width);
 end;