Windows wechseln Sie im Dialogfeld Ordner aufrufen

Windows wechseln Sie im Dialogfeld Ordner aufrufen

Windows wechseln Sie im Dialogfeld Ordner aufrufen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Borlands SelectDirectory Browser ist ziemlich hässlich, hier ist wie die Fenster eines stattdessen aufgerufen.
verwendet
ShlObj, ShellAPI;
......
Funktion Entpackvorgang (Handle: HWND; StrTitle: String; Var StrPath: Zeichenfolge): boolean;
Var-Info: TBROWSEINFO;
Pfad: [0..MAX_PATH] Array von Char;
Artikel: PITEMIDLIST;
beginnen
Ergebnis: = False;
Pfad: ='';
mit Info-do
beginnen
HwndOwner: = Griff;
PidlRoot: = Nil;
PszDisplayName: = Nil;
lpszTitle:=PChar(strTitle);
UlFlags: = BIF_RETURNONLYFSDIRS;
Lpfn: = Nil;
Ende;
Items:=SHBrowseForFolder(Info);
Wenn assigned(items) dann
beginnen
SHGetPathFromIDList(items,path);
Ergebnis: = True;
Ende;
StrPath: = Pfad;
Ende;