| Painkiller |
08-11-2015 14:15 2572688 |
Уровень загрузки процессора в процентах
Добрый день! Нужен оптимальный код показа уровня загрузки процессора в процентах с отображением в ProgressBar -e ?? Искал в сети ну ничего стоящего и рабочего не нашёл =(
|
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;
|
Время: 08:04.
© OSzone.net 2001-
