SelectDirectory函数问题。

Question

可不可以打开就指定目录，不要告诉我设置第二个参数为我想要的目录，这样要选其他目录就选不到了。

Answer 1

那opendialog可不可以设置成只选目录？

Answer 2

Delphi的FileCtrl单元定义了两个调用SelectDirectory函数的方法，函数原型为：
function SelectDirectory(var Directory: string;
  Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
function SelectDirectory(const Caption: string; const Root: WideString;
  out Directory: string): Boolean; overload;其中：
function SelectDirectory(var Directory: string;
  Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
是Delphi自己实现的浏览选择目录的函数， Directory 参数返回你所选择的目录；function SelectDirectory(const Caption: string; const Root: WideString;
  out Directory: string): Boolean; overload;
是Delphi对Windows的API函数的封装，const Caption: string中的const
是Delphi参数传递的一种方式，Root是从哪个根目录开始浏览, Directory参数返回
你所选择的目录！

Answer 3

procedure TConfigfrm.btnModelFilePathClick(Sender: TObject);
var
    sDir: string;
begin
    sDir := edtModelFilePath.Text;
    if SelectDirectory('模版文件保存路径浏览...','',sDir) then
        edtModelFilePath.Text := sDir;
end;