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 利用google api生成二维码图像

Delphi获取闲置时间

Delphi idhttp中get 图像链接通过memorystream加载 image控件显示

Delphi异常重启自身

Delphi 在richedit中插入gif图片的方法

Delphi xe 下打开内存泄漏调试功能

Delphi 什么是堆、栈?

Delphi 打开win8及以上操作系统的系统已安装程序目录

Delphi listview 实现进度条显示

Delphi 从 exe 或 dll 中获取图标的函数

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

转载请注明出处：木庄网络博客 » delphi 删除文件的函数