在程式內部註冊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"));//調用註冊函數DllRegisterServerif (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;}}