#include "StdAfx.h"
#include "StdArx.h"
#include "resource.h"

#include "TInterfaceModifyMsgContext.h"

PickSet g_ssLastSel(SS_FREE);	// 上次选择集
CString	g_csLastCmd;			// 上次命令

AcGeTol g_globalTol; // 用于记录AcGePoint3d比较精度

void AddCommand(LPCTSTR cmdGroup, LPCTSTR cmdInt, LPCTSTR cmdLoc,
				const int cmdFlags, const AcRxFunctionPtr cmdProc, 
				const int idLocal = -1);

// From TAuxTools.cpp
extern void GetTHvacParamFromDwg();
extern void SetTHvacParamToDwg(LPCTSTR pszKey = NULL);

DLLIMPEXP void SetSysPointEqual(double dDistance)
{
	AcGeContext::gTol.setEqualPoint(dDistance);
}

DLLIMPEXP void SetSysVectorEqual(double dVector)
{
	AcGeContext::gTol.setEqualVector(dVector);
}

// mcl add.获取风管是否加粗.用于非暖通环境时正确显示。临时方法,有待统一设置图纸相关参数
// delete by hh 2011-01-04 是否加粗保存在图纸中 见函数GetTHvacParamFromDwg
/*void SetDuctThickByDwg()
{
	AcDbBlockTable* pBlockTable = NULL;
	AcDbBlockTableRecord* pTableRecord = NULL;
	if(acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlockTable, AcDb::kForRead) != Acad::eOk)
		return;
	
	pBlockTable->close();
	if(pBlockTable->getAt(ACDB_MODEL_SPACE, pTableRecord, AcDb::kForRead) != Acad::eOk)
		return;

	pTableRecord->close();

	CString csIsThick = TAuxTools::ReadXdata(pTableRecord->id(), HVAC_SHOWWIDTH);
	SetGlobalContext(HVAC_SHOWWIDTH, _ttoi(csIsThick));

	PickSet ssObj(SS_FREE);
	if (GetEntByDxf(ssObj, _T("ATS_DBHVACDUCT,ATS_DBHFITTING,ATS_DBHEQUIPMENT"), 1)==Acad::eOk)
		UpdateGraphic(ssObj);	
}*/

//{{AFX_ARX_MSG
void InitApplication();
void UnloadApplication();
void OnDwgLoaded();
//}}AFX_ARX_MSG

//{{AFX_ARX_ADDIN_FUNCS
void RegisterDbxApp();
//}}AFX_ARX_ADDIN_FUNCS

//MY_RES_HERE;

// mcl changed 2010.04.19.采用新建筑Ge库后，替换为下面方式
// static AFX_EXTENSION_MODULE TchPipeBaseDLL = { NULL, NULL };
// extern "C" {
// 	HINSTANCE _hdllInstance;
// }

// extern "C" BOOL APIENTRY //name modified

// extern "C" BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID lpReserved)
// {
//     _hdllInstance = hInstance;
// 	return TRUE;
// }
// 
// InitModule(HINSTANCE hInstance, DWORD dwReason, LPVOID lpReserved)//name modified
// {
// 	if (dwReason == DLL_PROCESS_ATTACH)	{
//       	// Extension DLL one-time initialization
// 		 if (!AfxInitExtensionModule(TchPipeBaseDLL, hInstance))
//             return 0;
// 	         CTemporaryResourceOverride::SetDefaultResource(_hdllInstance);	
//  	    // Insert this DLL into the resource chain
//    	     new CDynLinkLibrary(TchPipeBaseDLL);
// 
//   	}
// 	else if (dwReason == DLL_PROCESS_DETACH)
// 	{
// 		AfxTermExtensionModule(TchPipeBaseDLL);
// 	}
// 	return 1;   // ok
// }

HINSTANCE _hdllInstance = NULL ;
AC_IMPLEMENT_EXTENSION_MODULE(PipeBaseDll);
extern void InitAol(const TCHAR *szAppName);

extern "C"
BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID /*lpReserved*/)
{
	if (dwReason == DLL_PROCESS_ATTACH)
	{
		_hdllInstance = hInstance;
		PipeBaseDll.AttachInstance(hInstance);
	} 
	else if (dwReason == DLL_PROCESS_DETACH)
	{
		PipeBaseDll.DetachInstance();
	}
	return TRUE;
}

