functionGetProcessorType: integer; {Определение типа процессора. Функция возвращает следующие значения, определенные в модуле Windows: PROCESSOR_INTEL_386 PROCESSOR_INTEL_486 PROCESSOR_INTEL_PENTIUM PROCESSOR_MIPS_R4000 - Windows NT only PROCESSOR_ALPHA_21064 - Windows NT only} var
sysInfo: TSystemInfo; begin
GetSystemInfo(sysInfo); Result := sysInfo.dwProcessorType; end
;