减震器zgt 1-7:大家来帮帮忙，我很急的

我要用MFC写一个简单的播放器，可是没有activemovie控件，怎么办呢？
（好象用sysmtem32里面的MCI32.ocx也可以，可点击INSERT它说"the activeX is not registered properly.....",怎么把它注册？
具体代码
---- 利用 VC++6.0的AppWizard生成一个基于对话框的工程Player，去掉对话框上的“确定” 和“取消”按钮，并加入ActiveMovie控件（通常情况下ActiveMovie控件并不出现在控件 面板中，可在菜单中依次选择“project— >Add To Project— >Components And Controls”，在出现的“Components And Controls Gallery”对话框中打开“Registered Active Controls”文件夹，选中“ActiveMovie Control Object”选项，按“Insert”后关闭该对话框，ActiveMovie控件便出现在控件面板中），调整好控件在对话框中的位置。为了能够控制控件的操作，应为对话框设计一个菜单，菜单的项目可以定为“文件”、“屏幕控制“和“音量控制”。
---- 首先利用ClassWizard为ActiveMovie控件声明一个变量m_ActiveMovie。然后为菜单 “文件”添加两个菜单项“打开文件”和“退出”，并分别添加函数OnOpen（）和OnExit（），代码如下：
void Cplayer：：OnOpen（）{
// TODO: Add your command handler code here
char szFilter[] = " Video File (*.dat)∣
*.dat∣Wave File (*.wav)∣*.wav∣AVI File (*.avi)∣
(*.avi)∣Movie File (*.mov)∣(*.mov)∣
Media File (*.mmm)∣(*.mmm)∣Mid File(*.mid;*.rmi)∣
(*.mid;*.rmi)∣MPEG File (*.mpeg)∣(*.mpeg)∣
All File (*.*)∣*.* ";
CFileDialog FileDlg( TRUE, NULL, NULL,
OFN_HIDEREADONLY, szFilter );
if( FileDlg.DoModal() == IDOK ){
CString PathName = FileDlg.GetPathName();
PathName.MakeUpper();
m_ActiveMovie.SetFileName(PathName);
}
}
void CPlayer：：OnExit（）
{
// TODO: Add your command handler code here
OnOK（）；//退出应用程序
}
---- 为菜单“屏幕控制”添加菜单项“满屏”，其响应函数为OnFully（），具体代码如下：
void CPlayer：：OnFully()
{
// TODO: Add your command handler code here
m_ActiveMovie.Pause ();//暂停播放
m_ActiveMovie.SetFullScreenMode(true);//设置
m_ActiveMovie. Run();//继续播放
m_ActiveMovie.SetMovieWindowSize(SW_SHOWMAXIMIZED);
}
---- ActiveMovie控件还提供了控制音量的两个函数GetVolume()和SetVolume()，只要在程 序中调用这两个函数，便可以达到控制音量的目的。为“音量控制”添加“增加”和“减小”两个菜单项，其响应函数分别为：
void CVcdDlg::OnAdd()
{
// TODO: Add your command handler code here
long m_valume= m_ActiveMovie.GetVolume ();
m_ActiveMovie.Pause ();
m_ActiveMovie.SetVolume(m_valume+100);
m_ActiveMovie.Run ();
}
void CVcdDlg::OnReducing()
{
// TODO: Add your command handler code here
long m_valume= m_ActiveMovie.GetVolume ();
m_ActiveMovie.Pause ();
m_ActiveMovie.SetVolume(m_valume-100);
m_ActiveMovie.Run ();
}
虽然ActiveMovie控件并没有直接提供“静音”函数，但 可以通过控制函数SetVolume()的参数来实现“静音”的效果。当 SetVolume()的参数设为-4000使效果比较理想。要实现静音功能，应先为“音量控制”加 入菜单项“静音”，并添加消息响应函数OnMute（），代码如下：
void CVcdDlg::OnMute()
{
// TODO: Add your command handler code here
m_ActiveMovie.Pause ();
m_ActiveMovie.SetVolume(-4000);
m_ActiveMovie.Run ();
}