HWND hWndC;
CAPTUREPARMS USB_CCD;
LRESULT CALLBACK VideoData( HWND hWnd,LPVIDEOHDR lpVHdr){
return (LRESULT) TRUE;}
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
hWndC=capCreateCaptureWindow("USB_CCD", WS_CHILD | WS_VISIBLE,0, 0, 320, 240,Panel1->Handle,1); //設定CaptureWindows
capDriverConnect (hWndC, 0); //與驅動程式連結
capOverlay(hWndC, true); //使用hardware overlay使video input directly into framebuffer，使不用CPU resources.
capPreview(hWndC,true); //抓取影像出現在視窗中
capPreviewRate(hWndC, 1000/30); //每秒影像變化張數
capSetCallbackOnFrame(hWndC, &VideoData);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
capFileSetCaptureFile(hWndC,"c:\\temp\\test.avi");//預設檔案名稱及位置
capFileSaveAs(hWndC,"c:\\temp\\test.avi");
capCaptureSequence(hWndC); //若無上述函數，將在c:\產生capture.avi
//預設按Esc Key則停整存檔。 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
capDlgVideoCompression(hWndC);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
capDlgVideoFormat(hWndC);
}
_____________________________________________________________