TestEIn :

- aggiunto controllo debug attivo su versione release mediante funzione CheckRemoteDebuggerPresent.

Form1.vb

@@ -124,6 +124,15 @@ Public Class Form1
                               (ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
                               My.Application.Info.Version.Revision.ToString()
       EgtInit(m_nDebug, sLogFile, sLogMsg)
+      ' Se versione realease, verifico presenza debugger
+#If Not Debug Then
+      Dim bDebuggerPresent As Boolean = False
+      CheckRemoteDebuggerPresent(System.Diagnostics.Process.GetCurrentProcess().Handle, bDebuggerPresent)
+      If bDebuggerPresent Then
+         EgtOutLog("Error in EgtCheckInit")
+         End
+      End If
+#End If
       ' Leggo direttorio dei messaggi (se manca uso direttorio di configurazione)
       Dim sMsgDir As String = String.Empty
       If GetPrivateProfileString(S_GENERAL, K_MESSAGESDIR, "", sMsgDir, m_sIniFile) = 0 Then
@@ -133,9 +142,7 @@ Public Class Form1
       Dim sMsgFile As String = String.Empty
       GetPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgFile, m_sIniFile)
       Dim sMsgFilePath As String = sMsgDir & "\" & sMsgFile
-      If Not EgtLoadMessages(sMsgFilePath) Then
-         EgtOutLog("Error in EgtLoadMessages")
-      End If
+      If Not EgtLoadMessages(sMsgFilePath) Then EgtOutLog("Error in EgtLoadMessages")
       ' Leggo e imposto livello utilizzatore
       m_nUserLevel = GetPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1, m_sIniFile)
       ' imposto dir font Nfe e font default