Программирование
Веб программирование

Чтение, запись и удаление из реестра

 
 

1. Создайте модуль и впишите такой код.

Option Explicit On 'Включаем проверку переменных
Module mRegedit
Dim setRegString As Microsoft.Win32.RegistryKey 'Для записи
Dim getRegString As Microsoft.Win32.RegistryKey 'Для чтения
'********************************************************************************************************
'ЗАПИСЬ В РЕЕСТР 
Public Function SaveSettingString(ByVal sFolder As String, ByVal sName As String, ByVal sValue As String)
'Записывается в ветку HKEY_LOCAL_MACHINE
setRegString = Microsoft.Win32.Registry.LocalMachine.CreateSubKey(sFolder)
setRegString.SetValue(sName, sValue, Microsoft.Win32.RegistryValueKind.String)
End Function
'********************************************************************************
'ЧИТАЕМ ИЗ РЕЕСТРА
Public Function OpenSettingString(ByVal sFolder As String, ByVal sName As String)
On Error GoTo ErrNotKey 'Перейти к ошибке
'Читаем из ветки HKEY_LOCAL_MACHINE
getRegString = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(sFolder)
OpenSettingString = getRegString.GetValue(sName, Microsoft.Win32.RegistryValueKind.String)
Exit Function 'Выход из процедуры
ErrNotKey:
MsgBox("Ключь ненайден.", 16, "Error")
End Function
'*************************************************
'УДАЛЕНИЕ ИЗ РЕЕСТРА ПОЛНОСТЬЮ
Public Function DelSubKey(ByVal sFolder As String)
On Error GoTo ErrNotKey 'Перейти к ошибке
'Удаляется из ветки HKEY_LOCAL_MACHINE
Microsoft.Win32.Registry.LocalMachine.DeleteSubKey(sFolder) 'Удаляем указанную папку в реестре
Exit Function 'Выход из процедуры
ErrNotKey:
MsgBox("Ключь ненайден.", 16, "Error")
End Function
End Module

2. На форме создайте три кнопки и один лейбл и пропишите код.

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
mRegedit.SaveSettingString("SOFTWAREALEX", "String", "Запись в реестр")
End Sub
Private Sub cmdOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOpen.Click
Me.Label1.Text = mRegedit.OpenSettingString("SOFTWAREALEX", "String")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mRegedit.DelSubKey("SOFTWAREALEX")
End Sub

Есть вопросы? Спроси на нашем форуме!!
Сергей [08.10.2012 15:16]

Все хорошо, но не хватает примерчика с удалением параметра реестра (например удалить программу из автозагрузки)



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.