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
 
Hinweis für VBA-Anwender
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: [ 471 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Montag, 29. August 2011