语句片段：

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