extern "C" AcRx::AppRetCode 
acrxEntryPoint(AcRx::AppMsgCode msg, void* pkt)
{
	switch (msg) 
	{
	case AcRx::kInitAppMsg:
//      InitModule(_hdllInstance, DLL_PROCESS_ATTACH, NULL);
		acrxDynamicLinker->unlockApplication(pkt);
		acrxDynamicLinker->registerAppMDIAware(pkt);
		InitApplication();
		break;
	case AcRx::kLoadDwgMsg:	// mcl add 2010.08.02。处理与dwg自身有关参数
        OnDwgLoaded();
        break;
	case AcRx::kUnloadAppMsg:
		UnloadApplication();
//		InitModule(_hdllInstance, DLL_PROCESS_DETACH, NULL);
		break;
	case AcRx::kSaveMsg: // add by hh 2011-01-05 保存动态扩展数据到图纸
		// change by hh 图纸中已有动态数据时 不再保存，避免错误写入其他图纸设置到全局参数中的数据
		BOOL bTemp = FALSE; // 使用“显示遮挡”参数进行判断
		if(!TAuxTools::GetTHvacDataFromDwg(KEY_HIDEDRAW, bTemp))
			SetTHvacParamToDwg();
		break;
	}
	return AcRx::kRetOK;
}

//建立关系反应器
TDbMakeObjAssocReactor* g_pObjAssocReactor = NULL;

//关系维护反应器
TDbRelInterfaceReactor* g_pRelInterfaceReactor = NULL;

//全局datamap
TDbXDataMap  g_mapClass2Cmd;

//全局消息
TInterfaceModifyMsgContext g_iMsgContext;

AcDbMatchProperties* g_pMatchPro = NULL;

void PBTest();
void ReSlectOrig();
void InitApplication()
{
	//{{AFX_ARX_INIT
	acrxRegisterService(TCHPIPEBASE_DBXSERVICE);
	TDbInterfacesObj::rxInit();
	TDbPipeBase::rxInit();
	TDbPipeBase::InitMatchProtocol(TRUE);
	TDbFittingBase::rxInit();
	TDbPartBase::rxInit();
	TDbEquipmentBase::rxInit();
	TDbInterfaceRecord::rxInit();
	TDbFittingCreatorService::rxInit();

	TDbCableDim::rxInit();
	TDbECabletry::rxInit();
	TDbEFitting::rxInit();
	TDbEEquipment::rxInit();
	TDbEImpFittingCreatorService::rxInit();

	TDbHvacDuct::rxInit();
	TDbHvacFitting::rxInit();
	TDbHvacEquipment::rxInit();
	TDbHvacDimension::rxInit();
	TDbHvacDimensionEx::rxInit();
	TDbHImpFittingCreatorService::rxInit();
	TDbEquRelativeDim::rxInit();
	//}}AFX_ARX_INIT
	//3.安装扩展协议
	
	acrxBuildClassHierarchy();

	//1.安装反应器
	g_pObjAssocReactor = new TDbMakeObjAssocReactor;
	g_pRelInterfaceReactor = new TDbRelInterfaceReactor;
	acedEditor->addReactor(g_pRelInterfaceReactor);

	AcDbDatabase* pDb = NULL;
#if ADS > 20
	AcArray<AcDbDatabase*> pDbArray = acdbActiveDatabaseArray();
	int iLen = pDbArray.length();
	for (int i = 0; i < iLen; i++)
	{
		pDb = pDbArray.at(i);
		if (NULL != pDb)
		{
			pDb->addReactor(g_pObjAssocReactor);
		}
	}
#else
	AcDbVoidPtrArray* pDbArray = acdbActiveDatabaseArray();
	if (pDbArray != NULL)
	{
		for (int i = 0; i < pDbArray->length(); i++)
		{
			pDb = (AcDbDatabase*)pDbArray->at(i);
			if (pDb != NULL)
			{
				pDb->addReactor(g_pObjAssocReactor);
			}
		}
	}
#endif
	// modify by cq 2017-01-05 支持CAD2017
	//2.安置桥架专业创建器
	TDbEImpFittingCreatorService* pCurFittingCreator = new TDbEImpFittingCreatorService;
	acrxDynamicLinker->registerService(KEY_FITCAB, pCurFittingCreator);

	// 安装暖通专业创建器
	TDbHImpFittingCreatorService* pHvacFittingCreator = new TDbHImpFittingCreatorService;
	acrxDynamicLinker->registerService(KEY_FITHVAC, pHvacFittingCreator);
	// modify begin
	// SetSysPointEqual(1.e-3);
	// SetSysVectorEqual(1.e-6);
	g_globalTol.setEqualPoint(1.E-3);
	g_globalTol.setEqualVector(1.E-6);
	// modify end by cq 2017-10-31 暖通TFS30202、建筑TFS8208 在纯CAD中做过裁剪内部的块，用上华建筑打开，提示有图形错误。
	// 修改方法:把目前isEqualTo函数 改成.distanceTo() < 1E-3 ;equalPoint()替换成 1E-3
	
	//默认设置
	SetGlobalContext(KEY_HIDEDRAW,1);
	RegisterDbxApp();
	
	AddCommand(_T("PipeBase"),_T("PBTest"),_T("PBTest"),ACRX_CMD_MODAL| ACRX_CMD_USEPICKSET,PBTest);
	AddCommand(_T("PipeBase"),_T("ReSelOrig"),_T("ReSelOrig"),ACRX_CMD_USEPICKSET|ACRX_CMD_REDRAW,ReSlectOrig);
}

//add liaoy 170705 增加反应器的更新接口操作
void PipeBaseCommandEndedUser(const CString& sCmd)
{
	if (g_pRelInterfaceReactor)
	{
		g_pRelInterfaceReactor->commandEndedUser(sCmd);
	}
}
//add end

void PBTest()
{
	// add by hh 2011-08-09 接口记录从字典移动到数据库中
	TDbInterfaceRecord*	pIntfRec = TAuxTools::GetIntfPtrFromDB();
	if(NULL != pIntfRec)
	{
		if(Acad::eOk == pIntfRec->upgradeOpen())
		{
			TInterface itf;
			AcGePoint3d pt(22804.81,10126.16,3338.72);
			AcGeVector3d vtDir(1,0,0);
			BOOL bFind = pIntfRec->Find(pt,vtDir,itf);
			pIntfRec->downgradeOpen();
		}
		pIntfRec->close();
		return;
	}
	// add end

	AcDbDictionary* pNamedDict = NULL;
	if (Acad::eOk == acdbCurDwg()->getNamedObjectsDictionary(pNamedDict,AcDb::kForRead))
	{
		AcDbDictionary* pDict = NULL;
		if (Acad::eOk == pNamedDict->getAt(KEY_IRECORD,(AcDbObject*&)pDict,AcDb::kForRead))
		{
			TDbInterfaceRecord*	pInterfaceRec = NULL;
			if (Acad::eOk == pDict->getAt(KEY_IRECORD,(AcDbObject*&)pInterfaceRec,AcDb::kForWrite))
			{
				TInterface itf;
				AcGePoint3d pt(22804.81,10126.16,3338.72);
				AcGeVector3d vtDir(1,0,0);
				BOOL bFind = pInterfaceRec->Find(pt,vtDir,itf);

				pInterfaceRec->close();
			}
			pDict->close();
		}
		pNamedDict->close();
	}
}

// mcl add 2011.2.12.重新选择用户最后选择的实体，解决选取实体时，按“P”，上次选择失效问题。
// 因为更新遮挡会创建新选择集，从而破坏上次选择集
void ReSlectOrig()
{
	if (!g_csLastCmd.IsEmpty() && g_ssLastSel.Length() > 0)
	{
		ads_command(RTSTR, _T("select"), RTPICKS, (TLong_ptr*)g_ssLastSel, RTNONE);	
		acedPostCommand(_T(" "));
	
		PostCommand(g_csLastCmd + _T("\n"));	// 弥补由于运行本函数（命令)而中断用户上次命令问题
		PostCommand(_T("\33"));
	
		g_csLastCmd.Empty();
		g_ssLastSel.Free();
	}
}

