文件操作及常用函数整理

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

{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;