Comprobar si existe tarjeta de sonido

Prueba a ver con el siguiente código:

Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

Function DetectarSonido() As Boolean
     Dim Res As Integer

     Res = waveOutGetNumDevs()
     If Res > 0 Then
          DetectarSonido = True
     Else
          DetectarSonido = False
     End If
End Function

La función te devuelve un valor booleano (verdadero/falso) al comprobar si hay dispositivos de sonido.

Publicado en microsoft.public.es.vb por MavericK

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s