VedioCapture.dll的学习例子

lpszVer ＝ 取空白文本 (256)
lpszName ＝ 取空白文本 (256)
GetDriverDescription (0, lpszName, 100, lpszVer, 100)
lwndC ＝ capCreateCaptureWindowA (lpszName, 位或 (#WS_VISIBLE, #WS_CHILD), 0, 0, 图片框2.宽度, 图片框2.高度, 图片框2.取窗口句柄 (), 0)
设置窗口标题_ (lwndC, lpszName)
.如果 (capDriverConnect (lwndC, 0) ＝ 真)
发送消息_ (lwndC, #WM_CAP_STOP, 0, “”) ' 捕获设备断开连接
镜头检测窗口.销毁 ()
返回 (镜头是否存在 ＝ 真)
.否则
发送消息_ (lwndC, #WM_CAP_STOP, 0, “”) ' 捕获设备断开连接
镜头检测窗口.销毁 ()
返回 (镜头是否存在 ＝ 假)