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 getdrivetypea() 查看驱动器类型

Delphi删除只读文件

Delphi实例之一个较复杂的记事本的实现

Delphi 仿dbnavigator方式

Delphi 搜索字符串

Delphi getprocessidentity 获取当前登录状态的管理员

Delphi 让控制台窗口不现实出来

Delphi调节图片亮度、色彩和饱和度的代码

Delphi randstring 随机字符串

Delphi 根据进程id获取程序ico图标

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

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