delphi 删除文件

del('C:\Users\Administrator\Desktop\delphi\wenjian\Win32\Debug\','*.txt');

//删除文件       目录           //文件名 可以有通配符    
procedure del(mulu : string ; f : string);
var
  SearchRec : TSearchRec;
begin
  //查找相应目录的指定文件  文件类型 any 存放查找结果
  if FindFirst(mulu+f, faAnyFile, SearchRec)=0 then
  begin
    repeat
       //修改文件属性为普通属性值  不然可能无法删除  
       FileSetAttr(mulu+SearchRec.Name,0);
       //删除文件  查找的结果会存放到 name
       DeleteFile(mulu+SearchRec.Name);
       //继续按查找第一个的条件查找下一个文件    
    until(FindNext(SearchRec)<>0);
  end;
  //释放内存
  FindClose(SearchRec);
end;

关于deletefile 这个函数 我引用的是 System.SysUtils  

还有一个是引用Winapi.Windows    功能一样  System.SysUtils  里的也是调用windows下的

System.SysUtils   传递的参数为string

Winapi.Windows  需要类型转换一下PChar(这里放的是string);