Webcam Detection

[ESATU]

how to detect the presence of a webcam on a PC with message box Yes or No.? Please...

* Win XP, Vista, Win 7 & 8

[Unc3nZureD]

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

Edited May 19, 2014 by Unc3nZureD

[ESATU]

Unc3nZureD

  Thanks  a lot.