CodeItBetter Programming Another VB Programming Blog

'System & API - How to Change Windows Registered Name

Option Explicit
 
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, _
    ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, _
    ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, _
    ByVal cbData As Long) As Long
Declare Function RegFlushKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Const HKEY_LOCAL_MACHINE = &H80000002
 
Sub WriteRegistry(ByVal Group As Long, ByVal Section As String, ByVal Key As String, NewVal As String)
    Dim lResult As Long, lKeyValue As Long
    Dim InLen As Long
    On Error Resume Next
    lResult = RegOpenKey(Group, Section, lKeyValue)
    InLen = Len(NewVal)
    lResult = RegSetValueEx(lKeyValue, Key, 0&, 1&, NewVal, InLen)
    lResult = RegFlushKey(lKeyValue)
    lResult = RegCloseKey(lKeyValue)
End Sub
 
'How can I call this function:
Private Sub Command1_Click()
    WriteRegistry HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "RegisteredOwner", "I am the Owner"
End Sub