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;

posted on 2011-05-17 11:00  smiling face  阅读(374)  评论(0编辑  收藏  举报