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 有关debughook

Delphi 利用http的post方法做个在线翻译的小工

Delphi的stringreplace 字符串替换函数

Delphi中获取客户区坐标

Delphi �c 如何将多个文件扩展名传递给tdirectory.getfiles？

Delphi 完美获取硬盘id

Delphi 使richedit中的链接可以点击

Delphi的整数性能测试

Delphi中禁用和取消android应用睡眠

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

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