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

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

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

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

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

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

       参数二所指目录：

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

 

所在单元：Vcl.FileCtrl

 

代码部分

1 procedure TForm1.Button_Type1Click(Sender: TObject);2 var3     Dir: string;4 begin5     Dir := 'H:\'; //设置初始目录，可不设置6     if not SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then Exit;7     Edit_Path.Text := Dir;8 9 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;