4．ForceDirectories 函数

创建指定的目录。通常在创建一个目录的时候，其父级目录必须存在。但是使用ForceDirectories创建目录的时候就没有这个限制，可以将所需的所有目录一次创建。如果创建成功，则函数返回True；

如果有任何一个目录创建失败，则返回False。函数原型如下：

function ForceDirectories(Dir: string): Boolean;

下面这段示例代码对ForceDirectories 函数和DirectoryExists 函数进行了说明。

uses FileCtrl; //必须在uses 语句中增加这个说明

...

procedure TForm1.Button1Click(Sender: TObject);

var

Dir: string; //目录名称

begin

Dir:=’C:SamplesCapturePhoto’; //一次创建3 级目录

ForceDirectories(Dir);

if DirectoryExists(Dir) then

MessageDlg(Dir+’已经存在!’,mtInformation, [mbOK], 0);

end;