本文整理自网络,侵删。
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 win32_networkadapter 网卡 参数说明
Delphi socket connect timeout 套字节链接超时设置
Delphi 判断iso文件,iso文件头, iso filehead
Delphi xe5 android手机端转换ansi字符串
更多相关阅读请进入《Delphi》频道 >>