注册／注销ActiveX控件

其实就是regsvr32.exe 的伪代码。。。

有些实例居然不实现函数DllUnregisterServer，也就不能通过regsvr32.exe注销了，害我自己到注册表删，另外像什么360之类的可以检测出无效ActiveX控件 ，其实原理很简单，就是看注册表里对应的控件路径有效否，实现用api注册表函数就可以了。。。

在程序中注册ActiveX控件（.OCX）的函数

BOOL RegisterOcx(LPCTSTR OcxFileName)

{

         LPCTSTR pszDllName = OcxFileName ;         //ActiveX控件的路径及文件名         

         HINSTANCE hLib = LoadLibrary(pszDllName); //装载ActiveX控件

         if (hLib < (HINSTANCE)HINSTANCE_ERROR)

         {

                   return FALSE ;

         }

         FARPROC lpDllEntryPoint;

         lpDllEntryPoint = GetProcAddress(hLib,_T("DllRegisterServer"));   //获取注册函数DllRegisterServer地址



         if(lpDllEntryPoint!=NULL)   //调用注册函数DllRegisterServer

         {

                  if(FAILED((*lpDllEntryPoint)()))

                   {

                            FreeLibrary(hLib);

                            return FALSE ;

                    }

                   return TRUE ;

         }

         else

                   return FALSE ;

}

／／－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

在程序中注销ActiveX控件（.OCX）的函数



BOOL UnRegisterOcx(LPCTSTR OcxFileName)

{

         LPCTSTR pszDllName = OcxFileName ;         //ActiveX控件的路径及文件名         

         HINSTANCE hLib = LoadLibrary(pszDllName); //装载ActiveX控件

         if (hLib < (HINSTANCE)HINSTANCE_ERROR)

         {

                   return FALSE ;

         }

         FARPROC lpDllEntryPoint;

         lpDllEntryPoint = GetProcAddress(hLib,_T("DllUnregisterServer"));        //获取注册函数DllUnregisterServer地址



         if(lpDllEntryPoint!=NULL)   //调用注册函数DllUnregisterServer

         {

                  if(FAILED((*lpDllEntryPoint)()))

                   {

                            FreeLibrary(hLib);

                            return FALSE ;

                    }

                   return TRUE ;

         }

         else

                   return FALSE ;

}