Please use the search button
'?do=embed' frameborder='0' data-embedContent>>
a little bit modified:
MsgBox(0,"", IsWebcamPresent())
Func IsWebcamPresent()
$StructName = DllStructCreate("char[1024]")
$StructDesc = DllStructCreate("char[1024]")
For $i = 0 To 9
$aRslt = DllCall("Avicap32.dll", "bool", "capGetDriverDescription", "dword", $i, "ptr", DllStructGetPtr($StructName), "dword", DllStructGetSize($StructName), "ptr", DllStructGetPtr($StructDesc), "dword", DllStructGetSize($StructDesc))
If Not @error Then
If $aRslt[0] Then Return True
EndIf
Next
Return False
EndFunc