[YVitaliy]

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

примера по использованию случайно нет?

В Delphi 7 достаточно открыть файл .dpk, Сompile -> Install ->Yes, компонент установится во вкладку Samples. Компонент бросать на форму...
Если без компонента, то достаточно создать по обьекту класса TPDHQuery и TCounter, в конструкторе TCounter первый параметр - обьект класса TPDHQuery, второй параметр - номер ЦПУ (в пред. посте ошибся - для всего проца "-1", для первого ядра - "0").

Код:

var FQuery:TPDHQuery;
     counter:TObject;
...................
procedure Init;
 var cnt:TCounter;
 begin
   FQuery:=TPDHQuery.Create;
   Cnt:=TCounter.Create(FQuery, -1);
   counter:=cnt;
 end;

Function GetCpuLoad:single;
begin
  FQuery.Refresh;
  Result:=TCounter(counter).Value;
end;

Или типа того.