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

ByVal cx As Long, _

ByVal cy As Long, _

ByVal WFlags As Long) As Long

А это наше:

Dim hkey As Long

Dim dwCPUUsage As Long

DimlpcbDataAsLongпо-моему действительно лучше выкинуть,

подставив в нужных местах 4. Ау, теоретики!

Dim bStart As Boolean

Private Sub Form_Load()

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3

видим всегда

End Sub

Private Sub cmdStart_Click()

bStart = Not bStart

bStart - это Вкл-Выкл. См. далее

If bStart Then

если - True - начинаем

cmdStart.Caption = "&Stop"

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

Включаем счётчик, считывая значение соответствующего ключа:

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

hkey) <> 0 Then Exit Sub

lpcbData = 4

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

RegCloseKey hkey

закрыть ключ

Считываем значение прямо из реестра:

If RegOpenKeyEx(HKEY_DYN_DATA, "PerfStats\StatData", 0, KEY_READ, _