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设置dbgrid每列自动居中

Delphi richedit选中文字右键菜单的实现

Delphi 列出dbgrideh被选中的值

Delphi多媒体函数

Delphi unicode 转 gbk

Delphi 简单判断图片类型

Delphi cannot find implementation of method formcreate 解决办法

Delphi 自带rest调试工具 restdebugger 用法

Delphi 验证tstrings是否存在

Delphi程序只允许运行一个实例的三种方法

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

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