Example in C#
Imports Microsoft.VisualBasic
Imports System
Imports System.Security.Permissions
Imports Microsoft.Win32
Public Class RegKey
Shared
Sub Main()
'
Create a subkey named Test9999 under HKEY_CURRENT_USER.
Dim
testkey As RegistryKey = _
Registry.CurrentUser.CreateSubKey("Testkey")
'
Create two subkeys under HKEY_CURRENT_USER\Testkey
testkey.CreateSubKey("TestName").Close()
Dim
testSettings As RegistryKey = _
testkey.CreateSubKey("TestSettings")
'
Create data for the TestSettings subkey.
testSettings.SetValue("Language", "Hindi")
testSettings.SetValue("Level", "Class")
testSettings.SetValue("ID", 1)
testSettings.Close()
'
Print the information from the Test9999 subkey.
Console.WriteLine("There are {0} subkeys under Testkey.", _
testkey.SubKeyCount.ToString())
For
Each subKeyName As String In testkey.GetSubKeyNames()
Dim tempKey As RegistryKey = _
testkey.OpenSubKey(subKeyName)
Console.WriteLine(vbCrLf & "There are {0} values for "
& _
"{1}.",
tempKey.ValueCount.ToString(), tempKey.Name)
For Each valueName As String In tempKey.GetValueNames()
Console.WriteLine("{0,-8}: {1}", valueName, _
tempKey.GetValue(valueName).ToString())
Next
Next
'
Delete the ID value.
testSettings = testkey.OpenSubKey("TestSettings", True)
testSettings.DeleteValue("id")
'
Verify the deletion.
Console.WriteLine(CType(testSettings.GetValue( _
"id", "ID not found."), String))
testSettings.Close()
'
Delete or close the new subkey.
Console.Write(vbCrLf & "Delete newly created " & _
"registry key? (Y/N) ")
If
Char.ToUpper(Convert.ToChar(Console.Read())) = "Y"C Then
Registry.CurrentUser.DeleteSubKeyTree("Test9999")
Console.WriteLine(vbCrLf & "Registry key {0} deleted.", _
testkey.Name)
Else
Console.WriteLine(vbCrLf & "Registry key {0} closed.", _
testkey.ToString())
testkey.Close()
End
If
End Sub
End Class
|