VC中注册组件的代码

void RegisterCom(LPCTSTR pszDllName)
{
 // 装 载ActiveX 控 件
 HINSTANCE hLib = LoadLibrary(pszDllName);
 if (hLib < (HINSTANCE)HINSTANCE_ERROR)
 {
  AfxMessageBox("不能载入Dll文件!");
  return;
 }

 // 获 取 注 册 函 数DllRegisterServer 地 址
 FARPROC lpDllEntryPoint;
 lpDllEntryPoint = GetProcAddress(hLib,_T("DllRegisterServer"));
 // 调 用 注 册 函 数DllRegisterServer
 if(lpDllEntryPoint!=NULL)
 {
  if(FAILED(( *lpDllEntryPoint)()))
  {
   AfxMessageBox("调用DllRegisterServer失败!");
   FreeLibrary(hLib);
   return;
  };
  AfxMessageBox("注册成功");
 }
 else
  AfxMessageBox("调用DllRegisterServer失败!");
}