|
'Bisogna usare la funzione API waveOutGetNumDevs; la sua
'dichiarazione e': Declare Function waveOutGetNumDevs Lib "winmm.dll" _ Alias "waveOutGetNumDevs" () As Long 'Va utilizzata cosi': Dim x As Integer x = waveOutGetNumDevs() If x > 0 Then MsgBox "Scheda sonora installata" Else MsgBox "Scheda sonora non installata" End If |