blob: 70321d25b842f489a9fa5425b48b29f5f11a7223 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Program Example42;
{ This program demonstrates the FileSetAttr function }
Uses sysutils;
Begin
If FileSetAttr ('ex40.pp',faReadOnly or faHidden)=0 then
Writeln ('Successfully made file hidden and read-only.')
else
Writeln ('Coulnd''t make file hidden and read-only.');
End.
|
