Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.12.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
Игорь ©   (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;
Скачать: [xml.tar.bz2];

Наверх




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


2-1285337414
Guestt
2010-09-24 18:10
2010.12.19
Как передать в функцию ссылку на другую функцию?


15-1284040424
Zenith
2010-09-09 17:53
2010.12.19
Уроки от ЮЗа


15-1284018704
12
2010-09-09 11:51
2010.12.19
оцените изврат


6-1231234711
dan
2009-01-06 12:38
2010.12.19
Имя компа в Indy





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский