vc如何动态注册控件

在应用程序中经常要动态注册控件，而且有些控件要注册后才能生效。下面这段是动态注册控件的代码，其中control.ocx是控件名称，要确保控件在应用程序当前目录下或者在system32文件夹下。

 LPCTSTR pszDllName="control.ocx";   
 HINSTANCE hLib = LoadLibrary(pszDllName); 
 if (hLib < (HINSTANCE)HINSTANCE_ERROR) 
 {
  
  MessageBox("fail",MB_OK);
    return;   
 }
  
 FARPROC lpDllEntryPoint;
 lpDllEntryPoint = GetProcAddress(hLib,_T("DllRegisterServer"));
  
  if(lpDllEntryPoint!=NULL)
   
  {
   
   if(FAILED(( *lpDllEntryPoint)()))
    
   {
    
    MessageBox("调用DllRegisterServer 失 败 ！","结 果",MB_OK);
    FreeLibrary(hLib);
    
    return;
    
   };
   
   MessageBox("注册 成 功","结 果",MB_OK);
   
  }
  
  else
   
   MessageBox("调用DllRegisterServer 失 败 ！", "结 果",MB_OK);