폴더 검색창 입니다... (search folder, select dir)

폴더 검색창이 필요해서 검색해 보니, 이상하게

BrowseInfo: TBrowseInfo; 사용하는 소스만 나오더군요..

찾기 쉽게 기록해 놓습니다..

#include <FileCtrl.hpp>
.............
void __fastcall TfrmMain::Button3Click(TObject *Sender)
{
    String sDir;
    SelectDirectory("폴더 검색", "", sDir);
    ShowMessage(sDir);
}

#include <FileCtrl.hpp>
............
const SELDIRHELP = 1000;
.............
void __fastcall TfrmMain::Button3Click(TObject *Sender)
{
    AnsiString Dir = "C:\\Program Files\\";
    if (SelectDirectory(Dir, TSelectDirOpts(), SELDIRHELP))
        Label1->Caption = Dir;
}