Вызов функции GetNativeSystemInfo в Inno Setup для определения архитектуры процессора

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

Вызов функции GetNativeSystemInfo в Inno Setup для определения архитектуры процессора

В процессе создания установщика с помощью Inno Setup может возникнуть необходимость определения архитектуры процессора, на котором он будет установлен. Одним из способов достижения этой цели является использование функции Windows API GetNativeSystemInfo. В этой статье мы рассмотрим, как импортировать и использовать эту функцию в скрипте Inno Setup.

Прежде всего, давайте рассмотрим декларацию API:

type
  TSystemInfo = record
    wProcessorArchitecture: Word;
    wReserved: Word;
    dwPageSize: DWORD;
    lpMinimumApplicationAddress: Cardinal;
    lpMaximumApplicationAddress: Cardinal;
    dwActiveProcessorMask: DWORD_PTR;
    dwNumberOfProcessors: DWORD;
    dwProcessorType: DWORD;
    dwAllocationGranularity: DWORD;
    wProcessorLevel: Word;
    wProcessorRevision: Word;
  end;

const
  PROCESSOR_ARCHITECTURE_INTEL            = 0;
  PROCESSOR_ARCHITECTURE_MIPS             = 1;
  PROCESSOR_ARCHITECTURE_ALPHA            = 2;
  PROCESSOR_ARCHITECTURE_PPC              = 3;
  PROCESSOR_ARCHITECTURE_SHX              = 4;
  PROCESSOR_ARCHITECTURE_ARM              = 5;
  PROCESSOR_ARCHITECTURE_IA64             = 6;
  PROCESSOR_ARCHITECTURE_ALPHA64          = 7;
  PROCESSOR_ARCHITECTURE_MSIL             = 8;
  PROCESSOR_ARCHITECTURE_AMD64            = 9;
  PROCESSOR_ARCHITECTURE_IA32_ON_WIN64    = 10;

procedure GetNativeSystemInfo(var lpSystemInformation: TSystemInfo);
  external 'GetNativeSystemInfo@Kernel32.dll stdcall';

Теперь давайте посмотрим, как использовать эту функцию в скрипте Inno Setup:

var
  SystemInfo: TSystemInfo;
begin
  GetNativeSystemInfo(SystemInfo);
  if SystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_ARM then
  begin
    // ...
  end;
end;

В этом примере мы объявляем переменную SystemInfo типа TSystemInfo и вызываем функцию GetNativeSystemInfo, передавая ей адрес SystemInfo. Затем мы проверяем значение поля wProcessorArchitecture, чтобы определить архитектуру процессора. Если она равна PROCESSOR_ARCHITECTURE_ARM, то процессор является архитектурой ARM.

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

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

Описание контекста: В статье рассматривается, как использовать функцию Windows API GetNativeSystemInfo в скрипте Inno Setup для определения архитектуры процессора.

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

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

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