IGraphBuilder   *pGraph = NULL;
IBasicVideo     *pBasicVideo = NULL;
void __fastcall TForm1::InitDS()
{
  CoInitialize(NULL);
  CoCreateInstance(CLSID_FilterGraph, NULL, CLSCTX_INPROC,
        IID_IGraphBuilder, (void **)&pGraph); 
  pGraph->QueryInterface(IID_IBasicVideo,(void **)&pBasicVideo);
}
void __fastcall TForm1::GetVideo()
{ 
 WideString sFileName;//你的錄影檔
  int iWidth,iHeight;//畫面大小
  int FPS;//Frame by sec
 REFTIME pAvgTimePerFrame;
 pGraph->RenderFile(sFileName,NULL);
 pBasicVideo->GetVideoSize(&lWidth,&lHeight);
  pBasicVideo->get_AvgTimePerFrame(&pAvgTimePerFrame);
  Fps = (1 / pAvgTimePerFrame);
}