VPF::Атрибуты файлов - Форум программистов

Dr.No_xXx

Дата 15.3.2005, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет

Здравствуйте,все.
У меня возник вопрос как можно читать и менять атрибуты файлов? smile

-=Ustas=-

Дата 15.3.2005, 22:53 (ссылка)

(нет голосов)

Загрузка ...

Ustix IT Group

Профиль
Группа: Участник Клуба
Сообщений: 2222
Регистрация: 21.1.2005
Где: Краснодар

Репутация: нет
Всего: 69

Используй функцию FileGetAttr, которая вернёт аттрибуты для данного файла.
Например, кинь на форму компоненты TButton и TLabel и:

Код


var
    attr: Integer;
    s: string;
begin
    attr := FileGetAttr('c:\Autoexec.bat');
    if (attr and faHidden) <> 0 then s := 'Hidden';
    if (attr and faReadOnly) <> 0 then s := s + 'Read-Only';
    if (attr and faSysFile) <> 0 then s := s + 'System';
    if (attr and faArchive) <> 0 then s := s + 'Archive';
    Label1.Caption := s;
end;

А изменять функцией

Код


SetFileAttributes('C:\your_file.txt', faReadOnly);

Можно юзать

Цитата

faReadOnly
faHidden
faSysFile
faVolumeID
faDirectory
faArchive
faAnyFile

--------------------

В искаженном мире все догмы одинаково произвольны, включая догму о произвольности догм.
-----

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »