void __fastcall TForm1::FormCreate(TObject *Sender)
{   CAPTUREPARMS CaptureParms;
capCaptureGetSetup(hCapWnd,&CaptureParms,sizeof(CAPTUREPARMS));
CaptureParms.dwRequestMicroSecPerFrame = 1000000/6;//每秒6畫面
CaptureParms.fLimitEnabled = FALSE;
CaptureParms.fCaptureAudio = FALSE;
CaptureParms.fMCIControl = FALSE;
CaptureParms.fYield = TRUE;
CaptureParms.vKeyAbort = VK_ESCAPE;
//CaptureParms.vKeyAbort = VK_F1;
CaptureParms.fAbortLeftMouse = FALSE;
CaptureParms.fAbortRightMouse = FALSE;
if (CaptureParms.dwIndexSize < 1800 ) CaptureParms.dwIndexSize= 1800; // Limit Control
if (CaptureParms.dwIndexSize > 324000 ) CaptureParms.dwIndexSize= 324000;
  CaptureParms.fMakeUserHitOKToCapture = false;
  capCaptureSetSetup(hCapWnd,&CaptureParms,sizeof(CAPTUREPARMS));
  //AnsiString szDT = Now().FormatString("yy_mmdd_hhnn_ss") ".avi";
  //capFileSetCaptureFile(hCapWnd,szDT.c_str());
  //capCaptureSequence(hCapWnd);    capCaptureSetSetup(hCapWnd, &CaptureParms, sizeof(CAPTUREPARMS));     Form1->DoubleBuffered=true;
capDlgVideoFormat(hCapWnd);
//Form1->Image1->Width=Form1->Width;
//Form1->Image1->Height=Form1->Height;
//Image1->Align=alClient;//ok
Image1->AutoSize=false;
Form1->AutoSize=false;
Image1->Align=alClient;//ok
 hCapWnd = capCreateCaptureWindow ( "Capture Window",
 //WS_CHILD | WS_VISIBLE ,0,0,Panel1->Width,Panel1->Height,Panel1->Handle, 0);
 WS_CHILD | WS_VISIBLE ,0,0,1,1,Form1->Handle, 0);
 bool a = false;
 for(int i=0;i<10;i  )
 {
  a=capDriverConnect(hCapWnd,i);
  if( a ) break;
 }
  if( !a )
   ShowMessage("攝影機連接失敗..");
// if (!capOverlay(ghCapWnd,true))
// {
    //capPreviewRate(hCapWnd,66);
    //capPreview(hCapWnd,true);
// }
/*
 CAPDRIVERCAPS CapDrvCaps;        if( capDriverGetCaps(hCapWnd, &CapDrvCaps, sizeof(CAPDRIVERCAPS)) )
    {
        if( CapDrvCaps.fHasDlgVideoFormat )
        {
            capDlgVideoFormat( hCapWnd );
            return;
        }
    }
    ShowMessage(" No Video Format");
  */
  capPreviewRate(hCapWnd,66);
//   capPreview(hCapWnd,true);
        
} 

引言: 請問如何錄製螢幕畫面? 比如說在執行Word時想錄製成avi檔. 請指教謝謝

esbcc 你好: 請先參考以下文章中的說明 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --