TestEIn :

- aggiornamento.

EgtInterface.vb

@@ -1194,19 +1194,56 @@ Public Function EgtSetOutText(Callback As OutTextCallback) As Boolean
    End If
 End Function
 
-   <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetMainWindowHandle"), SuppressUnmanagedCodeSecurity()>
-   Private Function EgtSetMainWindowHandle_32(hMainWnd As IntPtr) As Boolean
-   End Function
-   <DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetMainWindowHandle"), SuppressUnmanagedCodeSecurity()>
-   Private Function EgtSetMainWindowHandle_64(hMainWnd As IntPtr) As Boolean
-   End Function
-   Public Function EgtSetMainWindowHandle(hMainWnd As IntPtr) As Boolean
-      If IntPtr.Size = 4 Then
-         Return EgtSetMainWindowHandle_32(hMainWnd)
-      Else
-         Return EgtSetMainWindowHandle_64(hMainWnd)
-      End If
-   End Function
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetTempDir"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSetTempDir_32(sTempDir As String) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetTempDir"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSetTempDir_64(sTempDir As String) As Boolean
+End Function
+Public Function EgtSetTempDir(sTempDir As String) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSetTempDir_32(sTempDir)
+   Else
+      Return EgtSetTempDir_64(sTempDir)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetTempDir"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtGetTempDir_32(ByRef psTempDir As IntPtr) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetTempDir"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtGetTempDir_64(ByRef psTempDir As IntPtr) As Boolean
+End Function
+Public Function EgtGetTempDir(ByRef sTempDir As String) As Boolean
+   Dim psTempDir As IntPtr
+   Dim bOk As Boolean
+   If IntPtr.Size = 4 Then
+      bOk = EgtGetTempDir_32(psTempDir)
+   Else
+      bOk = EgtGetTempDir_64(psTempDir)
+   End If
+   If bOk Then
+      sTempDir = Marshal.PtrToStringUni(psTempDir)
+      EgtFreeMemory(psTempDir)
+   Else
+      sTempDir = String.Empty
+   End If
+   Return bOk
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetMainWindowHandle"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSetMainWindowHandle_32(hMainWnd As IntPtr) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetMainWindowHandle"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSetMainWindowHandle_64(hMainWnd As IntPtr) As Boolean
+End Function
+Public Function EgtSetMainWindowHandle(hMainWnd As IntPtr) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSetMainWindowHandle_32(hMainWnd)
+   Else
+      Return EgtSetMainWindowHandle_64(hMainWnd)
+   End If
+End Function
 
 
 '---------- UiUnits ------------------------------------------------------------