Отображение загруженности процессора

[Vladya]

Добрый день всем! У меня есть маленький вопросик, как можно отобразить текущую загруженность процессора? Перечитал кучу инфы но так ни чего толкового и не нашел, нашел только (более менее нормально) отображение загруженности с использованием модуля adCPUUsage но там для построения графика загрузки, а мне нужно что бы отображалось, скажем, с помощью Gauge, что бы писало сколько процентов и т.д.

[Stilet]

ДелфиВорлд еще не отменяли:
http://delphiworld.narod.ru/base/cpu_usage.html
А насчет Gauge - так это тот же прогрессбар.

[Vladya]

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

ДелфиВорлд еще не отменяли:
http://delphiworld.narod.ru/base/cpu_usage.html
А насчет Gauge - так это тот же прогрессбар.

Да но в прогрессе нет возможности отобразить проценты.
Это я смотрел, но не понял как нужно правильно его считать. не могли бы Вы написать, или обьяснить?

[Stilet]

А о каком конкретно Gauge идет речь? Просто й меня например их 4 разновидности.

А вообще есть класный TLMDProgressFill из LMD. Он проценты отображать умеет.

[Vladya]

Вообще я имел в виду стандартный gauge в виде полукруга (не помню точно как этот King называется), но это не важно, так как есть множество компонентов, в частности прогресс баров которые умеют отображать проценты, и кстати говоря в десятки раз лучше чем стандартный.
Ну так что кто нить подскажет как считать реестр? Обьясните пожалуйста.

[Stilet]

Ну вот же: http://delphiworld.narod.ru/base/cpu_usage2.html
Я ж говорю DW еще не отменили.

[Vladya]

Спасибо огромнейшее!!!

[Pr1meEX]

интересная программа! но я пока не опытен и во тинтересует а можно ли как нибуть ее переделат ьв консольное приложение? достаточно чтоб только отображалась 1 строка с % текущей занятости ЦП... если кто может премного благодарен!

[Stilet]

Особо не вникал но что-то вроде этого:

program Project1;

{$APPTYPE CONSOLE}

uses registry,
 Windows, SysUtils, Forms, Gauges, Classes, Controls, ExtCtrls,
    StdCtrls;
    var  B: array[1..4] of integer;reg:TRegistry;
begin
 reg := TRegistry.Create;
 reg.RootKey := HKEY_DYN_DATA;
 if reg.OpenKey('PerfStats\StatData', false) = TRUE then
  begin
    reg.ReadBinaryData('KERNEL\CPUusage', b, 4);
  end;
  write(b[1]);
  readln;
 reg.Free;
  { TODO -oUser -cConsole Main : Insert code here }
end.