Функция FileGetAttr – видає атрибути файлу

Функція FileGetAttr в Delphi видає атрибути файлу.

Функція FileGetAttr: Створення текстового файлу та відображення його атрибутів

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;