Как узнать загрузку ЦП для многоядерных ЦП?

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "windows.h"
 
#define SystemProcessorTimes 8
#define MAX_PROCESSORS 32
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
typedef struct _SYSTEM_BASIC_INFORMATION
{
    ULONG Unknown,
    MaximumIncrement,
    PhysicalPageSize,
    NumberOfPhysicalPages,
    LowestPhysicalPage,
    HighestPhysicalPage,
    AllocationGranularity,
    LowestUserAddress,
    HighestUserAddress,
    ActiveProcessors;
    char NumberProcessors;
}SYSTEM_BASIC_INFORMATION, *PSYSTEM_BASIC_INFORMATION;
 
typedef struct _SYSTEM_PROCESSOR_TIMES
{
    __int64 IdleTime,
    KernelTime,
    UserTime,
    DpcTime,
    InterruptTime;
    ULONG InterruptCount;    
} SYSTEM_PROCESSORS_TIMES[MAX_PROCESSORS], SYSTEM_PROCESSOR_TIMES, *PSYSTEM_PROCESSOR_TIMES;
 
typedef UINT __stdcall (*ZwQuerySystemInformation)(DWORD,void*,DWORD,DWORD*);
 
/*function*/
 
SYSTEM_INFO SYSINFO;
 
int GetProcessorsCount(void)
{
  SYSTEM_INFO SYSINFO;
  GetSystemInfo(&SYSINFO);
  return SYSINFO.dwNumberOfProcessors;
}
 
int GetProcessorType(SYSTEM_INFO& SYSINFO)
{
GetSystemInfo(&SYSINFO);
return SYSINFO.dwProcessorType;
}
 
int GetProcessorOemId(SYSTEM_INFO& SYSINFO)
{
GetSystemInfo(&SYSINFO);
return SYSINFO.dwOemId;
}
 
void DrawGraph(int *mas, unsigned int pos, unsigned int count)
{
//ShowMessage(AnsiString(pos) + " " + AnsiString(count));
/*Form1->Memo2->Lines->Add(pos);
Form1->Memo2->Lines->Add(count);*/
for (unsigned int i=pos; i<count; i++)
Form1->Series1->Add(mas[i],i,clRed);
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Memo1->Clear();
//Memo2->Clear();
}
//---------------------------------------------------------------------------
 
int * cpu_usage;
__int64 temp = 0;
unsigned int cycle_count = 0,
             count_mas = 0,
             interval = 1000; //период опроса (мс)
 
HMODULE lib = NULL;
DWORD nowtime, oldtime, pertime, rez, curtime = 0;
SYSTEM_PROCESSORS_TIMES CurrentSysProcTimes, PreviousSysProcTimes;
 
ZwQuerySystemInformation func;
 
AnsiString msg = "";
char * windowname = new char[20];
 
bool init = false;
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    //int i = -1;
    strcpy(windowname,"CPU usage");
 
    ZeroMemory(&CurrentSysProcTimes[0],sizeof(CurrentSysProcTimes));
    ZeroMemory(&PreviousSysProcTimes[0],sizeof(PreviousSysProcTimes));
 
    lib = LoadLibrary("Ntdll.dll");   //динамическая загрузка библиотеки
 
    if (!lib)
    {
        msg = "Error #1: Не удалось динамически загрузить быблиотеку!";
        Application->MessageBox(msg.c_str(), mtWarning, MB_OK | MB_ICONERROR);
        return;
    }
 
    func = (ZwQuerySystemInformation)GetProcAddress(lib,"ZwQuerySystemInformation");  //запрос адреса функции
 
    if (!func)
    {
        msg = "Error #2: Не удалось получить адрес функции!";
        Application->MessageBox(msg.c_str(), mtWarning, MB_OK | MB_ICONERROR);
        FreeLibrary(lib);
        return;
    }
 
    Edit3->Text = "количество ядер : " + IntToStr(GetProcessorsCount()) + " / тип процессора : " + IntToStr(GetProcessorType(SYSINFO)) + " / OemId : " + IntToStr(GetProcessorOemId(SYSINFO));
    init = true;
    msg = "Инициализация успешна!";
    Application->MessageBox(msg.c_str(), windowname, MB_OK | MB_ICONINFORMATION);
    Button1->Enabled = false;
    Button3->Enabled = true;
 
    cpu_usage = new int[100000];
    count_mas = 0;
 
 
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//Время замеряем с помощью GetTickCount(), тут же расчёт интервала времени.
 
