You can use Win32_Processorthe WMi class, from the info setting you can easily execute a WMI request. check this sample
var
FSWbemLocator : Variant;
FWMIService : Variant;
FWbemObject : Variant;
begin
FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator');
FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', '');
FWbemObject := FWMIService.Get('Win32_Processor');
if FWbemObject.Architecture=9 then
if FWbemObject.Family=131 then
fron here you can use the Architecture, Family, Manufacturer, and tohers properties to determine the type of processor.
source
share