mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 23:29:27 +02:00
38 lines
829 B
ObjectPascal
38 lines
829 B
ObjectPascal
Program Example40;
|
|
|
|
{ This program demonstrates the FileGetAttr function }
|
|
|
|
Uses sysutils;
|
|
|
|
Procedure Testit (Name : String);
|
|
|
|
Var F : Longint;
|
|
|
|
Begin
|
|
F:=FileGetAttr(Name);
|
|
If F<>-1 then
|
|
begin
|
|
Writeln ('Testing : ',Name);
|
|
If (F and faReadOnly)<>0 then
|
|
Writeln ('File is ReadOnly');
|
|
If (F and faHidden)<>0 then
|
|
Writeln ('File is hidden');
|
|
If (F and faSysFile)<>0 then
|
|
Writeln ('File is a system file');
|
|
If (F and faVolumeID)<>0 then
|
|
Writeln ('File is a disk label');
|
|
If (F and faArchive)<>0 then
|
|
Writeln ('File is artchive file');
|
|
If (F and faDirectory)<>0 then
|
|
Writeln ('File is a directory');
|
|
end
|
|
else
|
|
Writeln ('Error reading attribites of ',Name);
|
|
end;
|
|
|
|
begin
|
|
testit ('ex40.pp');
|
|
testit (ParamStr(0));
|
|
testit ('.');
|
|
testit ('/');
|
|
End. |