Создание единого кодового пространства для работы с CSIDL и KNOWFOLDERID в Delphi XE4

Delphi , ОС и Железо , Windows

Вопрос, поднятый пользователем, заключается в необходимости создания единой кодовой базы для работы с идентификаторами папок CSIDL и KNOWFOLDERID в среде разработки Delphi XE4. Это требуется для обеспечения совместимости с различными версиями операционной системы Windows, начиная с Windows XP.

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

Для решения этой задачи можно было бы использовать условную компиляцию, но это привело бы к необходимости создания разных версий исполняемых файлов для разных версий Windows, что значительно усложняет процесс установки.

Альтернативный ответ

Вместо условной компиляции рекомендуется использовать ветвление в runtime. Это позволяет коду выбирать соответствующую функциональность в зависимости от версии операционной системы, на которой он выполняется. Пример такого подхода в коде на Object Pascal (Delphi):

uses
  System.SysUtils;

function IsWindowsVistaOrGreater: Boolean;
begin
  Result := IsWindowsVersionOrGreater(HiByte(_WIN32_WINNT_VISTA), LoByte(_WIN32_WINNT_VISTA), 0);
end;

procedure DoSomething;
begin
  if IsWindowsVistaOrGreater then
    DoWithKnownFolderID
  else
    DoWithCSIDL;
end;

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

Для работы с системными API, которые могут отсутствовать на старых платформах, следует использовать отложенную загрузку (delay loading), что является хорошей практикой в современных версиях Delphi.

Подтвержденный ответ

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

Использование новых функций для проверки версии Windows

Для проверки версии Windows рекомендуется использовать новые вспомогательные функции, которые включены в модули Windows, поставляемые с Delphi. Если ваша версия Delphi не включает эти функции, вы можете использовать следующие:

type
  TOSVersionInfoEx = record
    dwOSVersionInfoSize: DWORD;
    dwMajorVersion: Word;
    dwMinorVersion: Word;
    wServicePackMajor: Word;
    // другие поля...
  end;

function IsWindowsVersionOrGreater(wMajorVersion, wMinorVersion, wServicePackMajor: Word): Boolean;
// ... реализация функции ...

function IsWindowsVistaOrGreater: Boolean;
// ... реализация функции ...

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

Заключение

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

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

Создание универсального кодового решения для работы с CSIDL и KNOWFOLDERID в Delphi XE4, обеспечивающего совместимость с разными версиями Windows, без использования условной компиляции.

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

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

:: Главная :: Windows ::