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.