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]

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

 ' 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!