语句片段：

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;

实例：

1、修改隐藏属性的代码片段

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;

2、修改取消隐藏属性的代码片段

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;

 fileSetAttr 和 setFileAttributes都是修改文件属性，只是前者来自System.SysUtils,后者来自WinAPI.Windows

附文件属性常量

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

取消只需要在常量前面加not，例如：not faReadOnly取消只读文件

procedure TForm1.cxbtn1Click(Sender: TObject); var   iAttr: integer;   sFileName: string; begin   sFileName := 'C:\123.TXT';   iAttr := FileGetAttr(sFileName);   if not ((iAttr and faReadOnly) = faReadOnly) then     begin       if FileSetAttr(sFileName, iAttr or faReadOnly) = 0 then         begin           MessageBox(0, '修改完成', '提示', MB_OK);         end       else         MessageBox(0, '修改失败', '提示', MB_OK);     end   else     MessageBox(0, '不需要修改', '提示', MB_OK); end;

------------------------------------------------------------------------------------------

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

备注：

有种偷懒的方法，

如果设置文件属性为隐藏则 FileSetAttr('文件全路径',2)，

要是设置为只读+隐藏FileSetAttr('文件全路径',3)