【轉】Delphi選擇文件夾

在Delphi中，定位文件的操作主要有兩種方法。一種是直接定位文件，即通過“打開”對話框（OpenDialog）控件來實現。另一種是只定位到文件夾，然后再在此文件夾內尋找文件，這種定位方法是利用Delphi提供的SelectDirectory函數。這個函數是在FileCtrl單元中定義的，因此在使用時不要忘記在Uses中加入單元名。

　　下面就以一個例子來說明這兩種方法在Delphi中的具體實現：

　　首先建立一個新的工程，然后在窗體上加入兩個按鈕控件、一個“打開”對話框，再加入兩個標簽控件作為兩種實現結果的存儲控件。

　　各個控件的主要屬性設置如下：

　　Button1中：

　　Caption='直接定位文件'

　　 Button2中：

　　Caption='定位到文件夾'

　　OpenDialog1中：

　　Filter= '所有文件（*.*）|*.*|'

　　+'文本文件（*.txt）|*.txt|'

　　+'應用程序（*.exe,*.com）|*.exe;*.com'

　　FilterIndex=1

　　下面是實現的具體程序代碼：

　　unit FileLocateUnit1;

　　interface

　　uses

　　……,FileCtrl;

　　type

　　TForm1 = class(TForm)

　　 Button1: TButton;

　　……

　　implementation

　　{$R *.DFM}

　　//直接定位到文件的實現代碼

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　OpenDialog1.Execute;

　　//執行“打開”文件對話框

　　Label1.Caption:=OpenDialog1.FileName;

　　//將返回的結果值傳遞給控件Label1

　　//要注意，只有當用戶選擇了一個文件並且按了“確定”按鈕后才能返回此結果。

　　Label1.Refresh;

　　end;

　　//定位到文件夾的實現代碼

　　procedure TForm1.Button2Click(Sender: TObject);

　　var

　　strCaption,strDirectory:String;

　　wstrRoot:WideString;

　　begin

　　strCaption:='這是瀏覽文件夾的說明文字，可以根據需要進行書寫。'

　　+#13#10+'一般二行文字就滿了。';

　　//該參數是瀏覽文件夾窗口的顯示說明部分

　　wstrRoot:='';

　　//這個參數表示所顯示的瀏覽文件夾窗口中的根目錄，默認或空表示“我的電腦”。

　　SelectDirectory(strCaption,wstrRoot,strDirectory);

　　Label2.Caption:=strDirectory;

　　//傳遞結果，其中參數strDirectory表示函數的返回值

　　Label2.Refresh;

　　end;

　　end.

　　按F9編譯執行上面的代碼，執行結果如圖1所示。

　　從兩種方法的比較來看，如果想讓用戶直觀地選擇文件，我們可以使用“打開”對話框控件；如果只想定位到文件夾，或者想將程序存取的文件對用戶保密，我們應選擇函數SelectDirectory作為實現的手段。

　　另外，如果想限制用戶定位文件的權限，最好使用函數SelectDirectory來實現，因為它通過使用Root參數限定了根目錄的位置，並且不能再向上返回。圖2是限定根目錄為C:\Program Files\Borland\Delphi5的情況，這樣就可以更好地避免用戶誤操作，而使用“打開”對話框控件則不能實現這一要求。