本文整理自网络，侵删。
语句片段：
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生成的webservice appdebug的程序，编译时出错
Delphi 10.2 新特性之―tfdbatchmovejsonwriter
更多相关阅读请进入《Delphi》频道 >>
