SelectDirectory 可以打开 3 种不同的打开文件夹对话框。

• 目前比较常用的选择文件夹对话框
• 老式的选择文件夹对话框
• 和选择文件一样的选择文件夹对话框

一. 目前比较常用的选择文件夹对话框

bool __fastcall SelectDirectory(const UnicodeString Caption, const WideString Root, UnicodeString &Directory, TSelectDirExtOpts Options = TSelectDirExtOpts() << TSelectDirExtOpt::sdNewUI, TWinControl *Parent = NULL);

【注1】这个 SelectDirectory 函数的内部是通过 TBrowseForFolder 来实现的，如果需要这个功能，需要在程序里面直接使用 TBrowseForFolder 这个类来完成这个功能，SelectDirectory 函数无法使用 OnValidate 事件。

例子：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    UnicodeString sDir;
    if(SelectDirectory(L"请选择存储的位置", L"", sDir, TSelectDirExtOpts() << TSelectDirExtOpt::sdNewUI << TSelectDirExtOpt::sdNewFolder << TSelectDirExtOpt::sdShowEdit, this))
    {
        ShowMessage(L"你选择的位置是：\r\n" + sDir);
    }
}

运行结果：

常用的选择文件夹的对话框

点击确定按钮选择了文件夹

二. 老式的选择文件夹对话框

bool __fastcall SelectDirectory(System::UnicodeString &Directory, TSelectDirOpts Options, int HelpCtx);

例子：

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    UnicodeString sDir;
    if(SelectDirectory(sDir, TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt, 0))
    {
        ShowMessage(L"你选择的位置是：\r\n" + sDir);
    }
}

运行结果：

老式的打开文件夹对话框

点击确定按钮选择了文件夹

三. 和选择文件一样的选择文件夹对话框

bool __fastcall SelectDirectory(const UnicodeString StartDirectory, DynamicArray<UnicodeString> &Directories, TSelectDirFileDlgOpts Options = TSelectDirFileDlgOpts() , const UnicodeString Title = UnicodeString(), const UnicodeString FolderNameLabel = UnicodeString(), const UnicodeString OkButtonLabel = UnicodeString());

• 这个对话框允许选择多个文件夹；
• 这个对话框需要 Vista 之后的操作系统，这个函数的内部是通过 Vista Dialogs 里面的 TFileOpenDialog 实现的。

【注2】这个函数内部是通过 IFileDialog 实现的，这个选项隐藏的是通过 IFileDialog::AddPlace 添加的项目，对于这个函数来说，无法访问 IFileDialog，如果包含了这个选项只能是默认的情况，就是隐藏了所有的标准的路径，只剩下了经常访问的文件夹。

例子：

void __fastcall TForm1::Button3Click(TObject *Sender)
{
    DynamicArray<UnicodeString> sDirectories;
    if(SelectDirectory(L"", sDirectories, TSelectDirFileDlgOpts() << sdAllowMultiselect, L"请选择存储的位置", L"文件夹名字", L"选择文件夹"))
    {
        UnicodeString sDir = L"你选择的位置是：";
        for(int i=0; i<sDirectories.Length; i++)
        {
            sDir += L"\r\n" + sDirectories[i];
        }
        ShowMessage(sDir);
    }
}

运行结果，SelectDirectory 函数后面 3 个参数显示在下面截图的 3 个箭头所指位置：

Vista 之后的选择文件夹对话框

点击了 “选择文件夹” 按钮选择的文件夹