Реферат: Замер степени использования процессора

Do While bStart

пока ещё раз не нажмём на кнопочку <

RegQueryValueEx hkey, "KERNEL\CPUUsage", 0, 0, dwCPUUsage, lpcbData

Sleep 500

интервал опроса - полсекунды

Caption = Str$(dwCPUUsage) & "%"

Любуемся!!!

DoEvents

даём жить

Loop

RegCloseKey hkey

закрыть ключ

останавливаем счётчик. Если Вы прервали выполнение программы

до этого момента, остановить счётчик можно только перезагрузившись!!!

Проверено:((

If RegOpenKeyEx(HKEY_DYN_DATA, "PerfStats\StopStat", 0, KEY_ALL_ACCESS, _

hkey) <> 0 Then Exit Sub

lpcbData = 4

RegQueryValueEx hkey, "KERNEL\CPUUsage", 0, 0, dwCPUUsage, lpcbData

RegCloseKey hkey

помним всегда!

Else

cmdStart.Caption = "&Start"

меняем название кнопочки и...

Caption = "Stoped..."

не даем себе впасть в уныние глядя на зависшие 100%

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)