Правила форума
Setfattr.PASЯзык:
Русский
English
{ Пример программы для процедуры SetFAttr }
uses Dos;
var
F : File;
begin
Assign(F, 'C:\AUTOEXEC.BAT');
SetFAttr(F, faHidden); { :-O }
ReadLn;
SetFAttr(F, faArchive); { :-) }
end.
var
F : File;
begin
Assign(F, 'C:\AUTOEXEC.BAT');
SetFAttr(F, faHidden); { :-O }
ReadLn;
SetFAttr(F, faArchive); { :-) }
end.
::
::
::
