Картинка с веб камеры

OpenWindow(0,0,0,500,500,"")
Define Ccam_lib1, *capAddress
   Ccam_lib1 = OpenLibrary(#PB_Any, "avicap32.dll") 
   If Ccam_lib1 
     *capAddress = GetFunction(Ccam_lib1, "capCreateCaptureWindowA") 
     hWndC = CallFunctionFast(*capAddress, 0, #WS_CHILD | #WS_VISIBLE, 0,0, 1 , 1, WindowID(0),0) 
     SendMessage_(hWndC, #WM_CAP_DRIVER_CONNECT, 0, 0) 
     SendMessage_(hWndC, #WM_CAP_SET_OVERLAY, #True, 0) 
     SendMessage_(hWndC, #WM_CAP_SET_PREVIEW, #True, 0) 
     SendMessage_(hWndC, #WM_CAP_SET_PREVIEWRATE, 1, 0) 
     SendMessage_(hWndC,#WM_CAP_EDIT_COPY,0,0) 
     image = GetClipboardImage(#PB_Any,32)
     If image
       SaveImage(Image,SaveFileRequester("","","",0))
       SendMessage_(hWndC,#WM_CAP_STOP,0,0) 
  SendMessage_(hWndC, #WM_CAP_DRIVER_DISCONNECT, 0, 0)
        EndIf
      EndIf

#WM_CAP_START = #WM_USER
#WM_CAP_DRIVER_CONNECT = #WM_CAP_START + 10
#WM_CAP_DRIVER_DISCONNECT = #WM_CAP_START + 11
#WM_CAP_FILE_SAVEDIBA = #WM_CAP_START + 25
#WM_CAP_GRAB_FRAME = #WM_CAP_START + 60
#WM_CAP_STOP = #WM_CAP_START + 68
#WM_CAP_DLG_VIDEOSOURCE = #WM_CAP_START + 42
#WM_CAP_DLG_VIDEOFORMAT = #WM_CAP_START + 41
 
Procedure SnapShot()
  If OpenWindow(0,0,0,0,0,"test",#PB_Window_SystemMenu)
   
    If OpenLibrary(0, "avicap32.dll")
      *capAddress = GetFunction(0, "capCreateCaptureWindowA")
      hWndC = CallFunctionFast(*capAddress, @"", #WS_CHILD, 10, 10, 320, 240, WindowID(0),1)
      SendMessage_(hWndC, #WM_CAP_DRIVER_CONNECT, 0, 0);
      SendMessage_(hWndC, #WM_CAP_GRAB_FRAME, 0, 0)
      SendMessage_(hWndC, #WM_CAP_FILE_SAVEDIBA, 0, "c:\test.bmp")
      SendMessage_(hWndC, #WM_CAP_STOP, 0, 0)
      SendMessage_(hWndC, #WM_CAP_DRIVER_DISCONNECT, 0, 0)
      DestroyWindow_(hWndC)
      CloseLibrary(0)
    EndIf
 
  EndIf
 
EndProcedure
 
 
SnapShot()