本文整理自网络,侵删。
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动态创建tadoquery加access出现'不正常的定义参数对象 提供了不一致或不完整的信息'错误
Delphi combobox和listbox的文字可以右对齐显示
更多相关阅读请进入《Delphi》频道 >>