在程序中注册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 ;

}