module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 12 行

Module Module1
    '有关注册的API声明
    Public Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Integer, ByVal lpSubKey As String, ByVal ulOptions As Integer, ByVal samDesired As Integer, ByRef phkResult As Integer) As Integer

    Public Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Integer, ByVal lpValueName As String, ByVal lpReserved As Integer, ByRef lpType As Integer, ByVal szData As String, ByRef lpcbData As Integer) As Integer

    Public Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Integer) As Integer
    '常数
    Public Const HKEY_CURRENT_USER As Integer = &H80000001
    Public Const ERROR_SUCCESS As Short = 0
End Module