[Unicode版本]在BCB中使用选择文件夹对话框

by jingzhongrong

 

原文地址：http://blog.youkuaiyun.com/jingzhongrong/archive/2007/01/02/1472452.aspx

 

由于使用到了UnicodeString,因此，本篇文章只适用于BCB2009。

 

使用方法，见文章后。

 

效果：

 

theFolderDialog.h如下：

1. //---------------------------------------------------------------------------
2. #define NO_WIN32_LEAN_AND_MEAN
3. #ifndef theFolderDialogH
4. #define theFolderDialogH
5. //---------------------------------------------------------------------------
6. #include <shlobj.h>
7. #include <vcl.h>
8. class FolderDialog
9. {
10. private:
11.    BROWSEINFO FInfo;
12.    wchar_t* FTitle;
14. protected:
15.      wchar_t FFolderName[260];        /**保存返回的目录名称*/
16.      UnicodeString FFolderPath;       /**保存路径名*/
17.      UnicodeString __fastcall GetDialogTitle() { return FTitle; }
18.      void __fastcall SetDialogTitle(const UnicodeString& title);
19.      UnicodeString __fastcall GetFolderPath() { return FFolderPath; }
20.      UnicodeString __fastcall GetFolderName() { return UnicodeString(FFolderName); }
22. public:
23.    /**初始化调用句柄
24.    @HwndOwner 调用者句柄
25.      */
26.    FolderDialog(HWND HwndOwner);
27.    FolderDialog();    //如果没有指定句柄，则需使用带参数的Execute函数
28.      void __fastcall SetBrowseInfoFlags(UINT ulFlags);     /**提供对FInfo的自定义*/
29.      bool __fastcall Execute(void);       //打开对话框
30.      bool __fastcall Execute(HWND HwndOwner);
31.      __property UnicodeString Title={read=GetDialogTitle, write=SetDialogTitle};
32.      __property UnicodeString FolderName={read=GetFolderName};
33.      __property UnicodeString FolderPath={read=GetFolderPath};
35. };
37. #endif

theFolderDialog.cpp如下：

1. //---------------------------------------------------------------------------
2. #pragma hdrstop
3. #include "theFolderDialog.h"
4. //ver 1.3
5. //* 修正可能的内存泄露问题
6. //* 修正SetBrowseInfoFlags函数
7. //+ 使用CoInitialize以及BIF_USENEWUI可以支持有新建文件夹按钮的对话框
8. //ver 2.0
9. //* Unicode版本
10. //---------------------------------------------------------------------------
11. #pragma package(smart_init)
13. #define INFO_BUFFER_SIZE 32767
15. FolderDialog::FolderDialog(HWND HwndOwner)
16. {
17.    memset(&FInfo,0,sizeof(BROWSEINFO));
18.    memset(FFolderName,0,260);
19.    FInfo.hwndOwner = HwndOwner;
20.    FInfo.pszDisplayName = FFolderName;
21.      FInfo.lpszTitle = L"请选择目录";
22.      FInfo.ulFlags = BIF_RETURNONLYFSDIRS;
23.      FTitle = new wchar_t[wcslen(FInfo.lpszTitle)+1];
24.    wcscpy(FTitle,FInfo.lpszTitle);
25.      FTitle[wcslen(FInfo.lpszTitle)] = 0;
26. }
28. FolderDialog::FolderDialog()
29. {
30.    memset(&FInfo,0,sizeof(BROWSEINFO));
31.    memset(FFolderName,0,260);
32.    FInfo.pszDisplayName = FFolderName;
33.      FInfo.lpszTitle = L"请选择目录";
34.    FInfo.ulFlags = BIF_RETURNONLYFSDIRS;
35.      FTitle = new wchar_t[wcslen(FInfo.lpszTitle)+1];
36.      wcscpy(FTitle,FInfo.lpszTitle);
37.      FTitle[wcslen(FInfo.lpszTitle)] = 0;
38. }
40. void __fastcall FolderDialog::SetBrowseInfoFlags(UINT ulFlags)
41. {
42.    FInfo.ulFlags |= ulFlags;
43. }
45. bool __fastcall FolderDialog::Execute()
46. {
47.    LPITEMIDLIST ItemID;
48.      wchar_t SelectDir[INFO_BUFFER_SIZE] = { 0 };
49.      ItemID = SHBrowseForFolder(&FInfo);
50.    if(ItemID)
51.    {
52.       SHGetPathFromIDList(ItemID,SelectDir);
53.       GlobalFree(ItemID);
54.       FFolderPath = UnicodeString(SelectDir);
55.       return true;
56.    }
57.    else
58.    {
59.       return false;
60.    }
61. }
63. bool __fastcall FolderDialog::Execute(HWND HwndOwner)
64. {
65.    FInfo.hwndOwner = HwndOwner;
66.    if(Execute())
67.    {
68.       return true;
69.    }
70.    else
71.    {
72.       return false;
73.    }
74. }
76. void __fastcall FolderDialog::SetDialogTitle(const UnicodeString& title)
77. {
78.     if(FTitle != NULL)
79.     delete FTitle;
80.     FTitle = new wchar_t[title.Length()+1];
81.     wcscpy(FTitle,title.w_str());
82.   FTitle[title.Length()] = 0;
83.   FInfo.lpszTitle = FTitle;
84. }

 

使用方法：

1、将上述文件添加到工程中。

2、在使用处添加下面代码：

1. // set the folder selection dialog box to the centre of the form
2. // use CoInitialize to initialize COM library on a thread
3. // we can use BIF_USENEWUI flags , see MSDN for more information
4.     CoInitialize(NULL);
5.     FolderDialog fd;
6.     fd.Title = L"请选择工程根目录目录:";
7.     fd.SetBrowseInfoFlags(BIF_BROWSEFORCOMPUTER|BIF_NEWDIALOGSTYLE|BIF_NONEWFOLDERBUTTON);
9.     fd.Execute(Application->Handle);
10.     if(fd.FolderPath != "")
11.     {
12.         this->LabeledEdit1->Text = fd.FolderPath;
13.     }
14.     CoUninitialize();

 

如果需要“新建文件夹”按钮请根据MSDN:BROWSEINFO结构的ulFlags所描述的进行修改。