GetFAttr
Verze z 2. 10. 2012, 21:31, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
Vrací atributy souboru.
- Deklarace
procedure GetFAttr(var F; var Attr: Word);
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- F musí být souborová proměnná (typový, netypový nebo textový soubor), která byla přiřazena, ale nebyla otevřena.
- Viz také
- GetFTime
Vzorový příklad
{ Getfattr.PAS } { Vzorový příklad pro proceduru GetFAttr. } { Pro Windows: } { uses WinDos,WinCrt; } uses Dos; var F: file; Attr: Word; begin { Zjištění jména souboru z příkazové řádky } Assign(F, ParamStr(1)); GetFAttr(F, Attr); Writeln(ParamStr(1)); if DosError <> 0 then Writeln('Kód chyby DOSu = ', DosError) else begin Write('Attribute = ', Attr); { Zjištění typu atributu pomocí konstant atributů souborů } if Attr and ReadOnly <> 0 then { Pro Windows: faReadOnly } WriteLn('Soubor pouze pro čtení'); if Attr and Hidden <> 0 then { Pro Windows: faHidden } WriteLn('Skrytý soubor'); if Attr and SysFile <> 0 then { Pro Windows: faSysFile } WriteLn('Systémový soubor'); if Attr and VolumeID <> 0 then { Pro Windows: faVolumeID } WriteLn('Identifikátor média'); if Attr and Directory <> 0 then { Pro Windows: faDirectory } WriteLn('Jméno adresáře'); if Attr and Archive <> 0 then { Pro Windows: faArchive } WriteLn('Archívní (normální) soubor'); end; { else } end.