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 控制台base64加密解密

Delphi动态创建tadoquery加access出现'不正常的定义参数对象 提供了不一致或不完整的信息'错误

Delphi源码获取网络图片缓存的地址

Delphi截图程序无窗口版

Delphi从内存(memorystream)使用wmp

Delphi api屏幕传输算法

Delphi中生成控件的两种方法

Delphi创建桌面快捷方式及锁定任务栏等功能

Delphi combobox和listbox的文字可以右对齐显示

Delphi 如何将图片转换成文本

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



打赏

取消

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

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

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

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

评论

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