Vcl.FileCtrl.SelectDirectory

描述：显示一个目录的对话框(属于Delphi)

function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean;

参数一：存放返回值。可设置当前选择目录，不设置则为程序运行目录。

参数二：[]:目录不可编辑，只能手动选择

[sdAllowCreate]: 目录可编辑，目录不存在不负责创建。                    [asAkkiwCreate, sdPerformCreate]:目录可编辑， 目录不存在直接创建。

[asAkkiwCreate, sdPerformCreate, sdPrompt]:目录可编辑，目录不存在提示是否创建，使用时，一般使用此参数。

参数二所指目录：

　　参数三：帮助按钮0为不显示。 官方示例传入1000，没找到其他

所在单元：Vcl.FileCtrl

代码部分

 procedure TForm1.Button_Type1Click(Sender: TObject);
 var
     Dir: string;
 begin
     Dir := 'H:\'; //设置初始目录，可不设置
     if not SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], ) then Exit;
     Edit_Path.Text := Dir;

 end;

---------------------------------------------------------------------------------------------------------------------------------------------

描述：显示一个目录的对话框(属于Windows)

function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string): Boolean;

　 参数一：标题

参数二：初始选择目录

参数三：返回值。此参数不能和参数二共用一个变量。

代码部分

procedure TForm1.Button_Type2Click(Sender: TObject);
var
    Dir, DefDir: string;
begin
    DefDir := 'H:\'; //设置初始目录，可不设置
    if not SelectDirectory('请选择目录', DefDir, Dir) then Exit;
    Edit_Path.Text := Dir;
end;