Feedback

VB - Installierte DirectX Version ermitteln

Veröffentlicht von am 28.02.2007
(1 Bewertungen)
Ermittelt die installierte DirectX-Version.

Funktioniert leider nicht unter Windows Vista. Dort wird immer DirectX9C ausgelesen. Sollte jemand dazu eine Idee haben kann er sich gern bei mir melden. (tobiasndw@gmx.de)
GFU-Schulungen  [Anzeige]

C# 2017/2015/2013 Grundlagen

Nach Abschluss des Kurses sind Ihnen die Datentypen und Klassenbibliotheken von C# bekannt. Außerdem sind Sie in der Lage, mit Variablen umzugehen und deren Typen zu konvertieren. Sie definieren Namespaces und setzen diese ein, Sie erstellen eigene Klassen  und bauen Trouble Shooting ein.

C# Komplett

Sie kennen sich in objektorientierter Programmierung aus. Sie schreiben C++ oder Java? Und nun stehen Sie vor der Aufgabe, in C# Anwendungen zu erstellen. Das C# Komplett-Seminar verschafft Ihnen umfassende Programmierkenntnisse in dieser Sprache. Nach der Schulung entwickeln Sie selbständig Anwendungen mit C#. Sie kennen die Datentypen und Klassenbibliotheken der objektorientierten Programmiersprache C#. Der Komplettkurs setzt bei den Grundlagen von C# ein. Sie arbeiten mit Variablen und konvertieren Typen. Multithreading, Delegates, Generics sind nach dem Seminar für Sie kein Geheimnis mehr.

 ' DirectX Version
        Const HKEY_LOCAL_MACHINE = &H80000002

        Dim objRegistry As Object = GetObject("winmgmts:\\.\root\default:StdRegProv")
        Dim strValue As String = ""
        Dim strVersion As String = ""
        Dim strKeyPath As String = "Software\Microsoft\DirectX"
        Dim strValueName As String = "Version"

        objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue)

        Select Case strValue
            Case "4.02.0095"
                strVersion = "1.0"
            Case "4.03.00.1096"
                strVersion = "2.0"
            Case "4.04.0068"
                strVersion = "3.0"
            Case "4.04.0069"
                strVersion = "3.0"
            Case "4.05.00.0155"
                strVersion = "5.0"
            Case "4.05.01.1721"
                strVersion = "5.0"
            Case "4.05.01.1998"
                strVersion = "5.0"
            Case "4.06.02.0436"
                strVersion = "6.0"
            Case "4.07.00.0700"
                strVersion = "7.0"
            Case "4.07.00.0716"
                strVersion = "7.0a"
            Case "4.08.00.0400"
                strVersion = "8.0"
            Case "4.08.01.0881"
                strVersion = "8.1"
            Case "4.08.01.0810"
                strVersion = "8.1"
            Case "4.09.0000.0900"
                strVersion = "9.0"
            Case "4.09.00.0900"
                strVersion = "9.0"
            Case "4.09.0000.0901"
                strVersion = "9.0a"
            Case "4.09.00.0901"
                strVersion = "9.0a"
            Case "4.09.0000.0902"
                strVersion = "9.0b"
            Case "4.09.00.0902"
                strVersion = "9.0b"
            Case "4.09.00.0904"
                strVersion = "9.0c"
            Case "4.09.0000.0904"
                strVersion = "9.0c"
            Case Else
                strVersion = "> 9.0c"
        End Select


        MsgBox("DirectX " & strVersion.ToString)
Abgelegt unter directx, version.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!