You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
142 lines
4.0 KiB
142 lines
4.0 KiB
//+-------------------------------------------------------------------------
|
|
//
|
|
// Microsoft Windows
|
|
//
|
|
// Copyright (C) Microsoft Corporation, 1999 - 1999
|
|
//
|
|
// File: mmcshext.cpp
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
// mmcshext.cpp : Implementation of DLL Exports.
|
|
|
|
|
|
// Note: Proxy/Stub Information
|
|
// To build a separate proxy/stub DLL,
|
|
// run nmake -f mmcshextps.mk in the project directory.
|
|
|
|
#include "stdafx.h"
|
|
#include "resource.h"
|
|
#include <initguid.h>
|
|
#include <shlobj.h>
|
|
#include <shlguid.h>
|
|
#include "Extract.h"
|
|
#include "hhcwrap.h"
|
|
#include "picon.h"
|
|
#include "modulepath.h"
|
|
|
|
#include <atlimpl.cpp>
|
|
|
|
CComModule _Module;
|
|
|
|
static void RemovePathFromInProcServerEntry (REFCLSID rclsid);
|
|
|
|
BEGIN_OBJECT_MAP(ObjectMap)
|
|
OBJECT_ENTRY(CLSID_ExtractIcon, CExtractIcon)
|
|
OBJECT_ENTRY(CLSID_HHCollectionWrapper, CHHCollectionWrapper)
|
|
END_OBJECT_MAP()
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// DLL Entry Point
|
|
|
|
extern "C"
|
|
BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID /*lpReserved*/)
|
|
{
|
|
if (dwReason == DLL_PROCESS_ATTACH)
|
|
{
|
|
_Module.Init(ObjectMap, hInstance);
|
|
DisableThreadLibraryCalls(hInstance);
|
|
}
|
|
else if (dwReason == DLL_PROCESS_DETACH)
|
|
_Module.Term();
|
|
return TRUE; // ok
|
|
}
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// Used to determine whether the DLL can be unloaded by OLE
|
|
|
|
STDAPI DllCanUnloadNow(void)
|
|
{
|
|
return (_Module.GetLockCount()==0) ? S_OK : S_FALSE;
|
|
}
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// Returns a class factory to create an object of the requested type
|
|
|
|
STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
|
|
{
|
|
return _Module.GetClassObject(rclsid, riid, ppv);
|
|
}
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// DllRegisterServer - Adds entries to the system registry
|
|
|
|
STDAPI DllRegisterServer(void)
|
|
{
|
|
// registers object, typelib and all interfaces in typelib
|
|
HRESULT hr = _Module.RegisterServer(FALSE);
|
|
|
|
if (hr == S_OK)
|
|
{
|
|
// remove full module path that ATL adds by default
|
|
RemovePathFromInProcServerEntry(CLSID_ExtractIcon);
|
|
RemovePathFromInProcServerEntry(CLSID_HHCollectionWrapper);
|
|
}
|
|
|
|
return hr;
|
|
}
|
|
|
|
/////////////////////////////////////////////////////////////////////////////
|
|
// DllUnregisterServer - Removes entries from the system registry
|
|
|
|
STDAPI DllUnregisterServer(void)
|
|
{
|
|
return _Module.UnregisterServer();
|
|
}
|
|
|
|
|
|
static void RemovePathFromInProcServerEntry (REFCLSID rclsid)
|
|
{
|
|
// Convert the CLSID to a string
|
|
USES_CONVERSION;
|
|
LPOLESTR lpOleStr;
|
|
HRESULT hr = StringFromCLSID (rclsid, &lpOleStr);
|
|
if (FAILED(hr))
|
|
return;
|
|
|
|
if (lpOleStr != NULL)
|
|
{
|
|
// Re-register the InProcServer key without the path
|
|
TCHAR szSubKey[MAX_PATH];
|
|
|
|
_tcscpy (szSubKey, _T("CLSID\\"));
|
|
_tcscat (szSubKey, OLE2T(lpOleStr));
|
|
_tcscat (szSubKey, _T("\\InprocServer32"));
|
|
|
|
CoTaskMemFree(lpOleStr);
|
|
|
|
::ATL::CRegKey regkey;
|
|
long lRes = regkey.Open(HKEY_CLASSES_ROOT, szSubKey);
|
|
ASSERT(lRes == ERROR_SUCCESS);
|
|
|
|
if (lRes == ERROR_SUCCESS)
|
|
{
|
|
CStr strPath = _T("mmcshext.dll");
|
|
|
|
// try to get absolute path value
|
|
CStr strAbsolute = CModulePath::MakeAbsoluteModulePath( strPath );
|
|
if ( strAbsolute.GetLength() > 0 )
|
|
strPath = strAbsolute;
|
|
|
|
// see what type of value we need to put
|
|
DWORD dwValueType = CModulePath::PlatformSupports_REG_EXPAND_SZ_Values() ?
|
|
REG_EXPAND_SZ : REG_SZ;
|
|
|
|
lRes = RegSetValueEx( regkey, NULL, 0, dwValueType,
|
|
(CONST BYTE *)((LPCTSTR)strPath),
|
|
(strPath.GetLength() + 1) * sizeof(TCHAR) );
|
|
|
|
ASSERT(lRes == ERROR_SUCCESS);
|
|
}
|
|
}
|
|
}
|