| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить загруженность процессора? [D6, Win95/98]
Fydgety © (2002-11-03 03:15:00)Подскажите пожалуйста,если можно примерчик.
Друмлин (2002-11-03 17:58:00) [1]сначала инициализируй режим(один раз и где-то в начале):
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 можно много чего узнать
Kotka (2002-11-03 17:54:00) [2]Поищи такие компоненты здесь или на torry.com
| |
