看流星社区

 找回密码
 注册账号
查看: 2768|回复: 0

[Delphi] delphi 去掉文件只读属性

[复制链接]

该用户从未签到

发表于 2014-6-27 08:27:51 | 显示全部楼层 |阅读模式
uses FileCtrl;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
if FileSetAttr(filename, faArchive)=0 then
Caption:='attribute was changed'
else
Caption:='attribute was not changed';
end;


Delphi 设置文件属性

请在interface下的uses中引用filectrl单元

2. 首先取文件属性

var

attr : integer;

filename : string; begin

filename := 'myfile';

attr := FileGetAttr(filename); end;


3. 设置文件属性(如设置归档属性 -> faArchive )



attr := attr or faArchive; //如要去掉某一属性,则如下句 attr := attr and (not faArchive); //保留其它属性 if FileSetAttr(filename, attr)=0 then //成功代码 else //失败代码


4. 附文件属性常量

Constant Value Description

faReadOnly $00000001 Read-only files 只读文件

faHidden $00000002 Hidden files 隐藏文件

faSysFile $00000004 System files 系统文件

faVolumeID $00000008 Volume ID files 卷标文件

faDirectory $00000010 Directory files 目录

faArchive $00000020 Archive files 归档文件

faAnyFile $0000003F Any file 任意文件
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 18:41

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表