Получаем количество ядер/потоков процессора.
|
1 2 3 4 5 6 |
var cpuCount: integer; begin cpuCount:= getLogicalCPUCount(); ShowMessage(IntToStr(cpuCount)); end; |
Параметры
Нет
Результат
Количество ядер/потоков процессора или (-1) в случае неудачи.
|
1 2 3 4 5 6 7 8 9 10 11 |
function getLogicalCPUCount: integer; var s: TSystemInfo; begin try GetSystemInfo(s); Result := s.dwNumberOfProcessors; except Result:= -1; end; end; |
