office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Activex OCX控件的注册卸载,以及判断​是否注册,以及免注册直接使用ocx控件

2017-09-10 09:30:00
virqin博客
转贴
9328

Activex OCX控件的注册卸载,以及判断是否注册,api 函数直按注册,免安装免注册直接使用的相关方法及源代码


方法一:在dos或Windows命令行下运行:regsvr32 ocxname.ocx 注册

示例:
regsvr32 netshare.ocx     //注册netshare.ocx控件
regsvr32 /u netshare.ocx //解除netshare.ocx控件的注册

如果netshare.ocx文件不在system目录时,还必须在文件名前加上完整的路径。除了regsvr32应用程序之外,Microsoft在它 的 web 站点上还提供了一个称为regclean.exe 的程序,可以检查注册表并去掉丢失的组件在注册表中的条目。regclean.exe 除了可以删除 “悬挂” 的条目,它还提供一个“undo” 文件帮助恢复错误的删除。

用 regsvr32.exe 注册 activeX 控件虽然简单,但需要用户手工进行注册,在不用时还需手工解除注册。

方法二:用 install shield,在里面选 “self-registered”,安装程序将自动注册;


方法三:api 函数注册
此方法的设计思路是:先将 activeX 控件载入内存,然后验证其有效性,最后直接在内存地址中执行其注册函数(DllRegisterServer、 DllUnregisterServer)。
其编程方法是:

1、使用Windows api 函数Loadlibrary 载入activeX 控件;
2、使用GetProcAddress 函数获取activeX 控件中注册函数DllRegisterServer(注销函数为 DllUnregisterServer)指针;
3、使用CallwindowProc 函数执行已载入内存的activeX 控件注册函数(DllRegisterServer、 DllUnregisterServer)。

示例:

typedef int (callback* myfunction)(void);
myfunction   myfunction = null;
hinstance handle = null ;
handle = LoadLibrary("trdragdroptreectrl.ocx");

if( handle != null )
{
myfunction = GetProcAddress(handle, "DllRegisterServer");
if( myfunction != null )
{
myfunction();
}
}

方法四:代码调用regsvr32.exe

//vb写法

shell "regsvr32.exe 控件.ocx /s "

//vc写法

::ShellExecute(NULL,NULL,"regsvr32.exe","/s D:\\新建文件夹\\TEST\\TEST\\Release\\TEST.reg ",NULL,NULL);

//添加REG文件进入注册表

::ShellExecute(NULL,NULL,"regedit.exe","/s D:\\新建文件夹\\TEST\\TEST\\Release\\TEST.reg ",NULL,NULL);

注释:/s标题不弹出消息框。


 

小小经验:
1、有时候在程序中使用ocx控件时失效,检查一下调用之间是否执行了afxoleinit()。如果使用了容器,还需要保证执行了 afxEnableControlContainer()
2、使用Activex Control Test Container 可以很方便地测试制作出来的ocx控件(从开始菜单-》程序-》Microsoft Visual Studio 6.0 -> Microsoft Visual Studio 6.0 Tools 可以看到该工具)
3、有时候控件制作的没有问题,注册方式也对,但是注册的时候确失败了,可能时dll的版本不对,使用Dependencies查看ocx控件依赖dll是否跟现在使用的dll版本一致。

regsvr32.exe 命令说明和参数

“regsvr32 [/s] [/n] [/i(:cmdline)] dllname”。其中dllname为activex控件文件名,建议在安装前拷贝到system文件夹下。

参数有如下意义:

/u——反注册控件

/s——不管注册成功与否,均不显示提示框

/c——控制台输出

/i——跳过控件的选项进行安装(与注册不同)

/n——不注册控件,此选项必须与/i选项一起使用

执行该命令的方法:

1、可以在“开始”--“运行”,调出运行的对话框,也可以使用Win+R热键,然后直接在输入栏输入即可

2、在开始--运行 输入cmd,调出‘命令提示符’窗口,然后再执行regsvr32命令。

 

方法三示例:

注册控件

BOOL CYourClass::RegistOcx()

{

    HINSTANCE hLib = LoadLibrary("NTGraph.ocx");      //指定要注册的ocx文件的路径及文件名。
 
    if (hLib == NULL)
    {
         MessageBox("不能载入OCX文件!");
         return;
    }

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

    //调用注册函数DllRegisterServer
    if(lpDllEntryPoint!=NULL)
    {
        if(FAILED((*lpDllEntryPoint)()))
        {
            //MessageBox(Handle,"调用DllRegisterServer失败!","失败ing..",MB_OK);
            MessageBox("OCX注册失败!");
            FreeLibrary(hLib);
            return;
        };
        //MessageBox(Handle,"注册成功!","Reg",MB_OK);
        MessageBox("OCX注册成功!");
    }
    else
        MessageBox("OCX注册失败!");
        //MessageBox(Handle,"调用DllRegisterServer失败!","失败ing..",MB_OK);

}

卸载控件

BOOL CYourClass::UnRegistOcx()

{

    HINSTANCE hLib = LoadLibrary("NTGraph.ocx");          //指定要卸载的ocx文件的路径及文件名。
    if (hLib==NULL)
    {
        //MessageBox(Handle,"不能载入Dll文件!","失败ing..",MB_OK);
        MessageBox("不能载入OCX文件!");
        return;
    }

    //获取注册函数DllRegisterServer地址
    FARPROC lpDllEntryPoint;
    lpDllEntryPoint = GetProcAddress(hLib,"DllUnregisterServer");//注意这里是DllUnregisterServer。

    //调用注册函数DllRegisterServer
    if(lpDllEntryPoint!=NULL)
    {
        if(((*lpDllEntryPoint)()))
        {
            //MessageBox(Handle,"调用DllUnRegisterServer失败!","失败ing..",MB_OK);
            MessageBox("调用DllUnRegisterServer失败!!!");
            FreeLibrary(hLib);
            return;
        };
        //MessageBox(Handle,"注销成功!","Unreg",MB_OK);
        MessageBox("OCX注销成功!");
    }
    else
    //MessageBox(Handle,"调用DllUnRegisterServer失败!!!","结果",MB_OK);
        MessageBox("OCX调用DllUnRegisterServer失败!!!");

}

判断是否注册  

BOOL CYourClass::IsRegistOcx()

{
    HKEY hKey;     
    BOOL bPresent;     
    TCHAR szPath[_MAX_PATH];     
    DWORD dwRegType;     
    DWORD cbData   =   sizeof   szPath   *   sizeof   TCHAR;    

   if(RegOpenKeyEx(HKEY_CLASSES_ROOT,"ActiveX.ActiveXControl\\Clsid",0,KEY_READ,&hKey)!=ERROR_SUCCESS)
        return false;
    else
        return true;
  //ActiveX.ActiveXControl为控件的名称和内部名称   如"NTGRAPH.NTGraphCtrl.1\\CLSID"

}

 

 

如果是VC程序建议使用第三种,直接加载控件暴露的注册和卸载函数, 高效

分享