associate.bas

大量优秀的vb编程

Attribute VB_Name = "Module1"
Declare Function RegCreateKey& Lib "advapi32.DLL" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpszSubKey$, lphKey&)

Declare Function RegSetValue& Lib "advapi32.DLL" Alias "RegSetValueA" (ByVal hKey&, ByVal lpszSubKey$, ByVal fdwType&, ByVal lpszValue$, ByVal dwLength&)
       Public Const ERROR_SUCCESS = 0&
       Public Const ERROR_BADDB = 1&
       Public Const ERROR_BADKEY = 2&
       Public Const ERROR_CANTOPEN = 3&
       Public Const ERROR_CANTREAD = 4&
       Public Const ERROR_CANTWRITE = 5&
       Public Const ERROR_OUTOFMEMORY = 6&
       Public Const ERROR_INVALID_PARAMETER = 7&
       Public Const ERROR_ACCESS_DENIED = 8&
       Global Const HKEY_CLASSES_ROOT = &H80000000
       Public Const MAX_PATH = 256&
       Public Const REG_SZ = 1