Comment appeler le GetNativeSystemInfo au fichier Inno Setup iss?

Question

Je veux appeler l'API Windows: GetNativeSystemInfo au fichier Inno Setup iss, donc je n'ai pas besoin de call an external DLL to detect ARM processor architecture.
Mais je ne sais pas comment l'ajouter ...

Quelqu'un pourrait me montrer comment importer et utiliser cette fonctionnalité dans un script Inno ???

Merci!

Answer 1

La déclaration 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'; 

Et:

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