GetFAttr

Z Delphi & Pascal (česká wiki)
Verze z 2. 10. 2012, 21:31, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

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
Konstanty atributů souboru


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.