Otvoris help i lijepo ides po njemu
)
GetFAttr (procedure) (Dos unit and WinDos unit)
Returns the attributes of a file.
Declaration:
procedure GetFAttr(var F; var Attr: Word);
Target:
Windows, Real, Protected
Remarks:
F must be a file variable (typed, untyped, or text file) that has been
assigned but not opened.
See Also:
GetFTime
SetFAttr
SetFTime
Sample Code:
{Getfattr.PAS}
{Sample code for the GetFAttr procedure.}
{ For Windows: }
{ uses WinDos,WinCrt; }
uses Dos;
var
F: file;
Attr: Word;
begin
{ Get file name from command line }
Assign(F, ParamStr(1));
GetFAttr(F, Attr);
Writeln(ParamStr(1));
if DosError <> 0 then
Writeln('DOS error code = ', DosError)
else
begin
Write('Attribute = ', Attr);
{ Determine attribute type using file attribute constants }
if Attr and ReadOnly <> 0 then { For Windows: faReadOnly }
Writeln('Read only file');
if Attr and Hidden <> 0 then { For Windows: faHidden }
Writeln('Hidden file');
if Attr and SysFile <> 0 then { For Windows: faSysFile }
Writeln('System file');
if Attr and VolumeID <> 0 then { For Windows: faVolumeID }
Writeln('Volume ID');
if Attr and Directory <> 0 then { For Windows: faDirectory }
Writeln('Directory name');
if Attr and Archive <> 0 then { For Windows: faArchive }
Writeln('Archive (normal file)');
end; { else }
end.
itd,itd i naci ces sve funkcije i primjere za njih
poz
informacij o fajlu