delphi 删除文件的函数


本文整理自网络,侵删。

 procedure DeleteVirusFile(sFileName:String); 
begin
while FileExists(sFileName) do
begin
SetFileAttributes(PChar(sFileName),FILE_ATTRIBUTE_ARCHIVE);
if DeleteFile(sFileName) then
Form1.memo1.Lines.Add('病毒文件'+sFileName+'删除成功!');
end;
end;

相关阅读 >>

Delphi 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法

Delphi ide 默认保存路径设置

Delphi 编译发布安卓的app名字问题

Delphi 16 进制转换为 10进制

Delphi removedir 删除文件夹

Delphi 判断com端口是否存在

Delphi图像匹配算法

Delphi idhttp post中文的问题

Delphi combobox1dropdown 生成动态下拉列表

Delphi 一行关键代码阻止360云查杀

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...