[VB6] Detectar webcam

[noele1995]

Me preguntaba si alguien podria ayudarme con el codigo para detectar si hay una webcam disponible en la pc. He probado con varias cosas pero me han terminado de ir bien y googleando tampoco he encontrado cosas que funcionen correctamente.

Gracias de antemano

[Karcrack]

Código (vb) [Seleccionar] Expandir

'AVICAP32
Private Declare Function capGetDriverDescriptionA Lib "AVICAP32" (ByVal wDriver As Long, ByVal lpszName As String, ByVal cbName As Long, ByVal lpszVer As String, ByVal cbVer As Long) As Boolean

Private Sub Form_Load()
    Dim DriverName      As String
    Dim DriverVersion   As String
    Dim i               As Long
   
    DriverName = Space$(80)
    DriverName = DriverVersion
   
    For i = 0 To 9
        If capGetDriverDescriptionA(i, DriverName, 80, DriverVersion, 80) Then
            Debug.Print (DriverName)
        End If
    Next
End Sub

??

[noele1995]

 Ahora mismo lo pruebo, muchas gracias Karcrack !!