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

у нас - длина слова: 4. Если переменную заменить просто на 4 - тоже работает

Закрытие ранее открытого ключа:

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long

Некоторые константы из API Viewer:

Private Const HKEY_DYN_DATA = &H80000006

Private Const STANDARD_RIGHTS_ALL = &H1F0000

Private Const READ_CONTROL = &H20000

Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)

Private Const KEY_QUERY_VALUE = &H1

Private Const KEY_SET_VALUE = &H2

Private Const KEY_CREATE_SUB_KEY = &H4

Private Const KEY_ENUMERATE_SUB_KEYS = &H8

Private Const KEY_NOTIFY = &H10

Private Const KEY_CREATE_LINK = &H20

Private Const SYNCHRONIZE = &H100000

Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL OR _

KEY_QUERY_VALUE OR KEY_SET_VALUE OR _

KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or _

KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))

Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or _

KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or _

KEY_NOTIFY) And (Not SYNCHRONIZE))

Для служебных нужд:

Самый ресурсощедящий способ выждать паузу (в миллисекундах):

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Всегда пригодится:

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _

ByVal hWndInsertAfter As Long, _

ByVal x As Long, _