Создание защищенного диалога открытия файлов в Windows 7: ограничение начальной директории

Delphi , Программа и Интерфейс , Диалоги и Фреймы

Вопрос пользователя состоит в том, как создать диалог открытия файлов в среде Windows 7, который бы ограничивал пользователя начальной директорией. Несмотря на то, что в настройках диалога были установлены параметры, исключающие панель быстрого доступа к папкам, пользователь все еще мог изменить директорию, используя инструменты "хлебных крошек" или вводного поля имени файла.

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

Подтвержденный ответ предлагает использовать компонент TFileOpenDialog, доступный в Delphi начиная с версии 2009 и выше. Пример кода, который ограничивает пользователя начальной директорией, выглядит следующим образом:

procedure TForm3.FileOpenDialog1FolderChange(Sender: TObject);
begin
  FInitiated := true;
end;

procedure TForm3.FileOpenDialog1FolderChanging(Sender: TObject; var CanChange: Boolean);
begin
  CanChange := not FInitiated;
end;

procedure TForm3.btnOpenClick(Sender: TObject);
begin
  FInitiated := false;
  FileOpenDialog1.DefaultFolder := 'C:\MyFolder\';
  FileOpenDialog1.Execute;
end;

var
  FInitiated: boolean;

Обратите внимание, что переменная FInitiated должна быть объявлена как член формы TForm3, если FileOpenDialog1 является приватным членом этой формы.

Для улучшения пользовательского опыта можно добавить уведомление о невозможности изменить директорию, например, звуковой сигнал или сообщение:

procedure TForm3.FileOpenDialog1FolderChanging(Sender: TObject; var CanChange: Boolean);
begin
  CanChange := not FInitiated;
  if not CanChange then
  begin
    Beep;
    // или
    MessageBox(Handle, PChar('Выбор директории не разрешен.'), PChar(Caption), MB_ICONINFORMATION);
  end;
end;

Этот код предотвращает изменение начальной директории, ограничивая пользователя только файлами, находящимися в этой директории и её поддиректориях.

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

Пользователь хочет создать защищенный диалог открытия файлов в среде Windows 7, который не позволит пользователю изменить начальную директорию, используя встроенные средства навигации или ввод.

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

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

:: Главная :: Диалоги и Фреймы ::