void UnloadApplication()
{
	//{{AFX_ARX_EXIT
	deleteAcRxClass(TDbHvacDuct::desc());
	deleteAcRxClass(TDbHvacFitting::desc());
	deleteAcRxClass(TDbHvacEquipment::desc());
	deleteAcRxClass(TDbHvacDimension::desc());
	deleteAcRxClass(TDbHvacDimensionEx::desc());
	deleteAcRxClass(TDbHImpFittingCreatorService::desc());

	deleteAcRxClass(TDbCableDim::desc());
	deleteAcRxClass(TDbECabletry::desc());
	deleteAcRxClass(TDbEFitting::desc());
	deleteAcRxClass(TDbEEquipment::desc());
	deleteAcRxClass(TDbEImpFittingCreatorService::desc());

	deleteAcRxClass(TDbPartBase::desc());
	deleteAcRxClass(TDbPipeBase::desc());
	TDbPipeBase::InitMatchProtocol(FALSE);
	deleteAcRxClass(TDbFittingBase::desc());
	deleteAcRxClass(TDbEquipmentBase::desc());
	deleteAcRxClass(TDbInterfacesObj::desc());
	deleteAcRxClass(TDbInterfaceRecord::desc());
	deleteAcRxClass(TDbFittingCreatorService::desc());
	//}}AFX_ARX_EXIT
	delete acrxServiceDictionary->remove(TCHPIPEBASE_DBXSERVICE);

	//1.删除桥架专业创建器
	delete acrxServiceDictionary->remove(KEY_FITCAB);

	// 删除暖通专业创建器
	delete acrxServiceDictionary->remove(KEY_FITHVAC);

	//2.卸载掉所有数据库中的反应器
	AcDbDatabase* pDb = NULL;
#if ADS > 20
	AcArray<AcDbDatabase*> pDbArray = acdbActiveDatabaseArray();
	int iLen = pDbArray.length();
	for (int i = 0; i < iLen; ++i)
	{
		pDb = pDbArray.at(i);
		if (pDb != NULL)
		{
			pDb->removeReactor(g_pObjAssocReactor);
		}
	}
#else
	AcDbVoidPtrArray* pDbArray = acdbActiveDatabaseArray();
	if (pDbArray != NULL)
	{
		for (int i = 0; i < pDbArray->length(); i++)
		{
			pDb = (AcDbDatabase*)pDbArray->at(i);
			if (pDb != NULL)
			{
				pDb->removeReactor(g_pObjAssocReactor);
			}
		}
	}
#endif
	// modify by cq 2017-01-05 支持CAD2017
	if (g_pObjAssocReactor != NULL) 
	{
		delete g_pObjAssocReactor;
		g_pObjAssocReactor = NULL;
	}

	acedEditor->removeReactor(g_pRelInterfaceReactor);
	if (g_pRelInterfaceReactor != NULL)
	{
		delete g_pRelInterfaceReactor;
		g_pRelInterfaceReactor = NULL;
	}
	acedRegCmds->removeGroup(_T("PipeBase"));
}

void OnDwgLoaded()
{
	// change by hh 2011-01-04 读取暖通专业动态扩展数据
	//if (g_nProductId != 6) // 暖通环境由 thvacCmd.arx中onDwgLoad()中处理
	//	SetDuctThickByDwg();
	GetTHvacParamFromDwg();
}

void AddCommand(LPCTSTR cmdGroup, LPCTSTR cmdInt, LPCTSTR cmdLoc,
				const int cmdFlags, const AcRxFunctionPtr cmdProc, const int idLocal)
{
	TCHAR cmdLocRes[65];
	if (idLocal != -1)
	{
		::LoadString(_hdllInstance, idLocal, cmdLocRes, 64);
		acedRegCmds->addCommand(cmdGroup, cmdInt, cmdLocRes, cmdFlags, cmdProc);
	} 
	else
	{
		acedRegCmds->addCommand(cmdGroup, cmdInt, cmdLoc, cmdFlags, cmdProc);
	}
}

DLLIMPEXP void MakeSureDbHasAssocReactor(AcDbDatabase* pDb,TToolKitBase* pToolKit = NULL)
{
	AcDbDictionary* pNamedDict = NULL;
// 	//add by sps 2013.1.15 是否显示遮挡延伸
// 	CRegProperty regProp(GetRegLocation(), _T("TCableTray"));    
// 	regProp.SetTopRootKey(HKEY_CURRENT_USER);
// 	BOOL bShow = FALSE;
// 	if (!regProp.GetValue(KEY_SHOW_EXTEND, bShow))
// 		bShow = FALSE;
// 	SetLayerOnOff(LAY_CABLETRAY_HIDE, bShow);
	
	if (Acad::eOk == pDb->getNamedObjectsDictionary(pNamedDict,AcDb::kForWrite))
	{
		AcDbDictionary* pDict = NULL;
		if (Acad::eKeyNotFound == pNamedDict->getAt(KEY_IRECORD,(AcDbObject*&)pDict,AcDb::kForWrite))
		{
			AcDbObjectId idDict;
			pDict = new AcDbDictionary;
			pNamedDict->setAt(KEY_IRECORD,pDict,idDict);
		}
		pNamedDict->close();

		if (!pDict->has(KEY_IRECORD))
		{
			TDbInterfaceRecord*	pInterfaceRec = new TDbInterfaceRecord;
			g_pRelInterfaceReactor->m_mapDbToIRecPtr.SetAt(pDb,pInterfaceRec);

			pInterfaceRec = new TDbInterfaceRecord;
			AcDbObjectId idT;
			pDict->setAt(KEY_IRECORD,pInterfaceRec,idT);
			pInterfaceRec->close();
		}
		pDict->close();
	}

	pDb->removeReactor(g_pObjAssocReactor);
	pDb->addReactor(g_pObjAssocReactor);

	if (g_pRelInterfaceReactor != NULL)
	{
		g_pRelInterfaceReactor->m_pToolKit = pToolKit;
		g_pRelInterfaceReactor->AddToolKit(pToolKit);
	}
}

