Opzione ReadOnly gestita da chiave di protezione

2022-04-08 12:45:02 +02:00
parent 99d69a4ffe
commit 6981bcafbb
4 changed files with 9 additions and 5 deletions
@@ -57,8 +57,8 @@ Friend Class MainWindowModel
      EgtUILib.GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
      EgtSetKey(sKey)
      ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(3279, 2403, 1, IniFile.m_nKeyLevel) And
-                            EgtGetKeyOptions(3279, 2403, 1, IniFile.m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(3279, 2404, 1, IniFile.m_nKeyLevel) And
+                            EgtGetKeyOptions(3279, 2404, 1, IniFile.m_nKeyOptions)
      'Inizializzazione generale di EgtInterface
      m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
      Dim sLogFile As String = IniFile.m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())