Как выбрать архитектуру процессора для установки MSI с Delphi

Question

Хорошая новость: большой выпуск находится в сумке!

Плохие новости: Я только что узнал (2 недели слишком поздно), что некоторые люди не имеют MSXML 6 на своих машинах, и новый установщик, который мы развертываем, требует этого.

Хорошие новости: Мы можем распространять файл MSI для установки MSXML

Плохие новости: Есть три MSI-файлы на выбор, один «нормальный» один, один, заканчивающийся в ia64 и заканчивающегося в x64.

У меня есть в моем распоряжении, Delphi 7, C++ и um ... Пакетные файлы ... Как сделать один из тех удобных Setup.exe, которые выбирают правильный MSI для запуска автоматически.

Answer 1

Краткий ответ: используйте функцию Windows API GetSystemInfo, чтобы узнать, является ли система 32-разрядной или 64-разрядной.

Пример кода:

program Project1; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils, Windows; 

var 
    si: TSystemInfo; 

const 
    PROCESSOR_ARCHITECTURE_AMD64 = 9; 
    PROCESSOR_ARCHITECTURE_IA64 = 6; 
    PROCESSOR_ARCHITECTURE_INTEL = 0; 
    PROCESSOR_ARCHITECTURE_UNKNOWN = $FFFF; 

begin 

    GetSystemInfo(si); 
    case si.wProcessorArchitecture of 
    PROCESSOR_ARCHITECTURE_AMD64: Writeln('AMD64'); 
    PROCESSOR_ARCHITECTURE_IA64: Writeln('IA64'); 
    PROCESSOR_ARCHITECTURE_INTEL: Writeln('Intel'); 
    PROCESSOR_ARCHITECTURE_UNKNOWN: Writeln('Unknown'); 
    end; 

    Readln; 

end. 

Два наиболее распространенных выходы 'Intel' (32-разрядная версия x86) и 'AMD64' (64-битный x64). На самом деле вы можете более или менее доверять тому, что получите один из них.

Теперь, на самом деле, я считаю, что вышеуказанная программа будет всегда возвращение «Intel» (32-разрядная версия x86), так как все приложения Delphi являются 32-разрядные, и поэтому они эмулируются под 64-разрядной ОС Windows (используя WOW64) - нет 64-разрядной версии компилятора Delphi и IDE.

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

program Project1; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils, Windows; 

var 
    si: TSystemInfo; 

const 
    PROCESSOR_ARCHITECTURE_AMD64 = 9; 
    PROCESSOR_ARCHITECTURE_IA64 = 6; 
    PROCESSOR_ARCHITECTURE_INTEL = 0; 
    PROCESSOR_ARCHITECTURE_UNKNOWN = $FFFF; 

procedure GetNativeSystemInfo(var lpSystemInfo: TSystemInfo); stdcall; external kernel32 name 'GetNativeSystemInfo'; 

begin 

    GetNativeSystemInfo(si); 
    case si.wProcessorArchitecture of 
    PROCESSOR_ARCHITECTURE_AMD64: Writeln('AMD64'); 
    PROCESSOR_ARCHITECTURE_IA64: Writeln('IA64'); 
    PROCESSOR_ARCHITECTURE_INTEL: Writeln('Intel'); 
    PROCESSOR_ARCHITECTURE_UNKNOWN: Writeln('Unknown'); 
    end; 

    Readln; 

end. 

Answer 2

Вы можете забыть IA64, который предназначен для систем Itanium. Я бы использовал инструмент для создания установки (есть отличные бесплатные, такие как InnoSetup). Они обнаружат, какой тип системы работает, и пусть вы запустите соответствующий установщик msxml. Если инструмент поддерживает движок установщика Windows напрямую, он может использовать модули слияния (msm) для распределения требуемых промежутков времени выполнения, в противном случае довольно просто запустить msi из программы установки. Вы также можете написать свой собственный установщик, но вы получите другое приложение для написания, тестирования и обслуживания. Я бы воспользовался существующими для такой задачи.