Запуск 64-битной версии PowerShell в Inno Setup

Delphi , Программа и Интерфейс , Инсталяция

При создании установщика с помощью Inno Setup вы можете столкнуться с проблемой, когда PowerShell запускается в 32-битном режиме, даже если ваше приложение настроено на 64-битную архитектуру. В этой статье мы рассмотрим, как принудительно запустить 64-битную версию PowerShell в шаге ssPostInstall вашего установщика Inno Setup.

Проблема

Вопрос пользователя на StackOverflow заключался в том, что он хотел использовать 64-битную версию PowerShell в шаге ssPostInstall своего установщика Inno Setup, но вместо этого всегда открывалась 32-битная версия. Несмотря на то, что его установщик был настроен на 64-битную архитектуру, в Диспетчере задач отображалось, что он работает в 32-битном режиме. Также открываемый PowerShell работал в 32-битном режиме.

Решение

Чтобы принудительно открыть 64-битную версию PowerShell в Inno Setup, вам нужно отключить WOW64/file system redirection и использовать функцию Exec вместо ShellExec. Вот как это сделать:

1. Откройте свой скрипт Inno Setup и найдите процедуру CurStepChanged.
2. Добавьте следующий код в блок if CurrentStep = ssPostInstall:

OldState := EnableFsRedirection(False);
try
  ReturnCode :=
    Exec('powershell.exe', '', '', SW_SHOWNORMAL, ewWaitUntilTerminated,
         ErrorCode);
finally
  EnableFsRedirection(OldState);
end;

Описание кода:

• EnableFsRedirection(False) отключает WOW64/file system redirection.
• Exec('powershell.exe', '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode) запускает PowerShell в текущем режиме (32 или 64 бит, в зависимости от того, где он установлен).
• EnableFsRedirection(OldState) в блоке finally восстанавливает предыдущее состояние WOW64/file system redirection.

Важно отметить, что параметр ArchitecturesInstallIn64BitMode не может сделать Inno Setup приложением 64 бит. Inno Setup является 32-битным приложением, независимо от настроек.

Пример кода

Вот полный пример кода, который демонстрирует, как принудительно открыть 64-битную версию PowerShell в шаге ssPostInstall вашего установщика Inno Setup:

[Setup]
ArchitecturesAllowed=x64
PrivilegesRequired=admin

[Code]
Procedure CurStepChanged(CurrentStep: TSetupStep);
var
  OldState: Boolean;
  ReturnCode, ErrorCode: Integer;
begin
  if CurrentStep = ssPostInstall then
  begin
    OldState := EnableFsRedirection(False);
    try
      ReturnCode :=
        Exec('powershell.exe', '', '', SW_SHOWNORMAL, ewWaitUntilTerminated,
             ErrorCode);
    finally
      EnableFsRedirection(OldState);
    end;
  end;
end;

Заключение

В этой статье мы рассмотрели проблему запуска 64-битной версии PowerShell в Inno Setup и предложили решение, которое включает отключение WOW64/file system redirection и использование функции Exec вместо ShellExec. Мы также предоставили пример кода, который демонстрирует, как это сделать. Надеемся, эта статья поможет вам решить эту проблему и запустить 64-битную версию PowerShell в вашем установщике Inno Setup.

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

Описание процесса принудительного запуска 64-битной версии PowerShell в шаге `` ssPostInstall `` установщика Inno Setup, чтобы решить проблему открытия 32-битной версии вместо 64-битной, даже при настройке установщика на 64-битную архитектуру.

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

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

:: Главная :: Инсталяция ::