Microsoft Access Programmierrezepte

R12.12 Testen, ob eine Soundkarte vorhanden ist

Aufgabe

Für Programme, die auf eine Soundkarte angewiesen sind, ist es sicher nützlich, vorher zu überprüfen, ob auch eine Soundkarte installiert ist, bevor es lange Gesichter gibt.

Lösung

Wir verwenden die API-Funktion waveOutGetNumDevs.

Oberfläche

Ein einfaches Formular mit einem Textfeld und zwei Befehlsschaltflächen.

Quelltext

Das Einbinden der API-Funktion:

Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

Die folgende Funktion gibt True zurück, wenn im System mindestens eine Soundkarte installiert ist:

Function Soundkarte() As Boolean
   Soundkarte = (waveOutGetNumDevs() > 0)
End Function

Die Funktion aufrufen:

Private Sub OK_Click() If Soundkarte Then Text1.Value = "Soundkarte vorhanden" ...