~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction : CarteSonExiste 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 |