Получение количества установленных процессоров

Материал из DRKB

Получение количества установленных процессоров[править | править код]

function GettingProcNum: string; // Win95 or later and NT3.1 or later
var
  Struc: _SYSTEM_INFO;
begin
  GetSystemInfo(Struc);
  Result := IntToStr(Struc.dwNumberOfProcessors);
end;


ID: 01433