1.CreateDir 函数
新建一个目录。如果创建成功，则返回True；否则返回False。函数原型如下：
function CreateDir(const Dir: string): Boolean;
例如要在C 盘根目录下建立一个Tem 目录可以编写如下代码：
CreateDir(’C:\Tem’);
如果想在“C:\Acc”目录下建立一个“A”目录，而“C:\Acc”目录不存在，以下的代码将不能创建“A”目录。
CreateDir(’C:\Acc\A’);
2. ChDir 过程
改变当前的目录。如果在指定路径中包含有驱动器号（盘符），则相应地改变当前的驱动器。过程原型如下：
procedure ChDir(S: string);
例如将当前目录更改为“C:\Windows”目录，可以这样写：
ChDir(’C:\Windows’);
3．DirectoryExists 函数
检测指定的目录是否存在。如果存在，函数则返回True；否则，返回False。函数原型如下：
function DirectoryExists(Name: string): Boolean;
如果在参数Name 中指定的不是绝对路径，则使用相对路径，默认在当前目录中进行查询。
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:\Samples\Capture\Photo’; //一次创建3 级目录
ForceDirectories(Dir);
if DirectoryExists(Dir) then
MessageDlg(Dir+’已经存在!’,mtInformation, [mbOK], 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str_dir:string;
begin
str_dir := 'c:\PTScore1';//无法同时创建子目录
if not DirectoryExists(str_dir) then
if not CreateDir(str_dir) then
raise Exception.Create('Cannot create '+str_dir);
str_dir := 'c:\PTScore2\1\2';
if not DirectoryExists(str_dir) then //包括其子目录一块创建
if not ForceDirectories(str_dir) then
raise Exception.Create('Cannot create '+str_dir);
end;
