|
 |
 |
 |
| |
 Tester la présence d'une carte SON
' Déclaration de fonction API
Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long
Public Function CarteSon() As Boolean
Dim Temp As Long
Temp = waveOutGetNumDevs()
CarteSon = (Temp > 0)
End Sub
ensuite il suffit de faire :
If CarteSon=True then
msgbox "Il y a une carte son sur votre PC"
Else
msgbox "Désolé, vous n'aurez pas de son !!!"
EndIf
|
|
 |
 |
 |
|