本文整理自网络,侵删。
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 xe filesizebyname 要引用哪些文件
Delphi2010 图片格式转换bmp, png,jpeg, gif, tiff , wmphoto
Delphi httpclient async异步获取网页代码
更多相关阅读请进入《Delphi》频道 >>