shdocvw_main.c 7.53 KB
Newer Older
1
/*
2
 * SHDOCVW - Internet Explorer Web Control
3
 *
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
 * Copyright 2001 John R. Sheets (for CodeWeavers)
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19 20
 */

21 22
#include "config.h"

23
#define COM_NO_WINDOWS_H
24
#include <stdarg.h>
25
#include <stdio.h>
26
#include <string.h>
27 28
#include "windef.h"
#include "winbase.h"
29
#include "winreg.h"
30
#include "winuser.h"
31
#include "winnls.h"
32 33 34 35
#include "ole2.h"
#include "shlwapi.h"

#include "shdocvw.h"
36 37 38
#include "uuids.h"

#include "wine/unicode.h"
39
#include "wine/debug.h"
40

41 42
#include "initguid.h"

43
WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
44

45 46
#define MOZILLA_ACTIVEX_MESSAGE "You need to install the Mozilla ActiveX control to\n" \
                                "use Wine's builtin CLSID_WebBrowser from SHDOCVW.DLL"
47 48 49 50 51

DEFINE_GUID( CLSID_MozillaBrowser, 0x1339B54C,0x3453,0x11D2,0x93,0xB9,0x00,0x00,0x00,0x00,0x00,0x00);

typedef HRESULT (WINAPI *fnGetClassObject)(REFCLSID rclsid, REFIID iid, LPVOID *ppv);

52
HINSTANCE shdocvw_hinstance = 0;
53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
static HMODULE SHDOCVW_hshell32 = 0;
static HMODULE hMozCtl = (HMODULE)~0UL;


/* convert a guid to a wide character string */
static void SHDOCVW_guid2wstr( const GUID *guid, LPWSTR wstr )
{
    char str[40];

    sprintf(str, "{%08lX-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
           guid->Data1, guid->Data2, guid->Data3,
           guid->Data4[0], guid->Data4[1], guid->Data4[2], guid->Data4[3],
           guid->Data4[4], guid->Data4[5], guid->Data4[6], guid->Data4[7] );
    MultiByteToWideChar( CP_ACP, 0, str, -1, wstr, 40 );
}

static BOOL SHDOCVW_GetMozctlPath( LPWSTR szPath, DWORD sz )
{
    DWORD r, type;
    BOOL ret = FALSE;
    HKEY hkey;
74
    static const WCHAR szPre[] = {
75 76 77
        'S','o','f','t','w','a','r','e','\\',
        'C','l','a','s','s','e','s','\\',
        'C','L','S','I','D','\\',0 };
78
    static const WCHAR szPost[] = {
79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97
        '\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0 };
    WCHAR szRegPath[(sizeof(szPre)+sizeof(szPost))/sizeof(WCHAR)+40];

    strcpyW( szRegPath, szPre );
    SHDOCVW_guid2wstr( &CLSID_MozillaBrowser, &szRegPath[strlenW(szRegPath)] );
    strcatW( szRegPath, szPost );

    TRACE("key = %s\n", debugstr_w( szRegPath ) );

    r = RegOpenKeyW( HKEY_LOCAL_MACHINE, szRegPath, &hkey );
    if( r != ERROR_SUCCESS )
        return FALSE;

    r = RegQueryValueExW( hkey, NULL, NULL, &type, (LPBYTE)szPath, &sz );
    ret = ( r == ERROR_SUCCESS ) && ( type == REG_SZ );
    RegCloseKey( hkey );

    return ret;
}
98 99 100 101 102 103 104 105 106 107 108 109 110 111

/*************************************************************************
 * SHDOCVW DllMain
 */
BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID fImpLoad)
{
	TRACE("%p 0x%lx %p\n", hinst, fdwReason, fImpLoad);
	switch (fdwReason)
	{
	  case DLL_PROCESS_ATTACH:
	    shdocvw_hinstance = hinst;
	    break;
	  case DLL_PROCESS_DETACH:
	    if (SHDOCVW_hshell32) FreeLibrary(SHDOCVW_hshell32);
112
	    if (hMozCtl && hMozCtl != (HMODULE)~0UL) FreeLibrary(hMozCtl);
113 114 115 116 117 118
	    break;
	}
	return TRUE;
}

/*************************************************************************
119 120
 *              DllCanUnloadNow (SHDOCVW.@)
 */
121 122 123 124 125 126 127
HRESULT WINAPI SHDOCVW_DllCanUnloadNow(void)
{
    FIXME("(void): stub\n");

    return S_FALSE;
}

128 129 130 131 132 133 134 135 136 137

