ShortPath in Delphi?

[Gerhard Seyfarth]

Im Windows Scripting Host gibt es die Funktion ShortPath, um einen ganzen Pfad 8.3-kompatibel anzuzeigen. Gibt es so etwas auch unter Delphi? (Ich meine nicht den cAlternateName aus TWin32FindData, mit der immer nur ein Verzeichnisname angezeigt wird.)<p>
Gerhard<p>

[Patrick Sack]

Hi,
<br>
<br>Function GetShortPath( PathStr : String) : String;
<br>Var
<br> p : pchar;
<br> x : dword;
<br>begin
<br> {p := stralloc(length(PathStr)+1);}
<br> {keine spielchen mehr wie oben deshalb 255 (damit ich bloß nicht in
<br> speicher bedrengnis komme)
<br> wenn nämlich F:\lw h dann shortform = F:\lwh~1
<br> und wie man sehen kann ist shortform auf einmal
<br> größer als langname und dann drehen natürlich diese
<br> bescheidenen NULL terminierten Strings total durch}
<br> p := stralloc(255);
<br> x := getshortpathname(pchar(PathStr),p,255);
<br> {p ist jetzt vielleicht 255 doch wenn es dann nach getshortpath geht
<br> wird die Länge korrekt eingestellt d.h. z.b. auf 7 und das ist OK}
<br> if (X = 0) Then
<br> GetShortPath := ''
<br> Else
<br> GetShortPath := p;
<br> strdispose(p);
<br>end;
<br>
<br>mfg
<br>p