Главная » Delphi » Индикатор загрузки процессора на Delphi

Индикатор загрузки процессора на Delphi

Процессор Delphi CPU  delphi

 

Решил поделиться небольшим примером индикатора загрузки процессоров на Delphi. За основу взят компонент adCpuUsage. Думаю, что это дополнение в ваши приложения не будет лишним.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,AdCpuUsage, ExtCtrls, ComCtrls, WinSock, Gauges, StdCtrls;

type
TForm1 = class(TForm)
StatusBar: TStatusBar;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1 : TForm1;
CPU : Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
GInitData : TWSAData;
i : Integer;
Gauge : TGauge;
begin
for i:=1 to GetCPUCount-1 do
begin
try
Gauge:=TGauge.Create(Form1);
Gauge.Name:=Format('Gauge%d',[i]);
with TGauge(FindComponent(Format('Gauge%d',[i]))) do
begin
Parent:=StatusBar;
Top:=2;
Width:=100;
Height:=18;
Left:=((i-1)*Width);
MinValue:=0;
MaxValue:=100;
ForeColor:=StatusBar.Color;
end;
except
end;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
n:Integer;
begin
CollectCPUData;
for n:=1 to GetCPUCount-1 do
begin
TGauge(FindComponent('Gauge'+IntToStr(n))).Progress:=StrToInt(Format('%0.0f%',[GetCPUUsage(n)*100]));
CPU:=StrToInt(Format('%0.0f%',[GetCPUUsage(n)*100]));
end;
end;

end.

Процессор Delphi CPU  delphi    cpu.rar (174,8 KiB, 2 185 hits)

Похожие записи
Авторизация в статистике LiveInternet с помощью De... Вчера делал заказ. Нужно было написать программу на Delphi, которая с помощью INDY компонентов авторизируется на сайта LiveInternet и получает в Memo...
Моя коллекция иконок У каждого программиста есть подобная коллекция иконок. Вот решил поделиться своей. Архив содержит 4308 файлов ICO размеров 16х16 и 32х32. ...
Удаление HTML тегов в Delphi В своем новом проекте застрял на удалении HTML тегов из переменной. За час удалось найти в интернете готовую функцию, которую я немного доработал и д...
Температура процессора на Delphi... Давно искал рабочий код для определения температуры процессора на Delphi. Многие предлагали копать в сторону WMI, но у меня ничего универсального не п...
This entry was posted in Delphi and tagged , , . Bookmark the permalink.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *