TestEIn 1.6k9 :

- aggiornamento.

EgtInterface.vb

@@ -5101,6 +5101,43 @@ Public Function EgtInitMachMgr(ByVal sMachinesDir As String) As Boolean
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetCurrMachine")>
+Private Function EgtSetCurrMachine_32(ByVal sMachineName As String) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetCurrMachine")>
+Private Function EgtSetCurrMachine_64(ByVal sMachineName As String) As Boolean
+End Function
+Public Function EgtSetCurrMachine(ByVal sMachineName As String) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSetCurrMachine_32(sMachineName)
+   Else
+      Return EgtSetCurrMachine_64(sMachineName)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCurrMachineName")>
+Private Function EgtGetCurrMachineName_32(ByRef psMachineName As IntPtr) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCurrMachineName")>
+Private Function EgtGetCurrMachineName_64(ByRef psMachineName As IntPtr) As Boolean
+End Function
+Public Function EgtGetCurrMachineName(ByRef sMachineName As String) As Boolean
+   Dim psMachineName As IntPtr
+   Dim bOk As Boolean
+   If IntPtr.Size = 4 Then
+      bOk = EgtGetCurrMachineName_32(psMachineName)
+   Else
+      bOk = EgtGetCurrMachineName_64(psMachineName)
+   End If
+   If bOk Then
+      sMachineName = Marshal.PtrToStringUni(psMachineName)
+      EgtFreeMemory(psMachineName)
+   Else
+      sMachineName = String.Empty
+   End If
+   Return bOk
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetFirstMachGroup")>
 Private Function EgtGetFirstMachGroup_32() As Integer
 End Function
@@ -5157,6 +5194,20 @@ Public Function EgtAddMachGroup(ByVal sName As String, ByVal sMachineName As Str
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveMachGroup")>
+Private Function EgtRemoveMachGroup_32(ByVal nMGroupId As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveMachGroup")>
+Private Function EgtRemoveMachGroup_64(ByVal nMGroupId As Integer) As Boolean
+End Function
+Public Function EgtRemoveMachGroup(ByVal nMGroupId As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtRemoveMachGroup_32(nMGroupId)
+   Else
+      Return EgtRemoveMachGroup_64(nMGroupId)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetRawPartCount")>
 Private Function EgtGetRawPartCount_32() As Integer
 End Function
@@ -7805,7 +7856,8 @@ Public Enum MCH_SIM As Integer
    OK = 0
    END_ = 1
    OUTSTROKE = 2
-   ERR = 3
+   DIR_ERR = 3
+   ERR = 4
 End Enum
 
 End Module

My Project/AssemblyInfo.vb

@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.6.11.8")> 
-<Assembly: AssemblyFileVersion("1.6.11.8")> 
+<Assembly: AssemblyVersion("1.6.11.9")> 
+<Assembly: AssemblyFileVersion("1.6.11.9")>