devxlogo

CreateRegistryKey – Create a key in the Registry

CreateRegistryKey – Create a key in the Registry

Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias _    "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _    ByVal Reserved As Long, ByVal lpClass As Long, ByVal dwOptions As Long, _    ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, _    phkResult As Long, lpdwDisposition As Long) As LongPrivate Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As _    LongConst KEY_READ = &H20019  ' ((READ_CONTROL Or KEY_QUERY_VALUE Or                           ' KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not                           ' SYNCHRONIZE))Const REG_OPENED_EXISTING_KEY = &H2' Create a registry key, then close it' Returns True if the key already existed, False if it was createdFunction CreateRegistryKey(ByVal hKey As Long, ByVal KeyName As String) As _    Boolean    Dim handle As Long, disposition As Long        If RegCreateKeyEx(hKey, KeyName, 0, 0, 0, 0, 0, handle, disposition) Then        Err.Raise 1001, , "Unable to create the registry key"    Else        ' Return True if the key already existed.        CreateRegistryKey = (disposition = REG_OPENED_EXISTING_KEY)        ' Close the key.        RegCloseKey handle    End IfEnd Function

See also  Small Business Strategies with Venmo
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist