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 一行一行读取txt文件

Delphi memo加个prompttext

Delphi判断按下的是回车键?

Delphi xe android 使用system.zip单元释放资源文件

Delphi recodedatetime、recodedate、recodetime、recodeyear ... 修改时间

Delphi模仿“千千静听”滚动标题栏，非常简单！

Delphi webbrowser多次执行documentcomplete

Delphi memo中禁止汉字

Delphi 修改webbrowser的内容

Delphi 调用极光推送服务端http api实例

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

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