Private Function CreaChiaveDiRegistro(ByVal PercorsoChiaveRegistro As String, ByVal NomeChiave As String, ByVal ValoreChiave As String)
Try
'Modifica Valore Registro
My.Computer.Registry.SetValue(PercorsoChiaveRegistro, NomeChiave, ValoreChiave)
Return True
Catch ex As Exception
Return False
End Try
End Function
Private Function CreaChiaveDiRegistroNew(ByVal CartellaRoot As ValoriChiaveRegistro, ByVal PercorsoChiaveRegistro As String, ByVal NomeChiave As String, ByVal ValoreChiave As String)
Try
Select Case CartellaRoot
Case 0
My.Computer.Registry.ClassesRoot.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
Case 1
My.Computer.Registry.CurrentUser.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
Case 2
My.Computer.Registry.LocalMachine.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
Case 3
My.Computer.Registry.Users.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
Case 4
My.Computer.Registry.CurrentConfig.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
Case 5
My.Computer.Registry.PerformanceData.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
Case Else
My.Computer.Registry.LocalMachine.OpenSubKey(PercorsoChiaveRegistro, True).SetValue(NomeChiave, ValoreChiave)
End Select
Return True
Catch ex As Exception
Return False
End Try
End Function