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

Previous  Top  Next

    
 

 

 

Code:

function GettingProcNum: string//Win95 or later and NT3.1 or later

var

Struc:    _SYSTEM_INFO;

begin

GetSystemInfo(Struc);

Result:=IntToStr(Struc.dwNumberOfProcessors);

end;

©Drkb::01433