void PickInterfaceModifyMsgs(TInterfaceModifyMsgs& msgs,AcDbDatabase* pDb)
{
	if (pDb == NULL) pDb = acdbCurDwg();
	CPtrArray* pArray = NULL;
	if (g_iMsgContext.m_mapDb2TIMsgs.Lookup(pDb,(void*&)pArray))
	{
		TDbInterfaceMsgObj* pmsgObj = NULL;
		TInterfaceModifyMsg msg;

		for (int i = 0;i < pArray->GetSize();i++)
		{
			pmsgObj = (TDbInterfaceMsgObj* )pArray->GetAt(i);
			if (pmsgObj != NULL)
			{
				pArray->SetAt(i,NULL);
				pmsgObj->GetModifyMsg(msg);
				msgs.append(msg);
				delete pmsgObj;
			}
		}
		pArray->RemoveAll();
	}	
}

//设置全局参数
void SetGlobalContext(LPCTSTR pszKey,LPCTSTR pszCmd)
{
	if (pszKey != NULL && pszCmd != NULL)
	{
		g_mapClass2Cmd.SetAt(pszKey,pszCmd);
	}
}

//设置全局参数
void SetGlobalContext(LPCTSTR pszKey,int nVal)
{
	if (pszKey != NULL)
	{
		g_mapClass2Cmd.SetAt(pszKey,nVal);
	}
}

BOOL GetGlobalContext(LPCTSTR pszKey,int& nVal)
{
	if (pszKey != NULL)
	{
		return g_mapClass2Cmd.GetAt(pszKey,nVal);
	}
	return FALSE;
}

BOOL GetGlobalContext(LPCTSTR pszKey,CString& sCmd)
{
	if (pszKey != NULL)
	{
		return g_mapClass2Cmd.GetAt(pszKey,sCmd);
	}
	return FALSE;
}

TDbXDataMap* GetGlobalContext()
{
	return &g_mapClass2Cmd;
}

double _ttof(LPCTSTR pszString)
{
    bool bSign = false;
    bool bPowerSign = false;
    bool bExponent = true;
    bool bMantissa = false;
	
    int nPower = 0;
    double dExponent = 0.0;
    double dMantissa = 0.0;
    double dScale = 1.0;
    TCHAR* pIn = (TCHAR*)pszString;
	
    if (*pIn == _T('-'))
    {
        *pIn++;
        bSign = true;
    }
	
    while (*pIn != 0)
    {
		// capture digits
        if ((*pIn >= _T('0')) && (*pIn <= _T('9')))
        {
            if (bExponent)
            {
                dExponent *= 10.0;
                dExponent += (*pIn - _T('0'));
            }
         else if (bMantissa)
            {
                dMantissa *= 10.0;
                dMantissa += (*pIn - _T('0'));
				
                dScale *= 10.0;
            }
            else
            {
                nPower *= 10;
                nPower += (*pIn - _T('0'));
            }
        }
        else if ((*pIn == _T('e')) || (*pIn == _T('E')))// power
        {
			// sign
            if (*(++pIn) == _T('-'))
            {
                bPowerSign = true;
            }
			
            bMantissa = false;
        }
        else
        {
			// the first character that hasn't been accounted for already,
			// is assumed to be the separator
			// cross over
            if (bExponent)
            {
                bExponent = false;
                bMantissa = true;
            }
			// white space (including null) or bad char
			// we're done either way
            else
            {
                break;
            }
        }
		
        pIn++;
    }
	
	double dVal = dExponent + (dMantissa / dScale);
	if (nPower > 0)
	{
		for (; nPower > 0; nPower--)
		{
			if (bPowerSign)
			{
				dVal /= 10.0;
			}
			else
			{
				dVal *= 10.0;
			}
		}
	}
	if (bSign)
	{
		dVal *= -1.0;
	}
	return dVal;
}

