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], 0) 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;