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
'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
??
Ahora mismo lo pruebo, muchas gracias Karcrack ;D!!