VPF::Диспетчер задач - Форум программистов

creas0ft

Дата 6.4.2007, 23:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 5.8.2006
Где: Саранск

Репутация: нет
Всего: 2

Перелопатил DRKB, ничего нужного по вопросу не нашел.
Меня интересует показатели загрузки процессора и нагрузки сети в реалтайме как диспетчер задач показывает.
Ткните примерчиком плиз.

--------------------

Форум программистов уклонистов в сторону сео-шмео

Sunvas

Дата 6.4.2007, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(creas0ft @ 6.4.2007, 23:07

)

показатели загрузки процессора

Для каких виндов?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

creas0ft

Дата 6.4.2007, 23:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 5.8.2006
Где: Саранск

Репутация: нет
Всего: 2

--------------------

Форум программистов уклонистов в сторону сео-шмео

Sunvas

Дата 6.4.2007, 23:42 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Попробуй это. Взято из ДРКБ

Код


unit Unit1;
 
interface
 
uses
registry, Windows, SysUtils, Forms, Gauges, Classes, Controls, ExtCtrls,
   StdCtrls;
 
type
TForm1 = class(TForm)
   Gauge1: TGauge;
   Timer1: TTimer;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
private
   { Private declarations }
public
   { Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
def: string;
reg: TRegistry;
Buffer: array[0..1000] of integer;
begin
//-------------------------------
reg := TRegistry.Create;
reg.RootKey := HKEY_DYN_DATA;
def := '';
if reg.OpenKey('PerfStats\StartStat', false) = TRUE then
begin
   reg.ReadBinaryData('KERNEL\CPUusage', buffer, 1000);
end;
reg.CloseKey;
Timer1.Enabled := true;
 
end;
//-------------------------------
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
def: string;
reg: TRegistry;
B: array[1..4] of integer;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_DYN_DATA;
def := '';
if reg.OpenKey('PerfStats\StatData', false) = TRUE then
begin
   reg.ReadBinaryData('KERNEL\CPUusage', b, 4);
end;
 
reg.CloseKey;
Gauge1.Progress := b[1];
Application.ProcessMessages;
//-------------------------------
end;
 
end.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

creas0ft

Дата 6.4.2007, 23:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 5.8.2006
Где: Саранск

Репутация: нет
Всего: 2

блин.
а по поиску в дркб такое не нашлось. искал по слову "процессор". пасиба.
а второе как?!

Добавлено через 5 минут и 52 секунды
Проверил еще раз поиск в drkb и правда такое не находится, а по TGauge есть.
Код работает. Но что делать с сетью.

Это сообщение отредактировал(а) creas0ft - 6.4.2007, 23:46

--------------------

Форум программистов уклонистов в сторону сео-шмео

Snowy

Дата 7.4.2007, 03:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

FAQ:
1. http://forum.vingrad.ru/base/Kak-uznat-zag...00/XP)-450.html
2. http://forum.vingrad.ru/base/Network-Traffic-Monitor-8.html

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »