.版本 2

.子程序 __启动窗口_创建完毕

.局部变量 lpszName, 文本型

.局部变量 lpszVer, 文本型

.局部变量 Caps, CAPDRIVERCAPS

.局部变量 bar, 整数型, , "0"

' // 创建状态条

hStatusbar ＝ CreateWindowEx (0, “msctls_statusbar32”, “”, 位或 (#WS_VISIBLE, #WS_CHILDWINDOW, #SBARS_SIZEGRIP, #SBARS_TOOLTIPS, #CCS_TOP, #CCS_BOTTOM, #CCS_NOMOVEY), 左边, 顶边 － 50, 宽度, 50, 取窗口句柄 (), 0, GetModuleHandle (0), 0)

bar ＝ { 500, -1 }

SendMessageB (hStatusbar, #SB_SETPARTS, 2, bar)  ' 设置状态条分隔

SendMessageS (hStatusbar, #SB_SETTEXTA, 0, “状态:”)  ' 置初始文本

' // 建立捕捉窗口

lpszName ＝ 取空白文本 (100)  ' 分配内存空间

lpszVer ＝ 取空白文本 (100)  ' 分配内存空间

capGetDriverDescriptionA (0, lpszName, 100, lpszVer, 100)  ' // 取回驱动信息

lwndC ＝ capCreateCaptureWindowA (lpszName, 位或 (#WS_CAPTION, #WS_THICKFRAME, #WS_VISIBLE, #WS_CHILD), 0, 0, 320, 240, 取窗口句柄 (), 0)

' // 设置窗口标题

SetWindowText (lwndC, lpszName)

' // 设置视频流回调函数

capSetCallbackOnStatus (lwndC, 到整数 (&MyStatusCallback))

capSetCallbackOnError (lwndC, 到整数 (&MyErrorCallback))

' // 连接捕获窗口的驱动

.如果真 (capDriverConnect (lwndC, 0))

' // 只有做好以下如果连接是成功的。

' // 如果失败的话，报告错误，返回调用函数。

' // 进行捕获驱动程序

capDriverGetCaps (lwndC, VarPtr_CAPDRIVERCAPS (Caps, Caps), GetSize_CAPDRIVERCAPS (Caps))

' // 如果捕获驱动程序不支持的一个选项，将在菜单栏置灰色。

.如果真 (Caps.fHasDlgVideoSource ＝ 0)

mnuSource.可视 ＝ 假

.如果真结束

.如果真 (Caps.fHasDlgVideoFormat ＝ 0)

mnuFormat.可视 ＝ 假

.如果真结束

.如果真 (Caps.fHasDlgVideoDisplay ＝ 0)

mnuDisplay.可视 ＝ 假

.如果真结束

' // 设置预览时的比例

capPreviewScale (lwndC, 真)

' // 设置预览率在毫秒

capPreviewRate (lwndC, 66)

' // 开始预览图像从摄像头

capPreview (lwndC, 真)

' // 调整捕获窗口，以显示整个图象

ResizeCaptureWindow (lwndC)