Главная » 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 164 hits)

Похожие записи
Удаление HTML тегов в Delphi В своем новом проекте застрял на удалении HTML тегов из переменной. За час удалось найти в интернете готовую функцию, которую я немного доработал и д...
Delphi — сортировка в ListView по двум колон... Сегодня столкнулся с необходимостью отсортировать содержимое ячеек ListView по содержимому двух колонок. Ранее такое делать не приходилось, поэтому ре...
Температура процессора на Delphi... Давно искал рабочий код для определения температуры процессора на Delphi. Многие предлагали копать в сторону WMI, но у меня ничего универсального не п...
Программа для автопрокрутки сайта thedeepestsite.c... Многие из вас, наверное, уже знакомы с самым глубоким в мире сайтом Borjomi thedeepestsite.com. Мне он тоже понравился. Идей гениальная. Я 15 минут к...
This entry was posted in Delphi and tagged , , . Bookmark the permalink.

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

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