VB-Homepage Tipp 074

Systemprüfung, ob Soundkarte verfügbar

Wieder ein sehr kurzer, aber recht brauchbarer Tipp. Der vorallem dort sinnvoll einsetzbar ist, wo man sein Programm auf anderen PC's laufen lassen möchte, von dem man die Hardwareausstattung aber nicht kennt. Es geht um die Prüfung, ob im System eine Soundkarte verfügbar ist. Sehr kurz und schmerzlos (und der einfachheithalber mit Infoausgabe über Msgbox) Allgemein/Deklarationen (der Form) Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long Form_Load Dim i As Integer i = waveOutGetNumDevs() If i > 0 Then    MsgBox "Soundkarte verfügbar" & Chr(13) & Chr(13) & "A.Gamper - http://www.vb-homepage.de", vbInformation, "Soundkartentest" Else    MsgBox "Soundkarte nicht verfügbar" & Chr(13) & Chr(13) & "A.Gamper - http://www.vb-homepage.de", vbInformation, "Soundkartentest" End If Die Visible Eigenschaft der Form auf False setzen und einen Timer ins Projekt eingefügen, der das Programm nach der Anzeige der Msgbox wieder schließt. Den Timer Interval auf 300 stellen. Timer1_Timer Unload Form1 Set Form1 = Nothing End Das ganze muß natürlich so nicht enden, vielmehr kann nun nach der Feststellung, ob eine Soundkarte verfügbar ist, der Programmstart fortgesetzt werden bzw. bestimmte zugeschnittene Programmfunktionen gestartet werden.

Tipp-Download

Quelle :