文件操作及常用函数整理

目前用到的，以后会慢慢加。

{File处理  在SysUtils, FileCtrl单元}
{ExpandFileName() 返回文件的全路径(含驱动器、路径)
ExtractFileExt() 从文件名中抽取扩展名
ExtractFileName() 从文件名中抽取不含路径的文件名
ExtractFilePath() 从文件名中抽取路径名
ExtractFileDir() 从文件名中抽取目录名
ExtractFileDrive() 从文件名中抽取驱动器名
ChangeFileExt() 改变文件的扩展名
ExpandUNCFileName() 返回含有网络驱动器的文件全路径
ExtractRelativePath() 从文件名中抽取相对路径信息
ExtractShortPathName() 把文件名转化为DOS的8·3格式
MatchesMask() 检查文件是否与指定的文件名格式匹配
ExtractFilePath(FileName:String)
该函数返回路径名，其结尾字符总是“\”
ExtractFileDir(FileName:String)
该函数同样返回路径名，但不包括结尾的字符“\”，除非返回的路径是根目录。
}

删除目录的函数，需要引用ShellAPI。Source为目录路径。

function DelDirectory(const Source: string): boolean;
var
  fo: TSHFILEOPSTRUCT;
begin
  FillChar(fo, SizeOf(fo), 0);
  with fo do
  begin
    Wnd := 0;
    wFunc := FO_DELETE;
    pFrom := PChar(source + #0);
    pTo := #0#0;
    fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
  end;
  Result := (SHFileOperation(fo) = 0);
end;

检测一个目录是否存在。如果不存在自动创建一

function DirCheck(ADir: string): Boolean;
begin
  Result := True;
  try
    if not DirectoryExists(ADir) then
      ForceDirectories(ExtractFilePath(ADir));
  except
    Result := False;
  end;
end;