//if (cycle_count == 9) //{Button2->Click(); return;}
//{/*DrawGraph(cpu_usage, count_mas - cycle_count + 2, cycle_count-2);*/ Timer1->Enabled = false; Button2->Enabled = false; Button3->Enabled = true; return;}
/*{oldtime = GetTickCount(); GetProcessorsCount(); func(SystemProcessorTimes, &PreviousSysProcTimes[0], sizeof(PreviousSysProcTimes),0); temp = 0; Sleep(Timer1->Interval);}*/
 
        nowtime = GetTickCount();
        pertime = nowtime - oldtime;
        curtime += pertime;
        oldtime = nowtime;
 
        /*read the usage*/
        func(SystemProcessorTimes,
              &CurrentSysProcTimes[0],
              sizeof(CurrentSysProcTimes),
              &rez);
 
        temp = 0;
        for(int j=0;j<MAX_PROCESSORS;j++)
        {
            temp += CurrentSysProcTimes[j].IdleTime - PreviousSysProcTimes[j].IdleTime;
            /*Memo2->Lines->Add("current: " + AnsiString(CurrentSysProcTimes[j].IdleTime));
            Memo2->Lines->Add("previous: " + AnsiString(PreviousSysProcTimes[j].IdleTime));
            Memo2->Lines->Add("");*/
        }
        temp /= 10000;  //переводим из наносекунд в миллисекунды
        temp /= (int) GetProcessorsCount(); //делим на количество ядер
 
        temp = (int) pertime - temp;
 
 
        if (cycle_count >= 1)
        {
        msg = "";
        msg += "Current time: " + IntToStr(curtime) + " milisecond(s). Processor usage on " + IntToStr(temp) + " milisecond.";
        Memo1->Lines->Add(msg);
 
 
        cpu_usage[count_mas] = temp / (float) pertime*100;
        Edit4->Text = IntToStr(count_mas + 1);
 
        msg = "";
        msg += "Usage of processors is " + IntToStr(cpu_usage[count_mas]) + "%";
        Memo1->Lines->Add(msg);
        Memo1->Lines->Add("");
 
        if ( (CheckBox1->Checked) && ((count_mas % 300) == 0) ) {Series1->Clear();}
        Series1->Add(cpu_usage[count_mas],count_mas,clRed);
 
        count_mas++;
        }
 
        /*else if (cycle_count == 0)
        {
        count_mas++;
        }*/
 
        cycle_count++;
        Edit2->Text = IntToStr(cycle_count);
 
        memcpy(&PreviousSysProcTimes[0],
                &CurrentSysProcTimes[0],
                sizeof(PreviousSysProcTimes));
 
    //Sleep(1000);
 
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (Timer1->Enabled)
{
//DrawGraph(cpu_usage, count_mas - cycle_count + 2, cycle_count-2);
Timer1->Enabled = false;
 
//cycle_count = 0;
temp = 0;
curtime = 0;
oldtime = GetTickCount();
//Edit2->Text = "";
/*Memo1->Lines->Add("");
Memo1->Lines->Add("============================");
Memo1->Lines->Add("");*/
//delete[] cpu_usage;
 
Button2->Enabled = false;
Button3->Enabled = true;
}
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 
if (init)
{
    Button3->Enabled = false;
 
    /*init prev processors data*/
 
    //вызываем функцию по таймеру и один раз до запуска таймера.
    oldtime =  GetTickCount();
    if (func(SystemProcessorTimes,
              &PreviousSysProcTimes[0],
              sizeof(PreviousSysProcTimes),0) != 0)
    {
        msg = "Error #3: Ошибка функции!";
        Application->MessageBox(msg.c_str(), mtWarning, MB_OK | MB_ICONERROR);
        FreeLibrary(lib);
        return;
    }
 
Sleep(100);
cycle_count = 0;
 
Button2->Enabled = true;
 
if (Edit1->Text != "") {interval = Edit1->Text.ToInt(); if (interval < 1) {msg = "Error #0: Введено неверное значение интервала!"; Application->MessageBox(msg.c_str(), mtWarning, MB_OK | MB_ICONERROR); return;} }
else {Edit1->Text = IntToStr(interval);}
Timer1->Interval = interval;
Timer1->Enabled = true;
}
 
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
    strcpy(windowname,"CPU usage");
    msg = "Author: Smirnov Maxim\nemail: [email]max.smirnov92@yandex.ru[/email]";
    Application->MessageBox(msg.c_str(), windowname, MB_OK | MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Quit1Click(TObject *Sender)
{
if (lib) FreeLibrary(lib);
delete[] cpu_usage;
Form1->Close();
}
//---------------------------------------------------------------------------