修改文件檔案屬性

faReadOnly ：唯讀
faHidden ：隱藏
faSysFile ：系統
faVolumeID ：卷標
faDirectory ：目錄
faArchive ：存檔
faAnyfile ：所有類型

//將文件檔案屬性設為隱藏
procedure TForm1.Button1Click(Sender: TObject);
var
  f:integer;
begin
f := fileGetAttr('test.sys');//得到文件屬性；
if f and faHidden = 0 then //是否有隱藏屬性；
  fileSetAttr('test.sys',faHidden);//設定為隱藏；
end;

{
//用以下寫法來判斷、顯示訊息也可以
case FileGetAttr('c：\command.dos') of
  faResdOnly:ShowMessage('ReadOnly');
  faHidden:ShowMessage('Hidden');
  faSysFile:ShowMessage('SystemFile');
  faVolumeID:ShowMessage('VolumeID');
  faDirectory:ShowMessge('Directory');
  faArchive:ShowMessage('Archive');
  faAnyFile:ShowMessage('AnyFile');
else
  ShowMessage('檔案不詳');

//用以下寫法來修改屬性也可以
if FileSetAttr('c：\autoexec.dos'，faReadOnly)=0 then
  ShowMessage('修改成功')
else
  ShowMessage('修改失敗');
}