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