VC ActiveX控件注册代码

对话框工程，注册按钮事件为：

 void CReg_ActiveXDlg::OnBtnReg()
{
 UpdateData(true);
 LPCTSTR pszDllName=m_ActiveX_name;//C:\\teechart8.ocx "teechart8.ocx"
 //装载ActiveX控件
 HINSTANCE hLib = LoadLibrary(pszDllName);
 //获取注册函数DllRegisterServer地址
 FARPROC lpDllEntryPoint;
 lpDllEntryPoint=GetProcAddress(hLib,_T("DllRegisterServer"));
 //调用注册函数DllRegisterServer
 if(lpDllEntryPoint!=NULL){
 if(FAILED((*lpDllEntryPoint)())){
    MessageBox("调用DllRegisterServer失败"); 
    FreeLibrary(hLib);
    return;
   };
   MessageBox("注册成功");
 }else{
  MessageBox("调用DllRegisterServer失败!");
 }
}

注销按钮事件：

void CReg_ActiveXDlg::OnBtnUnreg()
{
 UpdateData(true);
 HINSTANCE hLib=LoadLibrary(m_ActiveX_name);
 if (hLib==NULL){
  MessageBox("不能载入Dll文件!");
  return;
 }
 //获取注册函数DllRegisterServer地址
 FARPROC lpDllEntryPoint;
 lpDllEntryPoint = GetProcAddress(hLib,"DllUnregisterServer");//注意这里是DllUnregisterServer
 //调用注册函数DllRegisterServer
 if(lpDllEntryPoint!=NULL) {
  if(((*lpDllEntryPoint)())){
   MessageBox("调用DllUnRegisterServer失败!");
   FreeLibrary(hLib);
   return;
  };
  MessageBox("注销成功！");
 }else{
  MessageBox("调用DllUnRegisterServer失败!"); 
 } 
}