ESATU Posted May 19, 2014 Share Posted May 19, 2014 how to detect the presence of a webcam on a PC with message box Yes or No.? Please... * Win XP, Vista, Win 7 & 8 Link to comment Share on other sites More sharing options...
Solution Unc3nZureD Posted May 19, 2014 Solution Share Posted May 19, 2014 (edited) 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 07Coder 1 Link to comment Share on other sites More sharing options...
ESATU Posted May 19, 2014 Author Share Posted May 19, 2014 Unc3nZureD Thanks a lot. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now