如何动态创建ActiveMovieObject

//create an activeobject

 

/创建播放控件

 CWnd   *PlayerWnd;
 PlayerWnd   =   CWnd::FromHandle(this-> m_hWnd);

 m_pCActiveMovie3   =new   CActiveMovie30;
 ASSERT_VALID   (m_pCActiveMovie3);

 CRect rect;
 PlayerWnd->GetWindowRect(rect);
 PlayerWnd->ScreenToClient(rect);
 
 m_pCActiveMovie3-> Create(_T   ( "视频播放"), WS_OVERLAPPED|WS_VISIBLE,rect, PlayerWnd, IDC_ACTIVEMOVIECONTROL1);
// m_pCActiveMovie3->put_ShowControls(false);
 m_pCActiveMovie3->put_FileName("C://Documents and Settings//new//My Documents//My Pictures//mov.avi");
 m_pCActiveMovie3->Run();
 /////////////////////////////////
 CRect movieR,dlgR,clientR;
 m_pCActiveMovie3->GetWindowRect(movieR);
 //保证对话框客户区宽不小于300，高度>=55
 if(movieR.Width()<300||movieR.Height()<255){
  movieR.right = movieR.left+300;
  movieR.bottom = movieR.top+255;
 }
 //得到窗口大小和客户区大小
 this->GetWindowRect(dlgR);
 this->GetClientRect(clientR);

 //让对话框适应视频大小
 this->MoveWindow(dlgR.left,dlgR.top,dlgR.Width()-clientR.Width()+movieR.Width(),dlgR.Height()-clientR.Height()+movieR.Height());

 //居中到对话框
 m_pCActiveMovie3->GetWindowRect(movieR);
 this->GetClientRect(clientR);
 m_pCActiveMovie3->MoveWindow((clientR.Width()-movieR.Width())/2,(clientR.Height()-movieR.Height())/2,movieR.Width(),movieR.Height());
 ////////////////////