Получение уровня процессора

Материал из DRKB

Получение уровня процессора[править | править код]

function GettingProcLevel: string;  // Win95 or later and NT3.1 or later
var
  Struc: _SYSTEM_INFO;
begin
  GetSystemInfo(Struc);
  case Struc.wProcessorLevel of
    3:  Result := 'Intel 80386';
    4:  Result := 'Intel 80486';
    5:  Result := 'Intel Pentium';
    6:  Result := 'Intel Pentium II or better';
  end;
end;


ID: 01434