Verificando atributo do arquivo

Para verificar um atributo de um arquivo, crie uma variável do tipo word, por exemplo, Attributes. Depois, atribua a esta variável o valor retornado por FileGetAttr. Ex.:

var

Attributes: Word;

begin

Attributes := FileGetAttr( 'nomedoarquivo' );

// Supondo 4 CheckBoxe's, 1 para cada atributo, Ok?

CheckBox1.Checked := (Attributes and faReadOnly) = faReadOnly;

CheckBox2.Checked := (Attributes and faArchive) = faArchive;

CheckBox3.Checked := (Attributes and faSysFile) = faSysFile;

CheckBox4.Checked := (Attributes and faHidden) = faHidden;

end;