Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты! Подскажите пожалуйста, как можно программно изменить атрибуты файла (сделать скрытым, системным и т.п.)!

Вопрос задал: grom_rk (статус: Посетитель) Вопрос отправлен: 2 марта 2009, 06:59 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Шичко Игорь

Здравствуйте, grom_rk!
Для установки атрибутов файла применяется функция:
FileSetAttr(const FileName: string; Attr: Integer): Integer;
FileName - имя файла
Attr - атрибут, где используется константы:
faReadOnly = $00000001 - только чтение
faHidden = $00000002 - скрытый
faSysFile = $00000004 - системный
faVolumeID = $00000008
faDirectory = $00000010
faArchive = $00000020
faAnyFile = $0000003F

Пример использования:
FileSetAttr('c:\1.doc', faReadOnly); - установка для файла 'c:\1.doc' атрибута только чтение
Возвращаемое значение - 0, если все нормально, или сообщение об ошибке.

Ответ отправил: Шичко Игорь (статус: 9-ый класс) Время отправки: 2 марта 2009, 09:02 Оценка за ответ: 5 Комментарий к оценке: Спасибо!!!

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.