Недавно в статье, посвящённой недокументированным возможностям Windows, я обнаружил интересный способ измерения степени использования процессора. Дело в том, что в Windows 9x существуют счётчики Performance Counters, которые можно включить из реестра, и в реестр же они будут посылать результаты замеров. Например загруженности процессора. Есть они и в NT, но доступ к ним сложнее.
К моему собственному удивлению результат перевода С на человеческий VB отлично заработал! По-сему, если Вашей программе нужно знать загруженность проца, или если Вы заинтересуетесь доступом в реестр из WinApi32, то Вы можете познакомиться с простеньким примером. Разумеется в полном варианте нужно было бы вставить проверку типа Windows (например через GetWindowsVersion), сворачивание в SysTray и т.п., но в "укороченном" виде Вам будет проще приспособить данную фичу Windows к своим потребностям.
Итак. Если у Вас не NT. Расположите на форме кнопочку. Назовём её cmdStart. Как водится, в раздел General Declarations вставляем:
Открыть нужный ключ:
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" ( _
Возможно вы искали - Доклад: Для чего нужна процедура Sub?
ByVal hkey As Long, _
ByVal pSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long
Похожий материал - Реферат: Не много теории о Visual Basic
hkey, lpSubKey - пути к ключу,
ulOptions - зарезервировано: должно быть ноль,
samDesired - тип доступа: комбинация предопределённых констант,
phkResult - переменная, получающая хэндл нужного ключа. Не забудьте потом закрыть.
Получить тип и значение параметра из ранее открытого ключа:
Очень интересно - Реферат: Как производятся микропроцессоры
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( _
ByVal hkey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, _
lpType As Long, _
Вам будет интересно - Курсовая работа: Квантование сигналов по времени
lpData As Any, _
lpcbData As Long) As Long
hkey - хэндл открытого ранее ключа,
lpValueName - имя параметра, который нужно прочитать,
lpReserved - зарезервировано: должно быть ноль,
Похожий материал - Реферат: Создание пакетов и модулей в Perl
lpType - переменная, в которую будет возвращаться тип параметра
можно передать ноль, если тип не требуется (нам, кстати, передаст 3 - REG_BINARY),
lpData - то, что нас интересует,
lpcbData - переменная, которая содержит длину буфера под lpData,