uses
FileCtrl;
procedure TForm1.Button3Click(Sender: TObject);
var
    strCaption,strDirectory:String;
    wstrRoot:WideString;
begin
    strCaption:='这是浏览文件夹的说明文字，可以根据需要进行书写。'
    +#13#10+'一般二行文字就满了。';
    //该参数是浏览文件夹窗口的显示说明部分
    wstrRoot:='D:\GreenSoft';
    //这个参数表示所显示的浏览文件夹窗口中的根目录，默认或空表示“我的电脑”。
    SelectDirectory(strCaption,wstrRoot,strDirectory);
    Label1.Caption:=strDirectory;
    //传递结果，其中参数strDirectory表示函数的返回值
    Label1.Refresh;
end;