Public Sub ScriviRegKeyGlobale() '********************************************************* ' Se la chiave madre non esiste la SUB crea la struttura ' delle chiavi di registro dell'applicazione '********************************************************* 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 If Dir(TypeConn.MyDirPath & "\INI\GestioneRete.ini") <> "" Then I = FreeFile() FileOpen(I, TypeConn.MyDirPath & "\INI\GestioneRete.ini", OpenMode.Input) TypeConn.TipoConnessione = LineInput(I) TypeConn.PathDataBase = LineInput(I) TypeConn.NomeDatabase = LineInput(I) FileClose(I) End If SetRegKey("NomeDatabase", TypeConn.NomeDatabase, RegistryValueKind.String) SetRegKey("PathDataBase", TypeConn.PathDataBase, RegistryValueKind.String) SetRegKey("MyDirPath", TypeConn.MyDirPath, RegistryValueKind.String) SetRegKey("Autenticazione", "1", RegistryValueKind.String) SetRegKey("PathDataBase", TypeConn.PathDataBase, RegistryValueKind.String) SetRegKey("NomeServer", "1", RegistryValueKind.String) SetRegKey("User", "1", RegistryValueKind.String) ' login SetRegKey("PassWord", "2", RegistryValueKind.String) SetRegKey("DNS", "1", RegistryValueKind.String) SetRegKey("TipoConnessione", "[Gestione database Aziendale]", RegistryValueKind.String) SetRegKey("Trasparenze", "True", RegistryValueKind.String) SetRegKey("DimensionaForm", "True", RegistryValueKind.String) SetRegKey("Rete", "True", RegistryValueKind.String) SetRegKey("Schermo", "True", RegistryValueKind.String) SetRegKey("Backup", "False", RegistryValueKind.String) SetRegKey("BackupArch", "True", RegistryValueKind.String) SetRegKey("ConnectionString", "", RegistryValueKind.String) SetRegKey("DelPdf", "True", RegistryValueKind.String) SetRegKey("NCry", 1, RegistryValueKind.String) SetRegKey("FatturaCartaIntestata", "False", RegistryValueKind.String) SetRegKey("MForzaPDFPrinter", "True", RegistryValueKind.String) End Sub |