How to detect computer camera

[loveau3 0]

How to detect computer camera.

If there is show models of the brand does not exist, its exit

[Fainth 0]

you could readout the registry for devices you seek. If you know what cams to expect , thats an option.

[loveau3 0]

Can you give an example

Edited May 16, 2010 by loveau3

[Fainth 0]

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\nmwcdcx64\Enum\(HardwareID)

would be the reg key that shows if my communicator is connected or not.

func check_dev()

RegRead('your devices regkey','Value if connected')

if @error then return false

else return true

endfunc

get the regkey by searching for the hardwareID of your device in the registry.

Get hardwareid by clicking properties and select HardwareId from Details.

[GEOSoft 64]

$sPrimary_Key = "HKLM\SYSTEM\CurrentControlSet\Enum\USB"
$i = 1
While 1
    $sSec = $sPrimary_Key & "\" & RegEnumKey($sPrimary_Key, $i) & "\"
    If @Error Then ExitLoop
    $i += 1
    $sTer = $sSec & RegEnumKey($sSec, 1)
    $sVal = RegRead($sTer, "DeviceDesc")
    If StringRegExp($sVal, "(?i).*cam") Then
        MsgBox(0, "Result", $sVal)
    EndIf
WEnd