Вниз
Скачать: CL | DM;

Как определить загруженность процессора?   Найти похожие ветки 

 
Fydgety   (2002-11-03 03:15) [0]

Подскажите пожалуйста,если можно примерчик.


 
Kotka ©   (2002-11-03 17:54) [1]

Поищи такие компоненты здесь или на torry.com


 
Друмлин   (2002-11-03 17:58) [2]

сначала инициализируй режим(один раз и где-то в начале):

var CPUloadKey:HKEY;Cpuloadsize,ti:integer;cpuload:integer;
...
cpuloadsize:=sizeof(integer);
ti:=REG_DWORD;
RegOpenKey(HKEY_DYN_DATA, "PerfStats\StartStat", CPULoadKey);
RegQueryValueEx(CPULoadKey,"KERNEL\CPUUsage", nil,@ti,@cpuload,@cpuloadsize);
RegCloseKey(CPULoadKey);
RegOpenKey(HKEY_DYN_DATA, "PerfStats\StatData", CPULoadKey);
...

в тот момент, когда надо получить значение, делай:

...
RegQueryValueEx(CPULoadKey, "KERNEL\CPUUsage", nil, @ti, @CPULoad, @CPULoadSize);// то что тебе надо - в CPULoad
...

по завершению работы:

RegCloseKey(CPULoadKey);
RegOpenKey(HKEY_DYN_DATA, "PerfStats\StopStat", CPULoadKey);
RegQueryValueEx(CPULoadKey,"KERNEL\CPUUsage", nil,@ti,@cpuload,@cpuloadsize);
RegCloseKey(CPULoadKey);

а вообще то шуруя через HKEY_DYN_DATA\PerfStats можно много чего узнать



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c
14-37383
stas_a
2002-12-25 14:32
2003.01.13
StringGrid с компонентами внутри ячеек


3-36944
Vick
2002-12-18 10:27
2003.01.13
Проблемы с русскими буквами в ClientDataSet при фильтрации


1-37034
solo
2002-12-28 20:27
2003.01.13
Изменение ширины столбца TListView


1-37102
MadGhost
2003-01-04 07:20
2003.01.13
Как отключить и включить потом мышу и клаву


1-37161
BlackTiger
2002-12-28 14:07
2003.01.13
Странно... (создание контролов в run-time)




   Наверх