Folgender Code gibt eine Fehlermeldung aus und zeigt nur einen Eintrag mit dem Standard Systemicon an. Ich hab so ziemlich alles ausprobiert aber es will einfach nicht funktionieren.
Code: Alles auswählen
#BIF_NEWDIALOGSTYLE = 64
pszPath = AllocateMemory(#MAX_PATH)
PokeS(pszPath,"C:\WINDOWS\",11,#PB_Unicode)
lpBuffer = AllocateMemory(#MAX_PATH)
lpbi.BROWSEINFO
lpbi\pidlRoot = SHSimpleIDListFromPath_(pszPath)
lpbi\pszDisplayName = lpBuffer
lpbi\lpszTitle = @"Please choose a path:"
lpbi\ulFlags = #BIF_NEWDIALOGSTYLE
SHBrowseForFolder_(lpbi)
Den Parameter pidlRoot mit SHGetSpecialFolderLocation() zu füllen ist billig und wird auch in allen Beipsielen benutzt die ich gefunden habe. Ich möchte aber einen benutzerdefinierten Pfad benutzen was komischerweise so nicht geht.
