BCB里面怎样改变Opendialog使之成为选择路径方式，有没有其他第三方组件可以实现？

[VEricv]

BCB里面怎样改变Opendialog使之成为选择路径方式，就像C#里面的Folderdialog；有没有其他第三方组件可以实现？

[ccrun.com]

OpenDialog本来就是提供一个选择文件名的对话框. 要显示选择目录的对话框, 用这个:

#include <FileCtrl.hpp>
#pragma link "vclx.lib"

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String strDir = "";

    if (SelectDirectory("请选择文件", L"", strDir))
        ShowMessage(strDir);
    else
        ShowMessage("没有选择文件");
}

[VEricv]

妖哥V5，谢谢！