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 unigui 获取files路径

Delphi如何在一个窗体中嵌入另一个窗体

Delphi中限制鼠标的移动区域

Delphi xe5 重启 关闭 windows 8

Delphi int64 与 currency

pe结构详细图

纯真ip数据库解析Delphi d10.1下正常使用

Delphi 检测进程是否存在

Delphi xe android 程序切换到后台及从后台切换到前台实现

Delphi fmx用timage显示不同格式的图片

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

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