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内存对齐

Delphi ifileoperation替换shfileoperation

Delphi安装*.pas扩展名的控件

Delphi tfilestream 逐行读取文本

Delphi 公历到农历的转换法

Delphi 判断正在运行的设备是iphone还是ipad

Delphi 字符串对比比较

Delphi的idhttp报iohandler value is not valid错误的原因

Delphi 获取路径分隔符

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

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