Обходной Путь: Получение Пути к Папке с Использованием KNOWN FOLDER ID в Delphi без Создания Специального Массива

Delphi , Синтаксис , Справочник по API-функциям

Вопрос, который стоит перед разработчиками, использующими Delphi, заключается в том, как получить физический путь к папке, если известен только KNOWN FOLDER ID. К примеру, если вам нужен путь к папке "Рабочий стол" или "Документы", вы можете использовать KNOWN FOLDER ID для получения этого пути, не создавая массив с каждой возможной комбинацией ID и пути.

Описание проблемы

KNOWN FOLDER ID представляет собой уникальный идентификатор, который можно использовать для доступа к стандартным папкам в операционной системе Windows. Эти идентификаторы можно найти в документации Microsoft. Однако, чтобы использовать их в своих проектах, разработчикам необходимо знать, как преобразовать KNOWN FOLDER ID в соответствующий физический путь к папке, не прибегая к созданию статического массива с этими данными.

Решение проблемы с использованием Win API

Для решения этой задачи можно воспользоваться функцией Win API SHGetKnownFolderPath. Эта функция принимает KNOWN FOLDER ID в качестве аргумента и возвращает путь к соответствующей папке. Важно отметить, что функция была добавлена в Windows Vista, поэтому для работы с ней в Delphi 7 и более старых версиях потребуется самостоятельно объявить её в вашем проекте.

type
  KNOWNFOLDERID = TGuid;
function SHGetKnownFolderPath(
  const rfid: KNOWNFOLDERID;
  dwFlags: DWORD;
  hToken: THandle;
  out ppszPath: PWideChar
): HResult; stdcall; external 'Shell32.dll';

Также стоит учесть, что использование SHGetKnownFolderPath на системах до Windows Vista приведет к ошибкам. В таких случаях рекомендуется использовать CSIDL (Common Shell ID List) функции.

Преобразование строки в GUID

KNOWN FOLDER ID обычно представлены в виде строк. Для их использования в функции SHGetKnownFolderPath необходимо сначала преобразовать строку в GUID. Для этого можно использовать функцию StringToGUID.

Пример кода

uses
  ShellAPI;

var
  Path: PWideChar;
  Guid: TGUID;
begin
  // Преобразуем строку KNOWN FOLDER ID в GUID
  if StringToGUID('{37A5AD60-N21F-11D9-B93F-0000104B48A1}', Guid, TGuidToStringOptions.goidtsofWithDash) then
  begin
    // Получаем путь к папке с использованием KNOWN FOLDER ID
    if SHGetKnownFolderPath(Guid, 0, 0, Path) = S_OK then
    begin
      // Здесь у вас есть путь к папке, который вы можете использовать
      // Не забудьте освободить память, выделенную для Path
      CoTaskMemFree(Path);
    end;
  end
  else
    // Обработка ошибки преобразования строки в GUID
    ShowMessage('Ошибка преобразования строки в GUID');
end;

Заключение

Использование KNOWN FOLDER ID для получения путей к стандартным папкам в Windows — это мощный способ обеспечения портативности и гибкости ваших приложений. С помощью SHGetKnownFolderPath и StringToGUID вы можете легко получить доступ к этим папкам, не привязываясь к статическим данным.

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

Разработчики в Delphi используют KNOWN FOLDER ID для получения путей к стандартным папкам Windows, без необходимости создания статического массива, с помощью функции `SHGetKnownFolderPath`.

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

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

:: Главная :: Справочник по API-функциям ::