在程序内部注册ACTIVE X控件

BOOL DllRegister(LPCTSTR lpszDllName)
{
	ASSERT(lpszDllName != NULL);
	ASSERT(AfxIsValidString(lpszDllName));

	//加载ActiveX控件
	HINSTANCE hLib = LoadLibrary(lpszDllName);
	if (hLib == NULL)
	{
		TRACE(_T("%s加载失败\n"), lpszDllName);
		return FALSE;
	}

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

	//调用注册函数DllRegisterServer
	if (lpDllEntryPoint != NULL)
	{
		if (FAILED((*lpDllEntryPoint)()))
		{
			TRACE(_T("调用DllRegisterServer失败\n"));
            FreeLibrary(hLib);
            return FALSE;
		}
		else
		{
			FreeLibrary(hLib);
			return TRUE;
		}
	}
	else
	{
		TRACE(_T("调用DllRegisterServer失败\n"));
		FreeLibrary(hLib);
		return FALSE;
	}
}