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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

大米粥哥哥

感谢认可!

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值