[решено] Уровень загрузки процессора в процентах

[Painkiller]

Добрый день! Нужен оптимальный код показа уровня загрузки процессора в процентах с отображением в ProgressBar -e ?? Искал в сети ну ничего стоящего и рабочего не нашёл =(

[opel431]

1. Самый оптимальный через WMI. Вот работа с WMI через WMI-Delphi-Code-Creator:
program GetWMI_Info;

{$APPTYPE CONSOLE}

uses
SysUtils, ActiveX, ComObj, Variants;

procedure GetWin32_ProcessorInfo;
const
WbemUser ='';
WbemPassword ='';
WbemComputer ='localhost';
wbemFlagForwardOnly = $00000020;
var
FSWbemLocator : OLEVariant;
FWMIService : OLEVariant;
FWbemObjectSet: OLEVariant;
FWbemObject : OLEVariant;
oEnum : IEnumvariant;
iValue : LongWord;
begin;
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_Processor','WQL',wbemFlagForwardOnly);
oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
while oEnum.Next(1, FWbemObject, iValue) = 0 do
begin
Writeln(Format('LoadPercentage %d',[Integer(FWbemObject.LoadPercentage)]));// Uint16

Writeln('');
FWbemObject:=Unassigned;
end;
end;


begin
try
CoInitialize(nil);
try
GetWin32_ProcessorInfo;
finally
CoUninitialize;
end;
except
on E:EOleException do
Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));
on E:Exception do
Writeln(E.Classname, ':', E.Message);
end;
Writeln('Press Enter to exit');
Readln;
end.
Выкинуть консоль, закинуть в таймер и считывать результат Integer в позицию Progressbar. Нужное значение в форматированной строке - (Writeln(Format('LoadPercentage %d',[Integer(FWbemObject.LoadPercentage)])).

2. Использовать adCpuUsage.pas от Alexey A. Dynnikov. Только изменить функцию GetCPUCount (Win7, D2009 >)

function GetCPUCount: Integer;
var
MySystem: TSystemInfo;
begin
GetSystemInfo(MySystem);
Result := MySystem.dwNumberOfProcessors;
end;