delphi SelectDirectory 选择文件夹

 

 

uses FileCtrl;　　　　　　//引用这个单元就可以了,不用添加其他打开类组件
var
Dir: string;
begin
if SelectDirectory( '选择目录 ', ' ',Dir) then 　　　　//Dir存储着用户选择的目录名称
edit1.Text :=dir;
end;