Снимок с веб камеры

//---------------------------------------------------------------------------
 
#include <vcl.h>
 
#include <stdlib.h>
#include <stdio.h>
#include <vfw.h>
#include <Windows.h>
#include <Clipbrd.hpp>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
HWND hWndC;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
 
  hWndC=capCreateCaptureWindowA("",WS_CHILD, this->Left, this->Top, this->Width, this->Height, this->Handle, 11011);
  capDriverConnect (hWndC,0);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
    capDriverDisconnect(hWndC);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button3Click(TObject *Sender)
{
capGrabFrame(hWndC);
if(capEditCopy(hWndC))
Image1->Picture->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP),0);
 
}
//---------------------------------------------------------------------------