如何设置文件夹路径？

Question

有一个设置按钮。。点击后弹出打开文件夹的框框。。选中文件夹后可以点确定应该用什么组件？？
我用opendialog  非得打开某一个文件才行如果这个文件夹为空的话。。就设置不了路径了。。~~请教下各位大哥大姐。。应该用啥组件？最好delphi自带的~~

Answer 1

  ？用DirectotyExists  和 CreateDir？？？  这是不是要自己填写路径的？~~edit1.text:='自己填写？';
if DirectotyExists = true then
  CreateDir(edit1.text)；
是这么写么？~~有没有不用自己填写的？

Answer 2

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

Answer 3

uses FileCtrl;{记得要先引用这个}var
  Dir: string;
begin
  SelectDirectory('选择你要 XXOO 的目录', '', Dir);
  ShowMessage('你选择了这个目录来 XXOO ' + Dir);
end;