Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Атрибуты файлов

Автор: Dr.No_xXx 15.3.2005, 22:29

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

Автор: -=Ustas=- 15.3.2005, 22:53

Используй функцию 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