改变文件的属性

想要读取一个文件的属性，就要用FileGetAttr函数调用文件名，即将文件属性返回到一指定文件。例如，添加一个Tbutton和Tlabel组件到窗体并添加如下代码：

var
  attr:Integer;
  s:string;
begin
  attr:=FileGetAttr('c:\Autoexec.bat');
  if(attr and faHidden)<>0 then s:='Hidden';
  if(attr and faReadOnly)<>0 then s:=s+'Read-Only';
  if(attr and faSysFile)<>0 then s:=s+'System';
  if(attr and faArchive)<>0 then s:=s+'Archive';
  Label1.Caption:=s;
end;
---------------------------
    要想设置某个文件的属性，将你想要改变的文件名和要改的属性传递到函数FileSetAttr。每种属性都在SysUtils单元中定义了一个名称。要设置某个文件的属性，请您跟着做下去：

Attributes := Attributes or faSystem;

//也可以同时设置几个属性：

Attributes := Attributes and not (faReadOnly or faHidden);
---------------------------
//另外，为了改变文件属性，可以使用下面的返回值。
     +----------------------------------+
      返回值 文件属性
     +----------------------------------+
      128 Normal
      1 Read Only
      2 Hidden
      4 System
      32 Archive
     +--------------+-------------------+

调用示例：我们将用到如下代码

FileSetAttr('C:\Autoexec.bat',2);{隐藏}
FileSetAttr('C:\Autoexec.bat',3);{隐藏、只读。FileGetAttr 返回值3} 

……