EgtCAM5 :

- aggiunta abilitazione utente e aggiornamento per le estensioni permesse dai codici chiave.

Utility/IniFile.vb

@@ -251,6 +251,13 @@ Public Module IniFile
       Return EgtUILib.WritePrivateProfileString(IpAppName, IpKeyName, sColor, m_sIniFile)
    End Function
 
+   Friend Function GetProgramVersion() As String
+      Return My.Application.Info.Version.Major.ToString() &
+             "." & My.Application.Info.Version.Minor.ToString() &
+             (ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
+             My.Application.Info.Version.Revision.ToString()
+   End Function
+
    Friend Function IsActiveBeam() As Boolean
       Dim bIsActive As Boolean = (IniFile.m_nKeyOptions And KEY_OPT.BEAM) <> 0 And (GetPrivateProfileInt(S_BEAM, K_BEAMENABLE, 0) <> 0)
       If bIsActive Then
@@ -318,4 +325,17 @@ Public Module IniFile
       Return True
    End Function
 
+   Friend Function GetSpecialLuaData( sSpecialLuaDir As String,
+                                      ByRef sName As String, ByRef sVersion As String, ByRef sMinExe As String) As Boolean
+      Dim sExecPath As String = (sSpecialLuaDir & "\Version.lua")
+      If Not EgtLuaExecFile(sExecPath, False) Then Return False
+      If Not EgtLuaGetGlobStringVar("NAME", sName) Then Return False
+      If Not EgtLuaGetGlobStringVar("VERSION", sVersion) Then Return False
+      If Not EgtLuaGetGlobStringVar("MIN_EXE", sMinExe) Then Return False
+      EgtLuaResetGlobVar("NAME")
+      EgtLuaResetGlobVar("VERSION")
+      EgtLuaResetGlobVar("MIN_EXE")
+      Return True
+   End Function
+
 End Module