8.3 Pfad in 'normalen' Pfad konvertieren

[himitsu]

Delphi-Quellcode:

Function ExpandShortPathName(Name: String): String;
  Var SR: TSearchRec;

  Begin
    Result := '';
    Repeat
      If FindFirst(Name, faAnyFile, SR) = 0 Then Begin
        If Result = '' Then Result := SR.Name
        Else Result := SR.Name + '\' + Result;
        FindClose(SR);
      End;
      Name := ExtractFileDir(Name);
    Until Length(Name) <= 3;
    If Name > '' Then Result := Name + '\' + Result;
  End;


Caption := ExpandShortPathName('K:\Progra~1\Gemein~1');