setfattr.pas

 {Setfattr.PAS}
 
 { Пример программы для процедуры SetFAttr }
 
 Uses WinDos;
 
 Var F : File;
 Begin
  Assign(F, 'C:\AUTOEXEC.BAT');
  SetFAttr(F, faHidden); { :-O }
  ReadLn;
  SetFAttr(F, faArchive); { :-) }
 End.