SelectDirectory（）函数

#include <FileCtrl.hpp>

void __fastcall TOthersSettingForm::btnSelectNewPathClick(TObject *Sender)
{
　　String Dir = edt1->Text;
　　if (SelectDirectory(L"請選擇路徑", WideString(""),Dir))

　　 {
　　　　if (Dir.SubString(Dir.Length(),1) != '\')
　　　　Dir = Dir + "\";
　　　　MainForm->FileInfo.asPath = Dir;
　　}
　　edt1->Text = Dir ;
}