Test pro WAVE kompatibilitu
Založte nový projekt a připojte tlačítko na formulář. Ve formuláři deklarujte následující funkci:
Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long
Na událost Click tlačítka
definujte tento kód:
Private Sub Command1_Click()
Dim waveTest As Long
waveTest = waveOutGetNumDevs()
If waveTest > 0 Then
MsgBox "Váš systém je
schopen přehrávat Wave soubory.", vbInformation, "Wave Check"
Else
MsgBox "Váš systém
nepodporuje Wavy.", vbExclamation, "Wave Check"
End If
End Sub