Создание установочных пакетов Microsoft Office 2007-2013 для 32 и 64-битных систем в Inno Setup: решение проблемы доступа к реестру

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

В данной статье мы рассмотрим процесс создания установочного пакета для Microsoft Office 2007-2013 версий, который будет работать как на 32-битных, так и на 64-битных системах. Основной задачей является копирование файлов в директории Office, используя инструмент Inno Setup.

Проблема доступа к реестру

При создании установочного пакета для Microsoft Office с использованием Inno Setup, разработчики часто сталкиваются с необходимостью доступа к реестру Windows для определения директории установки Office. Особенно это актуально, когда требуется создать универсальный инсталлятор, работающий на различных архитектурах (x86 и x64).

Решение проблемы

Для решения данной задачи необходимо написать функцию, которая будет извлекать путь установки Office из реестра и возвращать его в зависимости от версии Office (2007-2013) и архитектуры системы. Пример такой функции на Object Pascal (Delphi) выглядит следующим образом:

function GetHKLM() : Integer;
begin
  if IsWin64 then
    Result := HKLM64
  else
    Result := HKEY_LOCAL_MACHINE;
end;

function officeInstallDir(Param: string): string;
var
  rootKey, styleFolder, bibformFolder : string;
begin
  rootKey := GetHKLM();
  if RegQueryStringValue(rootKey, 'SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot', 'Path', bibformFolder) then
  begin
    styleFolder := ExpandConstant('{userappdata}\Microsoft\Bibliography\Style');
    bibformFolder := bibformFolder + '1046\Bibliography';
  end
  else
  begin
    if RegQueryStringValue(rootKey, 'SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot', 'Path', styleFolder) then
    begin
      bibformFolder := styleFolder + '1046\Bibliography';
      styleFolder := styleFolder + 'Bibliography\Style';
    end
    else
    begin
      if RegQueryStringValue(rootKey, 'SOFTWARE\Microsoft\Office\12.0\Common\InstallRoot', 'Path', styleFolder) then
      begin
        bibformFolder := styleFolder + '1046\Bibliography';
        styleFolder := styleFolder + 'Bibliography\Style';
      end;
    end;
  end;
  if Param = 'style' then
    Result := styleFolder
  else
    Result := bibformFolder;
end;

Использование функции в Inno Setup

Для использования функции officeInstallDir в Inno Setup, необходимо указать путь установки файлов следующим образом:

[Files]
Source: "E:\Google Drive\Informática\Bibword\Bibword Estilos\*"; DestDir: "{code:officeInstallDir|style}"; Flags: ignoreversion
Source: "E:\Google Drive\Informática\Bibword\Bibword file\BIBFORM.xml"; DestDir: "{code:officeInstallDir|bibform}"; Flags: ignoreversion

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

При работе на 64-битной системе с 32-битным установщиком Inno, ключ HKLM автоматически интерпретируется как HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node. Это означает, что при установке 64-битных версий Office, информация о пути установки может находиться в 64-битной ветке реестра. В таком случае, необходимо проверить ключ HKLM64, если переменная IsWin64 имеет значение true. При этом, параметр RootKey должен быть передан как строка, а не как целочисленное значение.

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

• Убедитесь, что вы правильно обращаетесь к ключам реестра, учитывая архитектуру системы.
• При использовании констант в коде Inno Setup, убедитесь, что вы используете функцию ExpandConstant для корректного расширения путей.
• Внимательно проверьте логику условий и порядок выполнения операций в функции officeInstallDir.

Следуя этим рекомендациям, вы сможете создать установочный пакет для Microsoft Office, который будет корректно работать на системах с различной архитектурой.

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

В статье рассматривается создание универсального инсталлятора для Microsoft Office 2007-2013, поддерживающего 32-битные и 64-битные системы, с решением проблемы доступа к реестру при использовании Inno Setup.

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

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

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