Egalware/egtbeamwall
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Divisi i log tra ViewerOptimizer e Supervisor

Browse Source 
- Correzioni per scrittura variabili su controllo TPA
This commit is contained in:
Emmanuele Sassi
2021-11-19 14:45:41 +01:00
parent d071bcb321
commit ea05a73a4b
5 changed files with 152 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.Supervisor/MainWindow/MainWindowM.vb
+3 -3
View File
@@ -224,7 +224,7 @@ Public Class MainWindowM
EgtGetKeyOptions(5327, 2311, 1, m_nKeyOptions)
' Inizializzazione generale di EgtInterface
m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
m_sLogFile = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
m_sLogFile = m_sTempDir & "\" & SUPGENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
Dim sLogMsg As String = "User " & Environment.MachineName & "\" & Environment.UserName & " (" & m_nInstance.ToString() & ")" & vbLf &
My.Application.Info.Title.ToString() & " ver. " &
My.Application.Info.Version.Major.ToString() &
@@ -309,7 +309,7 @@ Public Class MainWindowM
' porto in primo piano la prima istanza
Dim bFound As Boolean = False
' processi del programma a 32 bit
Dim localProc As Process() = Process.GetProcessesByName("OmagOFFICER32")
Dim localProc As Process() = Process.GetProcessesByName("EgtBEAMWALL.SupervisorR32")
For Each p As Process In localProc
If p.Id <> Process.GetCurrentProcess().Id Then
bFound = True
@@ -319,7 +319,7 @@ Public Class MainWindowM
Next
' se non trovati processi a 32 bit provo a 64 bit
If Not bFound Then
localProc = Process.GetProcessesByName("OmagOFFICER64")
localProc = Process.GetProcessesByName("EgtBEAMWALL.SupervisorR64")
For Each p As Process In localProc
If p.Id <> Process.GetCurrentProcess().Id Then
bFound = True