Borland sin SelectDirectory nettleser er ganske stygg, her er hvordan å påberope Windows ene instead.uses ShlObj, ShellAPI; ...... funksjon BrowseForFolder (håndtak: HWND; strTitle: string; Var strPath: string ): boolean, Div info: TBROWSEINFO; sti: array [0..MAX_PATH] av Char; poster: PITEMIDLIST; begynne Resultat: = false; bane: = ''; med info gjør begynne hwndOwner: = håndtere; pidlRoot: = null; pszDisplayName: = null; lpszTitle: = PChar (strTitle); ulFlags: = BIF_RETURNONLYFSDIRS; lpfn: = null; slutt; elementer: = SHBrowseForFolder (info); hvis tildelt (elementer), og start SHGetPathFromIDList (elementer, bane); Resultat: = true; slutt; strPath: = Sti; ende; Anmeldelser