Vérifier l'existence d'une carte son

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 700 fois - Téléchargée 72 fois

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

Ajouter un commentaire

Commentaire

djamelhada
Messages postés
2
Date d'inscription
jeudi 8 avril 2010
Statut
Membre
Dernière intervention
11 avril 2010
-
merçi doc

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.