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 超短精简进制转换

Delphi 已经最小化的窗体如何让它自己还原?

Delphi 如何禁止用户更改窗体的大小

Delphi android 中 toast 的实现(老外写的unit)

Delphi 拖动文件到exe 打开 获取getcommandline命令行

Delphi adotable1 链接mdb数据库

Delphi xe5 android 开发实现手机打电话和发短信

Delphi datamodule1 fdconnection1数据库连接

Delphi checklistbox用法

Delphi tbytedynarray转化为string

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...