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 fdconnection1 获取数据库总记录数

Delphi多级指针

Delphi修改默认打印机

Delphi 获取ie中选项卡标题

Delphi isipadress 非正则表达式验证ip的方法

Delphi图片base64编码

Delphi 通过api 隐藏任务栏时间日期

Delphi获取uri的查询参数

Delphi 批量文件改名

Delphi 查看dpr文件

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

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