Пример кода на Delphi: работа с атрибутами файлов и папок

Delphi , Файловая система , Директории

Контекст: Вопрос, поднятый пользователем Henry Olive, заключается в проблеме установки атрибута "только для чтения" для папки в Delphi. Несмотря на то, что атрибуты "скрытый" и "обычный" устанавливаются корректно, атрибут "только для чтения" не работает. В ответе Remy Lebeau указано, что Windows игнорирует атрибут "только для чтения" для папок, и это документально подтвержденное поведение.

В данной статье мы рассмотрим, как в Delphi работать с атрибутами файлов и папок, и почему атрибут "только для чтения" не работает для папок. Мы также предложим альтернативный способ создания иллюзии "только для чтения" для папок, который заключается в изменении атрибутов всех файлов внутри папки.

Пример кода:

procedure TFolders.RG1Click(Sender: TObject);
var
  Attr : TFileAttributes;
  FolderPath : String;
  FileList : TArray<String>;
begin
  FolderPath := CDS1FOLDERPATH.AsString;
  if not TDirectory.Exists(FolderPath) then
  begin
     ShowMessage(FolderPath + ' не существует');
     Exit;
  end;

  if RG1.ItemIndex = 0 then  // Read Only - RG1 = Radio Group
  begin
     // Получаем список файлов в папке
     FileList := TDirectory.GetFiles(FolderPath);
     for var FileName in FileList do
     begin
        // Устанавливаем атрибут "только для чтения" для каждого файла
        SetFileAttributes(PChar(FileName), GetFileAttributes(PChar(FileName)) or FILE_ATTRIBUTE_READONLY);
     end;
  end
  else if RG1.ItemIndex = 1 then  // Hidden
     SetFileAttributes(PChar(FolderPath), FILE_ATTRIBUTE_HIDDEN)
  else if RG1.ItemIndex = 2 then // Open (Not Read Only - Not Hidden)
     SetFileAttributes(PChar(FolderPath), FILE_ATTRIBUTE_NORMAL);
  end;
end;

Объяснение кода:

1. Проверяем существование папки.
2. Если выбрана опция "только для чтения", получаем список файлов в папке.
3. Для каждого файла устанавливаем атрибут "только для чтения".

Важные замечания:

• Установка атрибута "только для чтения" для папки напрямую не поддерживается Windows.
• Для создания эффекта "только для чтения" для папки необходимо изменять атрибуты файлов внутри неё.
• При изменении атрибутов файлов внутри папки, пользователи не смогут изменять эти файлы, что создаёт иллюзию "только для чтения" для всей папки.

Этот код предназначен для использования в среде разработки Delphi и показывает, как можно работать с атрибутами файлов и папок на уровне операционной системы.

Создано по материалам из источника по ссылке.

### Описание контекста: В контексте обсуждается проблема установки атрибута "только для чтения" для папок в Delphi и предложенный способ решения через изменение атрибутов файлов внутри папки, поскольку Windows не поддерживает этот атрибут для папок.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Директории ::