Vérifier l'existence d'une carte son

Commenter

Contenu du snippet

Avec le code suivant, vous pouvez vérifier la présence d'une carte son sur un ordinateur (et ainsi décider ou non de jouer un fichier son).

Source / Exemple : 


' Déclaration de fonction API
Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long

Private Function CarteSonExiste() As Boolean
' Renvoie "Vrai" si une carte son est présente, sinon "Faux".
Dim lgTMP As Long
lgTMP = waveOutGetNumDevs()
' On récupère dans lgTMP le nombre de cartes son installées.
' Il en faut donc au moins une pour renvoyer "Vrai".
CarteSonExiste = (lgTMP > 0)
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Doc VB)