DELPHI 树形目录选择对话框

树形目录选择对话框

加入单元FileCtrl

var
 dir:string;
begin //选择路径
   if SelectDirectory('Select a directory','',Dir) then
     begin
       if Dir[length(Dir)]<>'/' then Dir:=Dir+'/';
       form1.EditFilePath.Text:=Dir;
     end;
end;