支持通配符的文件删除

// 删除当前目录下的一类文件：

{1, 支持通配符，如 *.txt, *.* 等

2, 不能删除文件夹

3, 如果要删除某文件夹下的文件， 不许更改

    当前路径到改文件夹下，如：

     //var CurrDir: string;

      CurrDir :=GetCurrentDir;

      chdir('a_dir');

      DelSomeFiles('*.*');

      chdir(CurrDir);

}

Procedure DelSomeFiles(fn: string);

var

 SearchRec: TSearchRec;

begin

 FindFirst(fn, faAnyFile, SearchRec);

 repeat

   if FileExists(SearchRec.Name) then

   begin

     FileSetAttr(SearchRec.Name,0); //修改文件属性为普通属性值

     DeleteFile(SearchRec.Name); //删除文件

   end;

 until (FindNext(SearchRec)<>0);

 FindClose(SearchRec);

end;