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;

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



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия