blob: d8e80566c6be19276d55d23a7d2b87b84432780f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Program Example26;
{ Program to demonstrate the Access function. }
Uses oldlinux;
begin
if Access ('/etc/passwd',W_OK) then
begin
Writeln ('Better check your system.');
Writeln ('I can write to the /etc/passwd file !');
end;
end.
|