void RegisterDbxApp()
{
	int strLength;
	HMODULE hModule = GetModuleHandle(_T("shs_PipeBase.arx"));

	if (!hModule)
		return;

	//
	// Register the application.
	//
	TCHAR ThisAppRegistryPath[] = { _T("Software\\Autodesk\\ObjectARX\\3.0\\SampleApps\\TDbECabletry\\") };

	const TCHAR* dbxRegRoot = acrxObjectDBXRegistryKey();
	TCHAR DbxAppRegistryPath[256];
	_tcscpy(DbxAppRegistryPath, dbxRegRoot);
	_tcscat(DbxAppRegistryPath, _T("\\Applications\\"));
	_tcscat(DbxAppRegistryPath, _T("shs_PipeBase"));
	//
	// Create the registry key under the DBX path
	// (use the variable DbxRegistryPath).
	//

	HKEY dbxKey;
	DWORD result;
	LONG status = RegCreateKeyEx(HKEY_LOCAL_MACHINE,
	                             DbxAppRegistryPath,
	                             0, _T(""),
	                             REG_OPTION_NON_VOLATILE,
	                             KEY_WRITE, NULL, &dbxKey, &result);
	if (ERROR_SUCCESS != status)
		return;

	// Create the 'LOADCTRLS' value.
	int loadReason = AcadApp::kOnProxyDetection |
	                 AcadApp::kOnLoadRequest |
	                 AcadApp::kTransparentlyLoadable;
	status = RegSetValueEx(dbxKey, _T("LOADCTRLS"), 0, REG_DWORD,
	              (const BYTE*) &loadReason,
	              sizeof(loadReason));
	if (ERROR_SUCCESS != status)
		return;

	// Create the 'REGPATH' value.
	TCHAR regPath[256];
	_tcscpy(regPath, _T("\\\\HKEY_LOCAL_MACHINE\\"));
	_tcscat(regPath, ThisAppRegistryPath);
	_tcscat(regPath, _T("shs_PipeBase"));
	status = RegSetValueEx(dbxKey, _T("REGPATH"), 0, REG_SZ,
	              (const BYTE*) regPath, (DWORD)(_tcslen(regPath) + 1));

	status = RegCloseKey(dbxKey);
	if (ERROR_SUCCESS != status)
		return;

	//
	// Create the registry key for this application
	// (use the variable ThisAppRegistryPath).
	//

	HKEY appKey;
	status = RegCreateKeyEx(HKEY_LOCAL_MACHINE,
	                             ThisAppRegistryPath,
	                             0, _T(""),
	                             REG_OPTION_NON_VOLATILE,
	                             KEY_WRITE, NULL, &appKey, &result);
	if (ERROR_SUCCESS != status)
		return;

	HKEY prodKey;
	status = RegCreateKeyEx(appKey, _T("shs_PipeBase"), 0, _T(""),
	                        REG_OPTION_NON_VOLATILE,
	                        KEY_WRITE, NULL, &prodKey, &result);
	RegCloseKey(appKey);
	if (ERROR_SUCCESS != status)
		return;

	// Create the 'Loader' key.
	HKEY loaderKey;
	status = RegCreateKeyEx(prodKey, _T("Loader"), 0, _T(""),
	                        REG_OPTION_NON_VOLATILE,
	                        KEY_WRITE, NULL, &loaderKey, &result);
	if (ERROR_SUCCESS == status) {
		TCHAR modulePath[512];
		strLength = GetModuleFileName(hModule, modulePath, 512);
		if (strLength)
			RegSetValueEx(loaderKey, _T("MODULE"), 0, REG_SZ,
			              (const BYTE*)modulePath, strLength + 1);
		RegCloseKey(loaderKey);
	}

	// Create the 'Name' key.
	HKEY nameKey;
	status = RegCreateKeyEx(prodKey, _T("Name"), 0, _T(""),
	                        REG_OPTION_NON_VOLATILE,
	                        KEY_WRITE, NULL, &nameKey, &result);
	if (ERROR_SUCCESS == status) {
		RegSetValueEx(nameKey, _T("shs_PipeBase"), 0, REG_SZ,
		              (const BYTE*) _T("shs_PipeBase"), 13);
		RegCloseKey(nameKey);
	}
	RegCloseKey(prodKey);
}