Современное решение для получения пути к директории "Общие документы пользователей" в Delphi

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

Разработчики, работающие с Delphi, часто сталкиваются с необходимостью получения путей к стандартным папкам операционной системы, таким как "Общие документы пользователей". В более старых версиях Delphi для этого использовались константы CSIDL, однако Microsoft рекомендует перейти к использованию KNOWNFOLDERID, особенно для совместимости с более новыми операционными системами Windows.

Проблема

Разработчик, использующий Delphi 7, столкнулся с необходимостью получить путь к директории "Общие документы пользователей" (Common Documents), которая в Windows обозначена как __.. /All Users/Documents__. Используемый код работал корректно для получения пути к личным документам пользователя, но не поддерживал константу CSIDL_COMMON_DOCUMENTS, которая и необходима для решения задачи.

Кроме того, в документации Microsoft указано, что использование CSIDL устарело, и рекомендуется перейти к использованию KNOWNFOLDERID. Однако, учитывая необходимость поддержки приложения на нескольких операционных системах Windows, важно найти решение, которое будет работать на всех целевых ОС.

Решение

Для получения пути к директории "Общие документы пользователей" можно использовать функцию SHGetSpecialFolderPath, передав ей константу CSIDL_COMMON_DOCUMENTS. В случае использования Delphi 7, необходимо будет объявить эту константу в коде, так как она не определена в стандартном модуле Shlobj.pas.

const
  CSIDL_COMMON_DOCUMENTS = $002E; // Объявление константы в коде

Пример кода для получения пути к "Общим документам пользователей":

uses
  Shlobj; // Подключение модуля для работы с специальными папками

function GetCommonDocumentsPath: string;
var
  r: Bool;
  path: array[0..Max_Path] of Char;
begin
  r := ShGetSpecialFolderPath(0, path[0], CSIDL_COMMON_DOCUMENTS, False);
  if not r then
    raise Exception.Create('Не удалось найти папку Общих Документов.');
  Result := path;
end;

Альтернативное решение

Для совместимости с более новыми версиями Windows и использования KNOWNFOLDERID, можно написать функцию, которая будет использовать новый API. Пример такой функции для Delphi, который работает начиная с Windows Vista:

type
  TShGetKnownFolderPath = function(const rfid: TGUID; dwFlags: DWord; hToken: THandle; out ppszPath: PWideChar): HResult; stdcall;

function ShGetKnownFolderPath(const rfid: TGUID; dwFlags: DWord; hToken: THandle; out ppszPath: PWideChar): HResult;
var
  Shell: HModule;
  Fn: TShGetKnownFolderPath;
begin
  // ... (реализация загрузки функции из библиотеки shell32.dll)
end;

function GetPublicDocuments: string;
var
  ret: HResult;
  Buffer: PWideChar;
begin
  ret := ShGetKnownFolderPath(StringToGuid('{ED4824AF-DCE4-45A8-81E2-FC7965083634}'), 0, 0, Buffer);
  // ... (обработка результата и освобождение памяти)
end;

Использование KNOWNFOLDERID требует более сложной обработки и может быть не столь удобным для простых проектов, особенно если необходимо поддерживать совместимость с более старыми версиями Windows.

Заключение

Для получения пути к директории "Общие документы пользователей" в Delphi можно использовать функцию SHGetSpecialFolderPath с константой CSIDL_COMMON_DOCUMENTS. Для совместимости с новыми версиями Windows и оптимизации кода под будущие обновления, рекомендуется рассмотреть возможность использования KNOWNFOLDERID, но с пониманием того, что это может усложнить поддержку старых версий операционных систем.

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

Современное решение для получения пути к директории 'Общие документы пользователей' в Delphi заключается в использовании функции `SHGetSpecialFolderPath` с константой `CSIDL_COMMON_DOCUMENTS` или применении новых интерфейсов Windows для работы с известны

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

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

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