3
{ This program demonstrates the FileSetAttr function }
8
If FileSetAttr ('ex40.pp',faReadOnly or faHidden)=0 then
9
Writeln ('Successfully made file hidden and read-only.')
11
Writeln ('Coulnd''t make file hidden and read-only.');
b'\\ No newline at end of file'