Opendialog 定位到文件和文件夹

在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.