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