delphi调用选择目录对话框

delphi调用选择目录对话框
经常见网上有人问选择目录对话框的控件，其实只用一个函数就可以实现。

注意引用 Filectrl 单元

use Filectrl;

procedure TForm1.Button1Click(Sender: TObject);
var
Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
ShowMessage(Dir);
end;