引用单元：SysUtils
function ForceDirectories(Dir: string): Boolean; //创建多级目录 父目录不必存在 （Force 有暴力、强制的意思）
function CreateDir(const Dir: string): Boolean; //创建一级目录 父目录必需存在
例如：D:\文档\计 算 机\我的delphi\我的制作
不存在的文件目录有 ：计 算 机\我的delphi\我的制作
ForceDirectories 函数 会同时创建这三个目录 计 算 机、我的delphi、我的制作
CreateDir 函数 如果不存在 计算机 这个目录，则返回创建 [我的制作] 文件夹失败