在程序中注册ActiveX控件

最新推荐文章于 2023-02-15 19:36:32 发布

原创最新推荐文章于 2023-02-15 19:36:32 发布 · 836 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#null

本文介绍了一个用于注册ActiveX控件的函数RegisterOcx，通过加载库文件并调用DllRegisterServer来完成注册过程。同时提供了一个用于卸载ActiveX控件的函数UnRegisterOcx，通过调用DllUnregisterServer来实现卸载。

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 ;

}