REGISTRI - LeggiKeyGlobale

Public Sub LeggiRegKeyGlobale()

Dim I As Long
TypeConn.MyDirPath = My.Application.Info.DirectoryPath
I = InStr(TypeConn.MyDirPath, "\bin\Debug")
If I > 0 Then
TypeConn.MyDirPath = Mid(TypeConn.MyDirPath, 1, I - 1)
End If

Try
TypeConn.PathDataBase = GetRegKey("PathDataBase")
Catch ex As Exception

SetRegKey("PathDataBase", TypeConn.MyDirPath & "\Database\Archivio.mdb", RegistryValueKind.String)
TypeConn.PathDataBase = TypeConn.MyDirPath & "\Database\Archivio.mdb"
End Try


Try
TypeConn.NomeDatabase = GetRegKey("NomeDatabase")
Catch ex As Exception
SetRegKey("NomeDatabase", "Archivio.mdb", RegistryValueKind.String)
TypeConn.NomeDatabase = "Archivio.mdb"
End Try

Try
TypeConn.NCry = Val(GetRegKey("NCry")) ' numero di Cryptazione
Catch ex As Exception
Err.Clear()
SetRegKey("NCry", "1", RegistryValueKind.String)
TypeConn.NCry = "1"
End Try

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


'TypeConn.NCry = 1

SectaArray(TypeConn.NCry)

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


Try
TypeConn.Autenticazione = GetRegKey("Autenticazione") ' "Autenticazione di Windows"
Catch ex As Exception
SetRegKey("Autenticazione", "1", RegistryValueKind.String)
TypeConn.Autenticazione = "1"
End Try

Try
TypeConn.Backup = GetRegKey("Backup") ' esegue backup sia dei sorgenti che del database in uscita da MENU
Catch ex As Exception
SetRegKey("Backup", "False", RegistryValueKind.String)
TypeConn.Backup = "False"
End Try
Try
TypeConn.BackupArch = GetRegKey("BackupArch") ' esegue solamente il backup degli archivi (se database e' MS ACCESS)
Catch ex As Exception
SetRegKey("BackupArch", "True", RegistryValueKind.String)
TypeConn.BackupArch = "True"
End Try
Try
TypeConn.ConnectionString = Decrypta(GetRegKey("ConnectionString")) ' e' solo un tipo di connessione "[Gestione database SQL SERVER]"
Catch ex As Exception
SetRegKey("ConnectionString", "", RegistryValueKind.String)
TypeConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & TypeConn.MyDirPath & "\Database\Archivio.mdb" & ";Jet OLEDB:Database PassWord=iw0blpiw0fnb;"

End Try
Try
TypeConn.DelPdf = GetRegKey("DelPdf") ' Cancella in uscita tutti i PDF prodotti
Catch ex As Exception
SetRegKey("DelPdf", "True", RegistryValueKind.String)
TypeConn.DelPdf = "True"
End Try
Try
TypeConn.DimensionaForm = GetRegKey("DimensionaForm") '
Catch ex As Exception
SetRegKey("DimensionaForm", "True", RegistryValueKind.String)
TypeConn.DimensionaForm = "True"
End Try
'Try

' TypeConn.PathDataBase = GetRegKey("PathDataBase")

'Catch ex As Exception

' SetRegKey("PathDataBase", TypeConn.MyDirPath & "\Database\Archivio.mdb", RegistryValueKind.String)

' TypeConn.PathDataBase = TypeConn.MyDirPath & "\Database\Archivio.mdb"

'End Try

Try
TypeConn.DNS = GetRegKey("DNS")
Catch ex As Exception
SetRegKey("DNS", "1", RegistryValueKind.String)
TypeConn.DNS = "1"
End Try
'Try

' TypeConn.NomeDatabase = GetRegKey("NomeDatabase")

'Catch ex As Exception

' SetRegKey("NomeDatabase", "Archivio.mdb", RegistryValueKind.String)

' TypeConn.NomeDatabase = "Archivio.mdb"

'End Try

Try
TypeConn.NomeServer = GetRegKey("NomeServer")
Catch ex As Exception
SetRegKey("NomeServer", "1", RegistryValueKind.String)
TypeConn.NomeServer = "1"
End Try
Try
If TypeConn.MyDirPath <> GetRegKey("MyDirPath") Then
SetRegKey("MyDirPath", TypeConn.MyDirPath, RegistryValueKind.String)
End If
Catch ex As Exception
SetRegKey("MyDirPath", TypeConn.MyDirPath, RegistryValueKind.String)
End Try

Try
TypeConn.PassWord = Decrypta(GetRegKey("PassWord"))
Catch ex As Exception
SetRegKey("PassWord", "2", RegistryValueKind.String)
TypeConn.PassWord = "2"
End Try
Try
TypeConn.Rete = GetRegKey("Rete")
Catch ex As Exception
SetRegKey("Rete", "True", RegistryValueKind.String)
TypeConn.Rete = "True"
End Try
Try
TypeConn.Schermo = GetRegKey("Schermo")
Catch ex As Exception
SetRegKey("Schermo", "True", RegistryValueKind.String)
TypeConn.Schermo = "True"
If TypeConn.Schermo = "True" Then
If Sfondo.Visible = False Then
Sfondo.Visible = True
End If
Else
If Sfondo.Visible = True Then
Sfondo.Visible = False
End If

End If

End Try
Try
TypeConn.Trasparenze = GetRegKey("Trasparenze")
Catch ex As Exception
SetRegKey("Trasparenze", "True", RegistryValueKind.String)
TypeConn.Trasparenze = "True"
End Try
Try
TypeConn.TipoConnessione = GetRegKey("TipoConnessione")
Catch ex As Exception
SetRegKey("TipoConnessione", "[Gestione database Aziendale]", RegistryValueKind.String)
TypeConn.TipoConnessione = "[Gestione database Aziendale]"
End Try
Try
TypeConn.User = GetRegKey("User")
Catch ex As Exception
SetRegKey("User", "1", RegistryValueKind.String)
TypeConn.User = "1"
End Try
Try
TypeConn.NCry = Val(GetRegKey("FatturaCartaIntestata")) ' numero di Cryptazione
Catch ex As Exception
Err.Clear()
SetRegKey("FatturaCartaIntestata", "False", RegistryValueKind.String)
TypeConn.FatturaCartaIntestata = False
End Try
Try
TypeConn.MForzaPDFPrinter = Val(GetRegKey("MForzaPDFPrinter")) ' numero di Cryptazione
Catch ex As Exception
Err.Clear()
SetRegKey("MForzaPDFPrinter", "False", RegistryValueKind.String)
TypeConn.MForzaPDFPrinter = False
End Try

If Dir(TypeConn.MyDirPath & "\INI\NONScriveNeiRegistry.ini", FileAttribute.Normal) <> "" Then
NONScriveNeiRegistry = True
Else
NONScriveNeiRegistry = False
End If

' cancellazione Registro

' Registry.CurrentUser.DeleteSubKey(subkey)

End Sub