8.3 Pfad in 'normalen' Pfad konvertieren

[c113plpbr]

Hi leute!

Der Titel sagt eigentlich schon alles: Ich möchte eine 8.3 Pfad (z.B. 'c:\progra~\xyz\') in einen 'normalen' Pfad konvertieren. Weiß jemand wie ich das anstellen kann?

Nebenbei: Falls es schon einen ähnlichen Thread gibt: ich hab ja gesucht ... aber ohne erfolg, vorallem weil die DP-Suche den Punkt nicht unterstützt, und ein ähnlicher begriff is mir nicht eingefallen ...

thx für antworten

[mirage228]

Versuch den Ordner mit FindFirst zu finden. Und schau dir "AlternateFileName" und "FileName" des TSearchRec Ergebnisses an.

mfG
mirage228

[c113plpbr]

Also irgendwie krieg ich das nicht ganz hin. Sowas wie 'alternatefilename' gibts da nicht. Ich krieg zwar den 'richtigen' Dateinamen, aber nicht den 'richtigen' Pfad ... sowas wie nen codebeispiel ware auch nicht schlecht ... danke

[himitsu]

Die umgekerte Funktion gibt es ja.

Von Lang auf 8.3, vieleicht gibt es da auch einen in deiner Richtung.

function ExtractShortPathName(const FileName: string): string;

[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');