persisttext.cpp

Visual_C++.NET精彩案例237.rar

// PersistText.cpp : 定义 DLL 的初始化例程。
//

#include "stdafx.h"
#include "PersistText.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif

//
//	注意！
//
//		如果此 DLL 动态链接到 MFC
//		DLL，从此 DLL 导出并
//		调入 MFC 的任何函数在函数的最前面
//		都必须添加 AFX_MANAGE_STATE 宏。
//
//		例如：
//
//		extern "C" BOOL PASCAL EXPORT ExportedFunction()
//		{
//			AFX_MANAGE_STATE(AfxGetStaticModuleState());
//			// 此处为普通函数体
//		}
//
//		此宏先于任何 MFC 调用
//		出现在每个函数中十分重要。这意味着
//		它必须作为函数中的第一个语句
//		出现，甚至先于所有对象变量声明，
//		这是因为它们的构造函数可能生成 MFC
//		DLL 调用。
//
//		有关其他详细信息，
//		请参阅 MFC 技术说明 33 和 58。
//

// CPersistTextApp

BEGIN_MESSAGE_MAP(CPersistTextApp, CWinApp)
END_MESSAGE_MAP()


// CPersistTextApp 结构

CPersistTextApp::CPersistTextApp()
{
	// TODO: 在此添加构造代码，
	// 将所有重要的初始化放置在 InitInstance 中
}


// 唯一的 CPersistTextApp 对象

CPersistTextApp theApp;

const GUID CDECL BASED_CODE _tlid =
		{ 0x266C3C47, 0x54D7, 0x4011, { 0xAC, 0x6C, 0xAA, 0xDF, 0xA7, 0x36, 0x61, 0x38 } };
const WORD _wVerMajor = 1;
const WORD _wVerMinor = 0;


// CPersistTextApp 初始化

BOOL CPersistTextApp::InitInstance()
{
	CWinApp::InitInstance();

	// 将所有 OLE 服务器（工厂）注册为运行。这将使
	//  OLE 库得以从其他应用程序创建对象。
	COleObjectFactory::RegisterAll();

	return TRUE;
}

// DllGetClassObject - 返回类工厂

STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
{
	AFX_MANAGE_STATE(AfxGetStaticModuleState());
	return AfxDllGetClassObject(rclsid, riid, ppv);
}


// DllCanUnloadNow - 允许 COM 卸载 DLL

STDAPI DllCanUnloadNow(void)
{
	AFX_MANAGE_STATE(AfxGetStaticModuleState());
	return AfxDllCanUnloadNow();
}


// DllRegisterServer - 将项添加到系统注册表

STDAPI DllRegisterServer(void)
{
	AFX_MANAGE_STATE(AfxGetStaticModuleState());

	if (!AfxOleRegisterTypeLib(AfxGetInstanceHandle(), _tlid))
		return SELFREG_E_TYPELIB;

	if (!COleObjectFactory::UpdateRegistryAll())
		return SELFREG_E_CLASS;

	return S_OK;
}


// DllUnregisterServer - 将项从系统注册表中移除

STDAPI DllUnregisterServer(void)
{
	AFX_MANAGE_STATE(AfxGetStaticModuleState());

	if (!AfxOleUnregisterTypeLib(_tlid, _wVerMajor, _wVerMinor))
		return SELFREG_E_TYPELIB;

	if (!COleObjectFactory::UpdateRegistryAll(FALSE))
		return SELFREG_E_CLASS;

	return S_OK;
}