, borland er selectdirectory browser er ret grim, her er hvordan til at påberåbe sig vinduerne i stedet., anvender, shlobj, shellapi,,,,,,,,,,, funktion browseforfolder (klare: hwnd; strtitle: string, var strpath: string): boolean;,, var info: tbrowseinfo;,, vej: system [0 - max_path] char;,, poster: pitemidlist;,, begynder, resultat: = falske, vej: = ";,,, med info, begynder, hwndowner: = klare;,, pidlroot: = nul,,, pszdisplayname: = 0,,, lpsztitle: = pchar (strtitle);,, ulflags: = bif_returnonlyfsdirs;,, lpfn: = 0,,,,,,, post: = shbrowseforfolder (info), og, hvis det er blevet tildelt (enheder), så,,, begynder, shgetpathfromidliste (poster, vej), resultat: = sandt,,,,,,, strpath: = vej;,,,,,