REGISTRI - GetKey

Esiste = Registry.GetValue(keyName, NomeChiaveFiglia, "Non Esiste")
         
        If Trim(Esiste) <> "Non Esiste" And Trim(Esiste) <> "False" Then
            GetRegKey = Esiste
            Exit Function
        Else
            Err.Number = 5
            SetRegKey(NomeChiaveFiglia, "False", RegistryValueKind.String)
            Errore = True
            COnto = COnto + 1
        End If

If Errore = True Then
            If COnto > 1 Then
                GetRegKey = Esiste
                Exit Function
            End If
            GoTo Rileggi

End If

'********************************************************************************
    End Function

Public Function GetRegKey(ByVal NomeChiaveFiglia As String) As String
' legge e ritorna il valore di CHIAVE

Dim Errore As Boolean
' The name of the key must include a valid root.

Const userRoot As String = "HKEY_CURRENT_USER\Software"
Dim subkey As String = NomeChiaveMadre
Dim keyName As String = userRoot & "\" & subkey
GetRegKey = ""
Dim COnto As Long = 0
Rileggi:
'********************************************************************************

' se esiste deve uscire via altrimenti metterebbe sempre i valori di default

Dim Esiste As String

Esiste = Registry.GetValue(keyName, NomeChiaveFiglia, "Non Esiste")

If Trim(Esiste) <> "Non Esiste" And Trim(Esiste) <> "False" Then
GetRegKey = Esiste
Exit Function
Else
Err.Number = 5
SetRegKey(NomeChiaveFiglia, "False", RegistryValueKind.String)
Errore = True
COnto = COnto + 1
End If

If Errore = True Then
If COnto > 1 Then
GetRegKey = Esiste
Exit Function
End If
GoTo Rileggi

End If

'********************************************************************************

End Function