Lange Pfade in Kurze (Tilded) "DOS" Pfade umwandeln?

[supermuckl]

Hallo.
Ich such mir grad einen ab, aber finde nichts an Windows APIs,
die mir einen langen Pfad (mit leerzeichen und so weiter) in einen gekürzten Pfad ( der mit ~ abgeschlossen ist z.b.) umwandelt

also diese "DOS" Pfad/Dateinamen.

gibt es da eine API die mir das umwandelt ?

[Ferber]

Hi !
Falls Office installiert ist findest Du unter

"C:\Programme\Microsoft Office\Office\Samples\SAMPLES.XLS"

ein brauchbares Beispiel in VB.

Delphi-Quellcode:

Private Declare Function GetShortPathName Lib "KERNEL32.DLL" Alias "GetShortPathNameA" _
                                                            (ByVal lpctstrLongName As String, _
                                                            ByVal lptstrShortName As String, _
                                                            ByVal bufLen As Long) As Long

Sub Get_Short_Name()
    Dim LongStr As String, ShortStr As String
    Dim lStrLen As Long, lRet As Long
    
    'LongStr  ist irgend ein langer Dateiname.
    'ShortStr ist der hierzu definierte Name, der der
    '         DOS-Namenskonvention (8+3 Zeichen)genügt.
    
    LongStr = ThisWorkbook.FullName
    lRet = GetShortPathName(LongStr, ShortStr, lStrLen)
    'Mit dem folgenden Befehl legen wir einen Puffer an,
    'der genauso lang ist wie die zurückgegebene Zeichenkette.
    'Damit ersparen wir uns, die Zeichenkette links abschneiden
    'zu müssen.
    ShortStr = String(lRet, " ")
    lRet = GetShortPathName(LongStr, ShortStr, lRet)
    MsgBox LongStr & "   entspricht dem Kurzen Namen   " & ShortStr
End Sub

[supermuckl]

ok vielen dank :)

aus der delphi hilfe:

Delphi-Quellcode:

DWORD GetShortPathName(

    LPCTSTR lpszLongPath,   // points to a null-terminated path string
    LPTSTR lpszShortPath,   // points to a buffer to receive the null-terminated short form of the path 
    DWORD cchBuffer    // specifies the size of the buffer pointed to by lpszShortPath
   );