EnableExplicit Define DLLVERSIONINFO.DLLVERSIONINFO Define dwMajorVersion Define dwMinorVersion Define cbSize Define dwBuildNumber Define dwPlatformID #DLLVER_PLATFORM_WINDOWS = $00000001 #DLLVER_PLATFORM_NT = $00000002 If OpenLibrary(0, "comctl32.dll") DLLVERSIONINFO\cbSize = SizeOf(DLLVERSIONINFO) CallFunction(0, "DllGetVersion", @DLLVERSIONINFO) dwMajorVersion = DLLVERSIONINFO\dwMajorVersion dwMinorVersion = DLLVERSIONINFO\dwMinorVersion cbSize = DLLVERSIONINFO\cbSize dwBuildNumber = DLLVERSIONINFO\dwBuildNumber dwPlatformID = DLLVERSIONINFO\dwPlatformID Debug "Version: " + dwMajorVersion + "." + dwMinorVersion + "." + dwBuildNumber Select dwPlatformID Case #DLLVER_PLATFORM_WINDOWS Debug "Diese DLL-Datei wurde für ältere Windows-Versionen (95, 98, ME) erstellt." Case #DLLVER_PLATFORM_NT Debug "Diese DLL-Datei wurde für neuere Windows-Versionen (2000, XP, Vista, ...) erstellt." EndSelect CloseLibrary(0) EndIf