Текущий архив: 2003.01.13;
Скачать: 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 вся ветка

Текущий архив: 2003.01.13;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.008 c