闲话UI: 选择目录对话框

很多时候我们都会要求让用户选择一个文件夹。在很多论坛上都会有朋友问到这个问题：怎么能够显示如下一个对话框?

这用ShBrowserForFolder这个Windows API可以实现。
    WINSHELLAPI LPITEMIDLIST WINAPI SHBrowseForFolder(
        LPBROWSEINFO lpbi 
   );

在Delphi中有下面这个函数可以使用:
    function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload; (1)

但我更喜欢用这个(在一些简单的场合):
    function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload; (2)

但很多朋友不愿意，认为后面这个太难看。但在我看来，第一个对话框在可用性上是存在很大问题的:
   * 不能设置(并展开到)缺省的选择
   * 不能手工输入，这使得要进入一个层次深一点的目录非常麻烦
   * 不能新建目录

其实就ShBrowserForFolder这个API而言，第一个问题是很容易解决的，不过M$提供的是一种挺麻烦的方式: 你必须得编写回调函数(BrowseCallbackProc)，在BFFM_INITIALIZED消息里面发送BFFM_SETSELECTION消息。(我觉得Delphi在提供SelectDirectory(1)这个函数时就应该包装这个功能。)

对于第二个问题, 如果你的shell32.dll版本大于或等于4.71, 就可以有个手工输入路径的编辑框了, 只要在flags中包含BIF_EDITBOX;

对于第三个问题, 如果你的shell32.dll版本大于或等于5.0, 就可以有个"新建文件夹"按钮了, 只要在flags中包含BIF_NEWDIALOGSTYLE (而且这个版本有其他一些特性: 对话框大小可调, 目录可拖动, 目录有context menu(这可以带来其他一些功能)。

BTW:
1. lazarus中有TSelectDirectoryDialog控件，功能上等于Delphi的SelectDirectory(1)函数加上设置缺省目录功能。
2. DFS套件(Torry.Net上的信息)里面有一个dfsBrowseDirectoryDlg控件，支持shell32 5.0的NewDialogStyle，对这个功能包装得比较完整(其实上面的第三个图用得就是这个控件)，要添加新版本的特性(比如6.0的BIF_NOTRANSLATETARGETS等)也很容易。