![]() |
Tipp 0485
|
Installierte DirectX-Version ermitteln
|
 |
|
Autor/Einsender: Datum: |
|
Detlev Schubert 27.02.2006 |
|
Entwicklungsumgebung: |
|
VB 6 |
|
|
Gerade bei DirectX-Anwendungen ist es notwendig, nicht nur bei der Ausführung eines Programms sondern auch bei der Installation
einer Anwendung zu erfahren, ob überhaupt DirectX in einem Betriebssystem installiert ist und wenn ja, welche
DirectX-Version installiert ist.
|
Unser Beispiel zeigt unter Verwendung der Datei dsetup.dll, die dem Download-Beispiel beiliegt, wie dies möglich ist.
|
|
|
Option Explicit
Private Declare Function DirectXSetupGetVersion Lib "dsetup.dll" _
(dwVersion As Long, dwRevision As Long) As Long
Private Sub Form_Load()
Dim dxMajor As Long, dxMinor As Long, rVal As Long
rVal = DirectXSetupGetVersion(dxMajor, dxMinor)
dxMajor = dxMajor - (dxMajor And &H40000)
dxMinor = (dxMinor - (100 * dxMajor))
Label1.Caption = CStr(dxMajor & "." & dxMinor)
End Sub
|
|
|
|
Der hier abgebildete Code funktioniert auch in einem VBA-Projekt, dieser muss dazu lediglich
über die Zwischenablage in den Codebereich der UserForm kopiert werden, und das Form_Load-Ereignis der VB-Form mit
dem UserForm_Initialize-Ereignis der UserForm ersetzt werden.
|
Die Datei dsetup.dll muss sich im selben Ordner befinden, wie die Datei, in der der aufrufende Code enthalten ist.
|
|
Windows-Version |
95 |
 |
|
98 |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (19 kB)
|
Downloads bisher: [ 482 ]
|
|
|