static BOOL SHDOCVW_TryLoadMozillaControl()
{
    WCHAR szPath[MAX_PATH];

    if( hMozCtl != (HMODULE)~0UL )
        return hMozCtl ? TRUE : FALSE;

    if( !SHDOCVW_GetMozctlPath( szPath, sizeof szPath ) )
    {
138 139 140
        MESSAGE(MOZILLA_ACTIVEX_MESSAGE "\n");
        MessageBoxA(NULL, MOZILLA_ACTIVEX_MESSAGE, "Wine", MB_OK | MB_ICONEXCLAMATION);
        hMozCtl = 0;
141 142 143 144 145 146 147 148 149 150 151
        return FALSE;
    }
    hMozCtl = LoadLibraryExW(szPath, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);
    if( !hMozCtl )
    {
        ERR("Can't load the Mozilla ActiveX control\n");
        return FALSE;
    }
    return TRUE;
}

152
/*************************************************************************
153
 *              DllGetClassObject (SHDOCVW.@)
154 155 156 157 158
 */
HRESULT WINAPI SHDOCVW_DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
{
    TRACE("\n");

159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178
    if( IsEqualGUID( &CLSID_WebBrowser, rclsid ) &&
        SHDOCVW_TryLoadMozillaControl() )
    {
        HRESULT r;
        fnGetClassObject pGetClassObject;

        TRACE("WebBrowser class %s\n", debugstr_guid(rclsid) );

        pGetClassObject = (fnGetClassObject)
            GetProcAddress( hMozCtl, "DllGetClassObject" );

        if( !pGetClassObject )
            return CLASS_E_CLASSNOTAVAILABLE;
        r = pGetClassObject( &CLSID_MozillaBrowser, riid, ppv );

        TRACE("r = %08lx  *ppv = %p\n", r, *ppv );

        return r;
    }

179 180 181 182 183 184 185 186 187 188 189 190 191
    if (IsEqualGUID(&IID_IClassFactory, riid))
    {
        /* Pass back our shdocvw class factory */
        *ppv = (LPVOID)&SHDOCVW_ClassFactory;
        IClassFactory_AddRef((IClassFactory*)&SHDOCVW_ClassFactory);

        return S_OK;
    }

    return CLASS_E_CLASSNOTAVAILABLE;
}

/***********************************************************************
192
 *              DllGetVersion (SHDOCVW.@)
193
 */
194
HRESULT WINAPI SHDOCVW_DllGetVersion (DLLVERSIONINFO *info)
195
{
196 197 198 199 200 201 202 203 204
    if (info->cbSize != sizeof(DLLVERSIONINFO)) FIXME("support DLLVERSIONINFO2\n");

    /* this is what IE6 on Windows 98 reports */
    info->dwMajorVersion = 6;
    info->dwMinorVersion = 0;
    info->dwBuildNumber = 2600;
    info->dwPlatformID = DLLVER_PLATFORM_WINDOWS;

    return NOERROR;
205 206 207
}

/*************************************************************************
208
 *              DllInstall (SHDOCVW.@)
209 210 211
 */
HRESULT WINAPI SHDOCVW_DllInstall(BOOL bInstall, LPCWSTR cmdline)
{
212
   FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));
213

214
   return S_OK;
215 216
}

217 218 219 220 221 222 223 224 225 226 227 228
/*************************************************************************
 * SHDOCVW_LoadShell32
 *
 * makes sure the handle to shell32 is valid
 */
 BOOL SHDOCVW_LoadShell32(void)
{
     if (SHDOCVW_hshell32)
       return TRUE;
     return ((SHDOCVW_hshell32 = LoadLibraryA("shell32.dll")) != NULL);
}

229
/***********************************************************************
230
 *		@ (SHDOCVW.110)
231 232 233 234
 *
 * Called by Win98 explorer.exe main binary, definitely has 0
 * parameters.
 */
235
DWORD WINAPI WinList_Init(void)
236 237 238 239 240 241
{
    FIXME("(), stub!\n");
    return 0x0deadfeed;
}

/***********************************************************************
242
 *		@ (SHDOCVW.118)
243 244 245 246
 *
 * Called by Win98 explorer.exe main binary, definitely has only one
 * parameter.
 */
247 248 249
static BOOL (WINAPI *pShellDDEInit)(BOOL start) = NULL;

BOOL WINAPI ShellDDEInit(BOOL start)
250
{
251 252 253 254 255 256 257 258 259 260 261 262 263
    TRACE("(%d)\n", start);

    if (!pShellDDEInit)
    {
      if (!SHDOCVW_LoadShell32())
        return FALSE;
      pShellDDEInit = GetProcAddress(SHDOCVW_hshell32, (LPCSTR)188);
    }

    if (pShellDDEInit)
      return pShellDDEInit(start);
    else
      return FALSE;
264 265 266
}

/***********************************************************************
267
 *		@ (SHDOCVW.125)
268 269 270 271
 *
 * Called by Win98 explorer.exe main binary, definitely has 0
 * parameters.
 */
272
DWORD WINAPI RunInstallUninstallStubs(void)
273 274 275 276
{
    FIXME("(), stub!\n");
    return 0x0deadbee;
}