delphi获取文件或文件夹属性和修改属性


本文整理自网络,侵删。

  

语句片段:

function showAttr(path:string) : integer;

var

Attributes:word;

begin

Attributes := fileGetAttr(PANsiChar(path));

if (Attributes and faHidden) = faHidden then //faHidden 便是"隐藏"属性

begin

语句块

end;

if (Attributes and faReadOnly) = faReadOnly then //faReadOnly 只读属性

begin

语句块

end;

if (Attributes and faSysFile) = faSysFile then //faSysFile 系统属性

begin

语句块

end;

if (Attributes and faArchive) = faArchive then //faSysFile 系统属性

begin

语句块

end;

end;

修改属性

代码片段

var //隐藏d:\132.txt

attr:integer;

begin

attr := fileGetAttr('D:\123.txt');
if not ( (attr and faHidden) = faHidden )then
begin
fileSetAttr('D:\123.txt',attr or faHidden);
MessageBox(0,' 完成','提示',MB_OK);
end;

end;

var //显示d:\123.txt
attr : integer;
begin
attr := FileGetAttr('D:\123.txt');
if ( (attr and faHidden) = faHidden ) then
begin
setFileAttributes('D:\123.txt',(attr and (not faHidden)));
MessageBox(0,' 完成','提示',MB_OK);
end;
end;

附文件属性常量

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 任意文件

相关阅读 >>

Delphi 时间年月日,星期

Delphi 如何确定windows安装的语言

Delphi �o置系�y�r�g

Delphi 向其他程序发送模拟按键

Delphi 如何替换word文档中的文本

Delphi tstringlist 用法详解

Delphi richedit memo1支持中文搜索、向上查找、区分大小写

Delphi 实现拦截api的钩子(hook)

Delphi控制word添加多行文字

Delphi winapi: getforegroundwindow - 获取前台窗口的句柄

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



打赏

取消

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

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

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

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

评论

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