Определение количества CPU

Автор: Gua

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Определение количества CPU

Зависимости: Windows
Автор:       Gua, gua@ukr.net, ICQ:141585495, Simferopol
Copyright:   ©Gua
Дата:        15 июля 2002 г.
***************************************************** }

function GetCPUCount: byte;
var
  si: TSystemInfo;
begin
  GetSystemInfo(si);
  Result := si.dwNumberOfProcessors;
end;