Delphi 删除只读文件

最新推荐文章于 2023-11-28 18:34:00 发布
最新推荐文章于 2023-11-28 18:34:00 发布
阅读量255 收藏
点赞数
分类专栏： Delphi 文章标签： Delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/iteye_19576/article/details/82029622
版权

Delphi中调用DeleteFile 删除文件，但是DeleteFile不能删除只读文件。如果要删除只读文件，应该将其只读属性去掉，在调用DeleteFile来删除。

 SetFileAttributes(fileName,file_attribute_normal);

 DeleteFile(fileName);

iteye_19576
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi 删除目录和文件
09-20
Delphi 快速删除相关目录和文件，可以删除到垃圾箱，也可以直接删除。
delphi 去掉文件只读属性
weixin_30619101的博客
02-25 355
Delphi 设置文件属性 uses FileCtrl; procedure TForm1.BitBtn1Click(Sender: TObject); begin with OpenDialog1 do if Execute then if FileSetAttr(filename, faArchive)=0 then ...
delphi 删除文件
做减求空
11-14 4175
del('C:\Users\Administrator\Desktop\delphi\wenjian\Win32\Debug\','*.txt'); //删除文件 目录 //文件名 可以有通配符 procedure del(mulu : string ; f : string); var SearchRec : TSearchRec; begin
DeleteFile
Allen_Infosys
09-24 639
testDelFile(); public void testDelFile(){ WriteTaskMessage writeTaskMessage = mockDataGenerationUtil.getBean( "writeTaskMessage_AdhocRulesRec3_Cat979", WriteTaskMessage.class); String chunkIn
Delphi修改文件属性
05-08
4. **Delphi的TFile和TDirectory类**：这两个类包含了许多用于文件和目录操作的方法，如读取、写入、移动、删除文件等，以及获取和设置文件属性。在Delphi7及更高版本中，它们属于`System.IOUtils`单元。 5. **...
Delphi 文件目录操作.rar
07-10
Delphi还提供了检查和修改文件属性的功能，如隐藏、只读等。通过`GetFileAttributes`和`SetFileAttributes`等函数，开发者可以控制文件的访问权限。 8. **文件流操作**： 对于需要对文件内容进行读写操作的情况，...
Delphi判断文件是否正在被使用
12-17
在Delphi编程中，判断一个文件是否正在被其他进程使用是一项常见的任务，这对于避免数据冲突和文件损坏至关重要。本文将详细介绍如何使用CreateFile函数来实现这一功能。 CreateFile函数是Windows API中的一个核心...
Delphi收集的关于对文件操作的源码函数
12-05
例如，`TFile.OpenRead('filename.txt')`会创建一个只读文件句柄，而`TFile.OpenWrite('filename.txt')`则创建一个可写文件句柄。记得在操作完文件后，需要使用`Free`或`Close`来释放资源。 2. **读取文件内容**： ...
Delphi系统临时文件操作示例源码..rar
04-25
通过创建`TFileStream`对象并设置适当的访问模式（如只读、只写或读写），可以实现对文件内容的读取和写入。 4. **错误处理**：在进行文件操作时，可能出现各种错误，如文件不存在、权限问题等。因此，理解如何使用...
文件属性、只读、存档、系统、隐藏
06-23
1.QQ:513187410 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责！ 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用！
delphi 删除目录下 所有文件
fogbow622的博客
11-28 662
/删除目录下*.*数字签名=4B4D32703851AAF245EE58D2276BE3A5。//释放FindFirst（）时分配的内存。采集日期=2023-11-23 20:38:10。采集软件=MKM - 我的知识管理。关键字=删除目录下 所有文件。
【千律】C++基础：删除只读属性文件、文件剪切、修改文件扩展名
weixin_42704093的博客
04-24 2114
1.删除带有只读属性的文件 #include <tchar.h> #include <windows.h> int APIENTRY _tWinMain(_In_ HINSTANCE hInstance, _In_opt_ HINSTANCE hPrevInstance, _In_ LPTSTR lpCmdLine, _In_ int nCmdShow) { // 变量初始化 LPCTSTR ExistFile = _T("D:\\File.txt"); // 获取..
delphi 绿色exe文件自我删除和更新
weixin_33841503的博客
02-14 236
发布绿色exe文件后，再更新就需要把自己删除，用更新文件代替。 当然还需要其他细节比如隐藏老版本文件，还原老版本文件等 ； 点击更新按钮后，先对自己重命名 procedure TFrmCheckUpdate.ActUpdateNowExecute(Sender: TObject); // 现在升级begin {$IFDEF MSWINDOWS}// RenameFile(Paramstr...
DeleteFile为啥老是删除不了文件那，低级错误啊
jasperu的专栏
08-13 8210
DeleteFile为啥老是删除不了文件那，低级错误啊2010-08-13 22:50<br />先看图，我的意思是用DeleteFile删除一个文件，当然也可以用DOS命令del，或者批处理来完成，，<br />但是我去老是不能完成，但是新建了一个文本文件还是可以的，，开始真是怪事<br /> <br />// Note:Your choice is C++ IDE<br />#include <iostream><br />#include "windows.h"<br />using namespac
Delphi 文件操作
zheng的博客
07-28 422
Delphi 删除文件夹函数 @文件操作 删除文件夹下所有文件封装函数 本人亲测可以直接调用！！！！ H2O is是液体。 210 运算结果是 1024. 插入链接与图片 链接: link. 图片: 带尺寸的图片: 居中的图片: 居中并且带尺寸的图片: 当然，我们为了让用户更加便捷，我们增加了图片拖拽功能。 如何插入一段漂亮的代码片 去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片. // An highlighted block var foo = 'bar'; 生成
"删不掉的文件" 处理方法
小马
03-04 738
【推荐】如果遇到删不掉的文件该如何处理   　　   　　大家是否有这样的经历：在删除某个文件时，系统会给出各种各样的提示，反正就是死活不让删。造成这种情况的原因主要有三种：一是文件正在被系统使用，二是文件名中包含系统无法识别的字符，三是用户权限不够。我们主要研究前两种情况，下面做了个整理，帮你解决这个问题。   　　一、基本型   　　1.分步删除。如果你删除的是一个文件夹，可以尝试先将文件夹中
DeleteFile不能删除文件
cztjing的专栏
04-18 3102
今天在程序中用DeleteFile去删除文件时，发现始终失败，取错误信息，报的是"拒绝访问"，这才发现DeleteFile不能删除只读文件。 如果要删除只读文件，需要在删除前用SetFileAttributes(sFilePath,   FILE_ATTRIBUTE_NORMAL); 将只读属性去掉，再去删除，这样才会成功。
delphi删除文件
最新发布
02-09
以下是两种Delphi删除文件的例子： 1. 删除指定目录下的指定文件 ```delphi procedure del(mulu: string; f: string); var SearchRec: TSearchRec; begin if FindFirst(mulu + f, faAnyFile, SearchRec) = 0 then begin repeat FileSetAttr(mulu + SearchRec.Name, 0); DeleteFile(mulu + SearchRec.Name); until FindNext(SearchRec) <> 0; end; FindClose(SearchRec); end; ``` 2. 删除指定目录下的所有文件 ```delphi procedure delallfilesinpath(path: string); var sr: TSearchRec; begin if FindFirst(path + '*.*', faAnyFile, sr) = 0 then begin DeleteFile(path + '\' + sr.Name); end; while FindNext(sr) = 0 do begin DeleteFile(path + '\' + sr.Name); end; FindClose(sr); end; ```
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值