//kullanımı
procedure TForm1.Button1Click(Sender: TObject);
begin
FileSetAttr('C:\windows\desktop\a.txt', faHidden);
end;
//diğer attribute'ler
faReadOnly //salt okunur
faHidden //gizli
faSysFile //sistem dosyası
faVolumeID //bi boka yaramıyo
faDirectory //buda bi boka yaramıo
faArchive //arşiv
faAnyFile //salt okunur + gizli + sistem dosyası + arşiv
//başka bi kullanımı
FileSetAttr('C:\Autoexec.bat', faReadOnly + faHidden);
//dosya attribute olayını boş bırakmak için
if (FileGetAttr(FileName) and faReadOnly) > 0
then FileSetAttr(FileName, FileGetAttr(FileName) xor faReadOnly);
//yeniden salt okunur olarak ayarlamak
FileSetAttr(FileName, FileGetAttr(FileName) or faReadOnly);