rc = SendMessage(hwnd, WM－NCLBUTTONDOWN, LP_HT－CAPTION, ByVal 0＆)
End Sub
（2）编写读取注册表中CPU使用状况的类模块；
添加一个类模块，命名为“CPUusage”，写入以下代码：
Option Explicit
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
Private Declare Function RegOpenKey Lib“advapi32.dll" Alias “RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib“advapi32.dll" (ByVal hKey As Long) As Long
Private Const REG_DWORD = 4
Private Const HKEY_DYN_DATA = ＆H80000006
Public Sub InitCPUUsage()
Dim Data As Long, Typ As Long, Size As Long
Dim hKey As Long, hRet As Long
hRet = RegOpenKey(HKEY－DYN－DATA, “PerfStats\StartStat", hKey)
hRet = Reg QueryValueEx(hKey, “KERNEL\CPUUsage", 0, REG－DWORD, Data, 4)
hRet = RegCloseKey(hKey)
End Sub
Public Function GetCPUUsage() As Long
On Error GoTo eee ‘如果注册表错误的话转到eee：
Dim Data As Long, Typ As Long, Size As Long
Dim hKey As Long
Dim hRet As Long
hRet = RegOpenKey(HKEY－DYN－DATA,“PerfStats\StatData", hKey) ‘打开主键
hRet = RegQueryValueEx(hKey, “KERNEL\CPUUsage", 0＆, REG_DWORD, Data, 4) ‘读取参数
GetCPUUsage = Data
hRet = RegCloseKey(hKey)
Exit Function
eee:
|
|