Delphi 文件函数

1.判断文件是否存在

FileExist(FileName:string)

2.删除文件

DeleteFile(FileName:string)

3.判断当前系统是否隐藏文件后缀名

// 返回：0是显示文件扩展名 1是隐藏文件扩展名
function HideFileName:Integer;
var
  FileExt:TRegistry;
  ExtInt:Integer;
begin
   fileExt:=TRegistry.Create;
   FileExt.RootKey:=HKEY_CURRENT_USER;
   FileExt.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced',true);
   ExtInt:=FileExt.ReadInteger('HideFileExt');
   result:=ExtInt;
end;

转载于:https://www.cnblogs.com/Delzl/archive/2011/05/17/2048623.html