office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

Activex OCX控件的註冊卸載,以及判斷​是否註冊,以及免註冊直接使用ocx控件

2017-09-10 09:30:00
virqin博客
轉貼
9414

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程序建議使用第三種,直接加載控件暴露的註冊和卸載函數, 高效

分享