Атрибуты файлов

Автор: | 07.10.2013

Установить атрибут "Скрытый" - SetFileAttributes(PChar('1.txt'),faHidden);
Установить атрибут "Только для чтения" - SetFileAttributes(PChar('1.txt'),faReadOnly);
Установить атрибут "Системный" - SetFileAttributes(PChar('1.txt'),faSysFile);
Установить атрибут "Архивный" - SetFileAttributes(PChar('1.txt'),faArchive);

Снять атрибут "Только для чтения" с файла - FileSetAttr(PChar('1.txt'),Not(faReadOnly));
Снять атрибут "Скрытый" - FileSetAttr(PChar('1.txt'),Not(faHidden));
Снять атрибут "Системный" - FileSetAttr(PChar('1.txt'),Not(faSysFile));
Снять атрибут "Архивный" - FileSetAttr(PChar('1.txt'),Not(faArchive));

Вывести сообщение если файл имеет атрибут "Скрытый" - if (FileGetAttr('1.txt') and faHidden)<>0 then ShowMessage('Cкрытый');
Вывести сообщение если файл имеет атрибут "Только для чтения" - if (FileGetAttr('1.txt') and faReadOnly)<>0 then ShowMessage('Только для чтения');
Вывести сообщение если файл имеет атрибут "Системный" - if (FileGetAttr('1.txt') and faSysFile)<>0 then ShowMessage('Системный');
Вывести сообщение если файл имеет атрибут "Архивный" - if (FileGetAttr('1.txt') and faArchive)<>0 then ShowMessage('Архивный');

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *