- spostamento + modifica nome

2024-10-03 16:29:54 +02:00
parent 27f2ba0aae
commit f47809379d
45 changed files with 653 additions and 654 deletions
@@ -0,0 +1,58 @@
+Module ExecProcessManager
+
+   Private m_ExecProcess As Process
+
+   Friend Function ExecProcess(sFileName As String, sMainLuaPath As String, sArguments As String) As Boolean
+      ' lancio esecuzione programma
+      Dim bResult As Boolean = True
+      Dim Proc As New Process()
+      Proc.StartInfo.FileName = sFileName
+      Proc.StartInfo.RedirectStandardInput = False
+      Proc.StartInfo.RedirectStandardOutput = False
+      Proc.StartInfo.Arguments = 1.ToString() & " """ & sMainLuaPath & """ """ & sArguments & """"
+      Proc.StartInfo.UseShellExecute = False
+      Proc.StartInfo.CreateNoWindow = True
+      Dim ExecCounter = 0
+      If Proc.Start Then
+         While Not Proc.HasExited
+            If ExecCounter >= 300 Then
+               bResult = False
+               Proc.Kill()
+               Exit While
+            End If
+            Threading.Thread.Sleep(100)
+            ExecCounter += 1
+         End While
+      End If
+      Return bResult
+   End Function
+
+   Friend Function ExecProcessAsync(sFileName As String, sMainLuaPath As String, sArguments As String) As Boolean
+      If Not IsNothing(m_ExecProcess) Then
+         If Not m_ExecProcess.HasExited Then
+            m_ExecProcess.Kill()
+         End If
+      End If
+      ' lancio esecuzione programma
+      Dim bResult As Boolean = True
+      m_ExecProcess = New Process()
+      m_ExecProcess.StartInfo.FileName = sFileName
+      m_ExecProcess.StartInfo.RedirectStandardInput = False
+      m_ExecProcess.StartInfo.RedirectStandardOutput = False
+      m_ExecProcess.StartInfo.Arguments = 1.ToString() & " """ & sMainLuaPath & """ """ & sArguments & """"
+      m_ExecProcess.StartInfo.UseShellExecute = False
+      m_ExecProcess.StartInfo.CreateNoWindow = True
+      Return m_ExecProcess.Start()
+   End Function
+
+   Friend Function CheckExecProcessAsync(ByRef bHasExited As Boolean, ByRef nExitCode As Integer) As Boolean
+      If IsNothing(m_ExecProcess) Then Return False
+      bHasExited = m_ExecProcess.HasExited
+      If bHasExited Then
+         nExitCode = m_ExecProcess.ExitCode
+      End If
+      Threading.Thread.Sleep(100)
+      Return True
+   End Function
+
+End Module