Language: 
Русский
English
   {Setfattr.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the SetFAttr procedure.}
uses WinDos;
  var
    F: file;
  begin
    Assign(F, 'C:\AUTOEXEC.BAT');
    SetFAttr(F, faHidden); { Uh-oh }
    Readln;
    SetFAttr(F, faArchive); { Whew! }
  end.

 
 ::
      
 ::
      
 ::