From bd43571e10c67316bd3fac61bb2fabab216ec644 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Thu, 12 Mar 2026 17:34:37 +0100 Subject: [PATCH] Icarus : - permessa l'esecuzione di un massimo di quattro istanze (prima una sola). --- Icarus/MainWindow/MainWindowM.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Icarus/MainWindow/MainWindowM.vb b/Icarus/MainWindow/MainWindowM.vb index 0879eaf..c002b94 100644 --- a/Icarus/MainWindow/MainWindowM.vb +++ b/Icarus/MainWindow/MainWindowM.vb @@ -8,7 +8,7 @@ Public Class MainWindowM #Region "FIELDS" ' massimo numero di istanze del programma ammesse - Const MAX_INST As Integer = 32 + Const MAX_INST As Integer = 4 Private m_objMutex As Mutex @@ -317,7 +317,7 @@ Public Class MainWindowM Friend Function GetMaxInstances() As Integer ' Leggo il massimo numero di istanze ammesse Dim nMaxInst As Integer = GetMainPrivateProfileInt(S_GENERAL, K_MAXINST, 1) - Return 1 ' Max(1, Min(nMaxInst, MAX_INST)) + Return Max(1, Min(nMaxInst, MAX_INST)) End Function Friend Sub Close()