Detect DirectX Version

Category:

Registry

Type:

Modules

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

These module functions and the form sub procedure will detect which DirectX version a user is running. Simply add a command button control to run this sample project.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
'Add this declarations in module Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, source As Any, ByVal numBytes As Long) Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long 'Add this is a module Function GetDirectXVersion() As String Dim hndle As Long Dim resString As String Dim strVersion As String Dim str As String str = "SOFTWARE\Microsoft\DirectX" Dim resBinary() As Byte If RegOpenKeyEx(&H80000002, str, 0, &H20019, hndle) Then Exit Function ReDim resBinary(1023) As Byte Call RegQueryValueEx(hndle, "Version", 0, 0, resBinary(0), 1024) resString = Space$(1023) CopyMemory ByVal resString, resBinary(0), 1023 RegCloseKey handle resString = Left(resString, 12) Select Case resString Case "4.02.0095" GetDirectXVersion = "1.0" Case "4.03.00.1096" GetDirectXVersion = "2.0" Case "4.04.0068", "4.04.0069" GetDirectXVersion = "3.0" Case "4.05.00.0155" GetDirectXVersion = "5.0" Case "4.05.01.1721", "4.05.01.1998" GetDirectXVersion = "5.0" Case "4.06.02.0436" GetDirectXVersion = "6.0" Case "4.07.00.0700" GetDirectXVersion = "7.0" Case "4.07.00.0716" GetDirectXVersion = "7.0a" Case "4.08.00.0400" GetDirectXVersion = "8.0" Case "4.08.01.0881", "4.08.01.0810" GetDirectXVersion = "8.1" Case "4.09.0000.0900" GetDirectXVersion = "9.0" Case "4.09.00.0900" GetDirectXVersion = "9.0" Case "4.09.0000.0901" GetDirectXVersion = "9.0a" Case "4.09.00.0901" GetDirectXVersion = "9.0a" Case "4.09.0000.0902" GetDirectXVersion = "9.0b" Case "4.09.00.0902" GetDirectXVersion = "9.0b" Case "4.09.00.0904" GetDirectXVersion = "9.0c" Case "4.09.0000.0904" GetDirectXVersion = "9.0c" End Select End Function

Code: