Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура GetFAttr.

  • Объявление:

    Procedure GetFAttr(Var F; Var Attr : Word);

  • Описание:

    Возвращает атрибуты файла.

  • Замечания:

    Файловой переменной F должен быть назначен типизированный, нетипизированный или текстовый файл, который не должен быть открыт.

  • Пример:

    { Пример программы для процедуры GetFAttr }
    Uses WinDos, WinCrt;
    Var F : File;
    Attr : Word;
    Begin
    { Получаем имя файла из командной строки }
    Assign(F, ParamStr(1));
    GetFAttr(F, Attr);
    WriteLn(ParamStr(1));
    If DosError <> 0 Then WriteLn('Код ошибки DOS = ', DosError) Else
    Begin
    WriteLn('Атрибут = ', Attr);
    { Определяем атрибуты, используя константы модуля WinDos }
    If Attr And faReadOnly<>0 Then WriteLn('Только для чтения');
    If Attr And faHidden <> 0 Then WriteLn('Скрытый');
    If Attr And faSysFile <> 0 Then WriteLn('Системный');
    If Attr And faVolumeID <> 0 Then WriteLn('ID тома');
    If Attr And faDirectory <> 0 Then WriteLn('Имя каталога');
    If Attr And faArchive <> 0 Then WriteLn('Архивный (нормальный)');
    End;
    End.



Вернуться к оглавлению справочника