FileGetAttr - Функция. Справочник

Delphi справочник - Форум программистов - Навигация

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z По первой букве

System SysUtils StrUtils DateUtils FileCtrl ConvUtils StdConvs Math Classes Dialogs Types Variants ПО Unit Compiler directives Directives Keywords Types Variables Constants Functions Procedures По категории

Основы Delphi
FileGetAttr Функция	Выдаёт атрибуты файла	SysUtils unit

function FileGetAttr ( const FileName : string; ) : Integer;

Описание

Функция FileGetAttr возвращает атрибуты указанного FileName.

Возвращенное Целочисленное значение будет поразрядной комбинацией следующих независимых атрибутов:

faReadOnly : Файлы только для чтения
faHidden : Скрытые файлы
faSysFile : Системные файлы
faVolumeID : Файлы идентификатора объема
faDirectory : Каталоги
faArchive : Архивные файлы
faSymLink : Символический указатель (ярлык)

Примечания

Эта функция зависит от Операционной системы. Например, Архив на Linux ничего не означает.

Похожие команды

FileSetAttr  Устанавливает атрибуты файла

FileAge  Получение датя/время последнего изменения файла, не открывая его

FileSetDate  Установка даты и времени последнего изменения файла

FileExists  Возвращает True если указанный файл существует

Пример кода : Создание текстового файла, и отображение его атрибутов

var
  fileName : string;
  myFile   : TextFile;

  attrs    : Integer;

begin
  // Попытка ооткрыть текстовый файл для записи
  fileName := 'Test.txt';
  AssignFile(myFile, fileName);
  ReWrite(myFile);

  // Запись в файл
  Write(myFile, 'Hello World');

  // Закрытие файла
  CloseFile(myFile);

  // Получение атрибутов файла
  attrs := FileGetAttr(fileName);

  // Показ этих атрибутов
  if attrs and faReadOnly > 0
  then ShowMessage('Файл только для чтения)
  else ShowMessage('Файл не только для чтения');

  if attrs and faHidden > 0
  then ShowMessage('Файл скрытый')
  else ShowMessage('Файл не скрытый');

  if attrs and faSysFile > 0
  then ShowMessage('Файл является системным')
  else ShowMessage('Файл не является системным');

  if attrs and faVolumeID > 0
  then ShowMessage('Файл является идентификатором объёма')
  else ShowMessage('Файл не является идентификатором объёма');

  if attrs and faDirectory > 0
  then ShowMessage('Файл является каталогом')
  else ShowMessage('Файл не является каталогом');

  if attrs and faArchive > 0
  then ShowMessage('Файл архивный')
  else ShowMessage('Файл не архивный');

  if attrs and faSymLink > 0
  then ShowMessage('Файл является ярлыком')
  else ShowMessage('Файл не является ярлыком');
end;

Файл не только для чтения
Файл не скрытый
Файл не является системным
Файл не является идентификатором объёма
Файл не является каталогом
Файл архивный
Файл не является ярлыком

Оплата за обучение в Kata Academy только после твоего трудоустройства в IT, начни карьеру Middle Java-разработчика

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки? Slurm подготовили для вас особенный продукт!