VC源码自动注册OCX控件

　　BOOL bResult = FALSE

　　//检查是否支持注册

　　if (SupportsSelfRegister(strOcxPath))

　　{

　　　　HMODULE hModule = ::LoadLibrary(strOcxPath)

　　　　if (LOADLIBRARY_FAILED(hModule)) return FALSE

　　

　　　　//获得注册函数地址

　　　　CTLREGPROC DLLRegisterServer =

(CTLREGPROC)::GetProcAddress(hModule,\"DllRegisterServer\" )

　　　　if (DLLRegisterServer != NULL)

　　　　{

　　　　　　HRESULT regResult = DLLRegisterServer()

　　　　　　bResult = (regResult == NOERROR)

　　　　}

　　　　::FreeLibrary(hModule)

　　}-VC source automatic registration OCX Controls BOOL bResult = FALSE / / check whether support registration if (SupportsSelfRegister (strOcxPath)) (HMODULE hModule = : : LoadLibrary (strOcxPath) if (LOADLIBRARY_FA ILED (hModule)) return FALSE / / registration function addresses CTLRE GPROC DLLRegisterServer = (CTLREGPROC) : : GetProcAddress (hModule. "DllRegisterServer") if (DLLRegisterServer ! = NULL) (HRESULT = DLLRegisterServ regResult er () bResult = (regResult == NOERROR)) : : FreeLibrary (hModule);)