1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Založena nová stránka: 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á…
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.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Procedury a funkce správy souborů]]
;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.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Procedury a funkce správy souborů]]
