Как программно узнать количество процессоров на компе

[ironura]

Вопрос: есть ли простое решение этой проблемы(может какая то функция или стандартный класс). Если кто то знает ответ заранее благодарю
Возможно следует немного не так поставить вопрос - Как программно узнать количество ядер в процессоре.

[Kotofff]

Учимся искать :
http://programmersforum.ru/showthrea...E5%F2%F7%E5%F0

[ironura]

Сообщение от Kotofff

Учимся искать :
http://programmersforum.ru/showthrea...E5%F2%F7%E5%F0

Спасибо большое, но это совсем не то. Я уже искал наиболее подходящая заметка -
http://programmersforum.ru/showthrea...ED%EE%F1%F2%FC
Но к сожалению в ней нет ответа на мой конкретный вопрос

[Kotofff]

http://www.delphisources.ru/forum/showthread.php?t=5791
http://pblog.ru/lab/?p=467#more-467

[ironura]

Сообщение от Kotofff

http://www.delphisources.ru/forum/showthread.php?t=5791
http://pblog.ru/lab/?p=467#more-467

А это то что нужно. Спасибо друг

[MalCer]

Я делал для себя так:

function GetCPUCount: string;
var
  s: TSystemInfo;
begin
  GetSystemInfo(s);
  Result := inttostr(s.dwNumberOfProcessors);
  if result='1' then 
       result:='1 ядро';
  if (result='2') or (result='3') or (result='4') then result:=result+' ядра';
end;