Tester si une Carte son est installée sur le PC

Code:: rem ============================================================================
rem Tester si une Carte son est installée sur le PC
rem ============================================================================
rem Cette fonction retourne le nombre de périphérique de sortie audio présents sur le système.
rem La fonction ne prend aucun argument et retourne 0 en cas d erreur
rem (ou si aucune carte son n est installée).
rem Sinon, elle retourne le nombre de cartes son installées
rem ============================================================================

Carte_Son_Existe()
terminate
end
rem ============================================================================
SUB Carte_Son_Existe()
   dim_local ret%
   dll_on "winmm"
   ret% = dll_call0("waveOutGetNumDevs")
   if ret% <> 0
   message "Au moins une carte son est installée sur votre PC"
   else
   message "Aucune carte son détectée sur votre PC"
   end_if
   dll_off
END_SUB
rem ============================================================================

Testé et approuvé mais sans le "terminate" qui m' a provoqué un arrêt de Panoramic.

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Tiens ! une réapparition ! le flou te va bien papydall...

C'est une procédure à ajouter à la bibliothèque sur le site, je pense.
Bravo Papydall pour cette nouvelle trouvaille

ygeronimi a écrit:: Testé et approuvé mais sans le "terminate" qui m' a provoqué un arrêt de Panoramic.

Merci pour le retour, ygeronimi.
On est devenu ami avec TERMINATE. Pas de problème chez moi.

Je fais de mon mieux ! J’essaye de sortir du brouillard où je vis !

Jicehel a écrit:: C'est une procédure à ajouter à la bibliothèque sur le site, je pense.
Bravo Papydall pour cette nouvelle trouvaille

Merci pour ton appréciation.