VB-Homepage Tipp 193

Systemprüfung ob *.wav Klangdateien abspielbar sind

In unserer heutigen Ausgabe von "Welche Ausstattung hat der PC" geht es darum zu ermitteln, ob der PC auf dem das Programm laufen soll, über die Möglichkeit verfügt, Klangdateien im Wav Format abzuspielen. Dabei wird nicht geprüft, ob Lautsprecherboxen angeschlossen sind, (ginge wohl etwas zu weit), sondern ob ein Treiber für die Wiedergabe geladen wurde. Die Definition (Allgemein/Deklarationen) Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long Die Abfrage ( ggf. in unter Command1_Click oder Form_Load ) Dim waveTest As Long waveTest = waveOutGetNumDevs() If waveTest > 0 Then    MsgBox "Ihr PC kann ""WAV"" Dateien abspielen.", vbInformation, "Check" Else    MsgBox "Ihr PC kann keine ""WAV"" Dateien abspielen.", vbExclamation, "Check" End If Mehr braucht es nicht, starten sie Ihr Projekt und lassen Sie sich anzeigen, was sie sicher schon wußten. Anstatt der Messagebox können natürlich genau so gut die jeweiligen Anweisungen stehen, die beim vorfinden eines bestimmten Ergebnisses, abgearbeitet werden sollen.

Tipp-Download

Quelle :