Ejemplos usando el Api de windows para Visual basic

101 - Determinar si hay instalada una tarjeta de sonido

Volver al Listado Api - Anterior - Siguiente

Para averiguar esto mas simple no podía ser, hay que llamar al Api waveOutGetNumDevs , si esta devuelve 0 es porque no se encuentra instalada

Por ejemplo:

' Api waveOutGetNumDevs Private Declare Function waveOutGetNumDevs _ Lib "winmm.dll" () As Long Public Function Verificar_tarjeta() As Boolean ret = waveOutGetNumDevs() If ret >= 0 Then Verificar_tarjeta = True Else Verificar_tarjeta = False End If End Function Private Sub Form_Load() MsgBox Verificar_tarjeta End Sub

Relacionados

Ejemplos de Audio, video y sonido en visual basic

Buscar en Recursos vb