GetFAttr

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

SetFAttr

SetFTime

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.