Vérifier l'existence d'une carte son

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 085 fois - Téléchargée 75 fois

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

Ajouter un commentaire Commentaire
djamelhada Messages postés 2 Date d'inscription jeudi 8 avril 2010 Statut Membre Dernière intervention 11 avril 2010
11 avril 2010 à 12:37
merçi doc
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)