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);