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 几个和当前路径相关的新函数

Delphi x 的 y 次方

Delphi xe5 与其他版本共存

Delphi 10 seattle plus 新特性――system.json.builders

dll与exe之间的恩爱情仇

winsock 实现telnet后门

webbrowser点击没有id和name的按钮或链接

Delphi crc32算法

Delphi 将图片压缩后转base64函数

Delphi xe2 - 实现主窗口在任务栏上不显示

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

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