이 팁은 담비님(천리안 FREKBS)님이 1999년 04월 12일에 천리안 프로그래머포럼에 올리신 것입니다.
담비님으로부터는 전제하여 올리는 데 대해 허락을 받았습니다.
좋은 정보를 공유하도록 허락해주신 담비님께 감사드립니다.
───────────────────────────────────────

안녕하세요! 담비입니다.

출처 : http://www.inprise.co.jp/qanda/cbuilder/c0005004.html

Windows API SHBrowseForFolder()를 사용한다.

예)

 void __fastcall TForm1::Button1Click(TObject *Sender)
 {
    BROWSEINFO BrowsingInfo;
    char DirPath[MAX_PATH];
    char FolderName[MAX_PATH];
    LPITEMIDLIST ItemID;
    memset( &BrowsingInfo, 0, sizeof(BROWSEINFO) );
    memset( DirPath, 0, MAX_PATH );
    memset( FolderName, 0, MAX_PATH );
    BrowsingInfo.hwndOwner      = Handle;
    BrowsingInfo.pszDisplayName = FolderName;
    BrowsingInfo.lpszTitle      = "폴더를 선택하세요.";
    BrowsingInfo.ulFlags        = BIF_RETURNONLYFSDIRS;
    ItemID = SHBrowseForFolder( &BrowsingInfo );
    SHGetPathFromIDList(ItemID, DirPath );
    ShowMessage( DirPath );
    GlobalFreePtr( ItemID );
 }