修改文件的屬性!

內容來源：http://72.14.235.104/search?q=cache:6vHTe1erPScJ:topic.csdn.net/t/20020718/08/882754.html

var
f:integer;
begin
f := fileGetAttr('c:\x.sys');//获得文件属性；
if f and faHidden = 0 then //是否有隐藏属性；
fileSetAttr('C:\x.sys',faHidden);//设置隐藏；
end;
faReadOnly ：只读
faHidden ：隐藏
faSysFile ：系统
faVolumeID ：卷标
faDirectory ：目录
faArchive ：存档
faAnyfile ;所有类型