支持通配符的文件删除

//删除当前目录下的一类文件： {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;