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;