Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.12.19;
Скачать: CL | DM;

Вниз

Узнать количество процессоров компьютера   Найти похожие ветки 

 
Игорь ©   (2010-09-25 13:04) [0]

Здравствуйте, подскажите пожалуйста как узнать количество процессоров компьютера, NtQuerySystemInformation->SYSTEM_BASIC_INFORMATION->KeNumberProcessors возвращает количество ядер, в MSDN ничего дельного не нашел, Windows 7


 
Loginov Dmitry ©   (2010-09-25 22:45) [1]


function GetCPUCount(AMask: Cardinal): Integer;
var
 I: Integer;
begin
 Result := 0;
 for I := 0 to 31 do
   if Odd(AMask shr I) then
     Result := I + 1;
end;

var
 Mask1, Mask2: Cardinal;
GetProcessAffinityMask(GetCurrentProcess, Mask1, Mask2);
CPUCount := GetCPUCount(Mask1);


 
Игорь Шевченко ©   (2010-09-26 10:25) [2]


> KeNumberProcessors возвращает количество ядер


А тебе чего надо - количество камней ?



Страницы: 1 вся ветка

Текущий архив: 2010.12.19;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
15-1284064172
Юрий
2010-09-10 00:29
2010.12.19
С днем рождения ! 10 сентября 2010 пятница


2-1285398887
webpauk
2010-09-25 11:14
2010.12.19
Нарисовать иконку в TEdit


2-1285589072
harikolo
2010-09-27 16:04
2010.12.19
Чтение и запись данных в Interbase через Delphi


15-1283787285
oldman
2010-09-06 19:34
2010.12.19
Дочка получила первую в жизни отметку


2-1285337626
GrieVeR-113
2010-09-24 18:13
2010.12.19
AlphaBlend для отдельного компонента формы.