Sweden-Number/dlls/shdocvw/shdocvw_main.c

271 lines
7.3 KiB
C

/*
* SHDOCVW - Internet Explorer Web Control
*
* Copyright 2001 John R. Sheets (for CodeWeavers)
* Copyright 2004 Mike McCormack (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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include "config.h"
#include <stdarg.h>
#include <stdio.h>
#include "wine/unicode.h"
#include "wine/debug.h"
#include "shdocvw.h"
#include "winreg.h"
#include "shlwapi.h"
#include "initguid.h"
WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
LONG SHDOCVW_refCount = 0;
HINSTANCE shdocvw_hinstance = 0;
static HMODULE SHDOCVW_hshell32 = 0;
static ITypeInfo *wb_typeinfo = NULL;
HRESULT get_typeinfo(ITypeInfo **typeinfo)
{
ITypeLib *typelib;
HRESULT hres;
if(wb_typeinfo) {
*typeinfo = wb_typeinfo;
return S_OK;
}
hres = LoadRegTypeLib(&LIBID_SHDocVw, 1, 1, LOCALE_SYSTEM_DEFAULT, &typelib);
if(FAILED(hres)) {
ERR("LoadRegTypeLib failed: %08x\n", hres);
return hres;
}
hres = ITypeLib_GetTypeInfoOfGuid(typelib, &IID_IWebBrowser2, &wb_typeinfo);
ITypeLib_Release(typelib);
*typeinfo = wb_typeinfo;
return hres;
}
/*************************************************************************
* SHDOCVW DllMain
*/
BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID fImpLoad)
{
TRACE("%p 0x%x %p\n", hinst, fdwReason, fImpLoad);
switch (fdwReason)
{
case DLL_PROCESS_ATTACH:
shdocvw_hinstance = hinst;
register_iewindow_class();
break;
case DLL_PROCESS_DETACH:
if (SHDOCVW_hshell32) FreeLibrary(SHDOCVW_hshell32);
unregister_iewindow_class();
if(wb_typeinfo)
ITypeInfo_Release(wb_typeinfo);
break;
}
return TRUE;
}
/*************************************************************************
* DllCanUnloadNow (SHDOCVW.@)
*/
HRESULT WINAPI DllCanUnloadNow(void)
{
return SHDOCVW_refCount ? S_FALSE : S_OK;
}
/***********************************************************************
* DllGetVersion (SHDOCVW.@)
*/
HRESULT WINAPI DllGetVersion(DLLVERSIONINFO *info)
{
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;
}
/*************************************************************************
* DllInstall (SHDOCVW.@)
*/
HRESULT WINAPI DllInstall(BOOL bInstall, LPCWSTR cmdline)
{
FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));
return S_OK;
}
/*************************************************************************
* SHDOCVW_LoadShell32
*
* makes sure the handle to shell32 is valid
*/
static BOOL SHDOCVW_LoadShell32(void)
{
if (SHDOCVW_hshell32)
return TRUE;
return ((SHDOCVW_hshell32 = LoadLibraryA("shell32.dll")) != NULL);
}
/***********************************************************************
* @ (SHDOCVW.110)
*
* Called by Win98 explorer.exe main binary, definitely has 0
* parameters.
*/
DWORD WINAPI WinList_Init(void)
{
FIXME("(), stub!\n");
return 0x0deadfeed;
}
/***********************************************************************
* @ (SHDOCVW.118)
*
* Called by Win98 explorer.exe main binary, definitely has only one
* parameter.
*/
static BOOL (WINAPI *pShellDDEInit)(BOOL start) = NULL;
BOOL WINAPI ShellDDEInit(BOOL start)
{
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;
}
/***********************************************************************
* @ (SHDOCVW.125)
*
* Called by Win98 explorer.exe main binary, definitely has 0
* parameters.
*/
DWORD WINAPI RunInstallUninstallStubs(void)
{
FIXME("(), stub!\n");
return 0x0deadbee;
}
/***********************************************************************
* SetQueryNetSessionCount (SHDOCVW.@)
*/
DWORD WINAPI SetQueryNetSessionCount(DWORD arg)
{
FIXME("(%u), stub!\n", arg);
return 0;
}
/**********************************************************************
* OpenURL (SHDOCVW.@)
*/
void WINAPI OpenURL(HWND hWnd, HINSTANCE hInst, LPCSTR lpcstrUrl, int nShowCmd)
{
FIXME("%p %p %s %d\n", hWnd, hInst, debugstr_a(lpcstrUrl), nShowCmd);
}
/**********************************************************************
* Some forwards (by ordinal) to SHLWAPI
*/
static void* fetch_shlwapi_ordinal(unsigned ord)
{
static const WCHAR shlwapiW[] = {'s','h','l','w','a','p','i','.','d','l','l','\0'};
static HANDLE h;
if (!h && !(h = GetModuleHandleW(shlwapiW))) return NULL;
return (void*)GetProcAddress(h, (const char*)ord);
}
/******************************************************************
* WhichPlatformFORWARD (SHDOCVW.@)
*/
DWORD WINAPI WhichPlatformFORWARD(void)
{
static DWORD (*WINAPI p)(void);
if (p || (p = fetch_shlwapi_ordinal(276))) return p();
return 1; /* not integrated, see shlwapi.WhichPlatform */
}
/******************************************************************
* StopWatchModeFORWARD (SHDOCVW.@)
*/
void WINAPI StopWatchModeFORWARD(void)
{
static void (*WINAPI p)(void);
if (p || (p = fetch_shlwapi_ordinal(241))) p();
}
/******************************************************************
* StopWatchFlushFORWARD (SHDOCVW.@)
*/
void WINAPI StopWatchFlushFORWARD(void)
{
static void (*WINAPI p)(void);
if (p || (p = fetch_shlwapi_ordinal(242))) p();
}
/******************************************************************
* StopWatchWFORWARD (SHDOCVW.@)
*/
DWORD WINAPI StopWatchWFORWARD(DWORD dwClass, LPCWSTR lpszStr, DWORD dwUnknown,
DWORD dwMode, DWORD dwTimeStamp)
{
static DWORD (*WINAPI p)(DWORD, LPCWSTR, DWORD, DWORD, DWORD);
if (p || (p = fetch_shlwapi_ordinal(243)))
return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
return ERROR_CALL_NOT_IMPLEMENTED;
}
/******************************************************************
* StopWatchAFORWARD (SHDOCVW.@)
*/
DWORD WINAPI StopWatchAFORWARD(DWORD dwClass, LPCSTR lpszStr, DWORD dwUnknown,
DWORD dwMode, DWORD dwTimeStamp)
{
static DWORD (*WINAPI p)(DWORD, LPCSTR, DWORD, DWORD, DWORD);
if (p || (p = fetch_shlwapi_ordinal(244)))
return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
return ERROR_CALL_NOT_IMPLEMENTED;
}