-/*\r
- * SHDOCVW - Internet Explorer Web Control\r
- *\r
- * Copyright 2001 John R. Sheets (for CodeWeavers)\r
- * Copyright 2004 Mike McCormack (for CodeWeavers)\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- */\r
-\r
-#include "config.h"\r
-\r
-#include <stdarg.h>\r
-#include <stdio.h>\r
-#include <string.h>\r
-\r
-#define COBJMACROS\r
-#define COM_NO_WINDOWS_H\r
-\r
-#include "windef.h"\r
-#include "winbase.h"\r
-#include "winreg.h"\r
-#include "winuser.h"\r
-#include "winnls.h"\r
-#include "ole2.h"\r
-#include "shlwapi.h"\r
-\r
-#include "shdocvw.h"\r
-#include "uuids.h"\r
-#include "urlmon.h"\r
-\r
-#include "wine/unicode.h"\r
-#include "wine/debug.h"\r
-\r
-#include "initguid.h"\r
-\r
-WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);\r
-\r
-LONG SHDOCVW_refCount = 0;\r
-\r
-static const WCHAR szMozDlPath[] = {\r
- 'S','o','f','t','w','a','r','e','\\','W','i','n','e','\\',\r
- 's','h','d','o','c','v','w',0\r
-};\r
-\r
-DEFINE_GUID( CLSID_MozillaBrowser, 0x1339B54C,0x3453,0x11D2,0x93,0xB9,0x00,0x00,0x00,0x00,0x00,0x00);\r
-\r
-typedef HRESULT (WINAPI *fnGetClassObject)(REFCLSID rclsid, REFIID iid, LPVOID *ppv);\r
-typedef HRESULT (WINAPI *fnCanUnloadNow)(void);\r
-\r
-HINSTANCE shdocvw_hinstance = 0;\r
-static HMODULE SHDOCVW_hshell32 = 0;\r
-static HMODULE hMozCtl = (HMODULE)~0UL;\r
-\r
-\r
-/* convert a guid to a wide character string */\r
-static void SHDOCVW_guid2wstr( const GUID *guid, LPWSTR wstr )\r
-{\r
- char str[40];\r
-\r
- sprintf(str, "{%08lX-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",\r
- guid->Data1, guid->Data2, guid->Data3,\r
- guid->Data4[0], guid->Data4[1], guid->Data4[2], guid->Data4[3],\r
- guid->Data4[4], guid->Data4[5], guid->Data4[6], guid->Data4[7] );\r
- MultiByteToWideChar( CP_ACP, 0, str, -1, wstr, 40 );\r
-}\r
-\r
-static BOOL SHDOCVW_GetMozctlPath( LPWSTR szPath, DWORD sz )\r
-{\r
- DWORD r, type;\r
- BOOL ret = FALSE;\r
- HKEY hkey;\r
- static const WCHAR szPre[] = {\r
- 'S','o','f','t','w','a','r','e','\\',\r
- 'C','l','a','s','s','e','s','\\',\r
- 'C','L','S','I','D','\\',0 };\r
- static const WCHAR szPost[] = {\r
- '\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0 };\r
- WCHAR szRegPath[(sizeof(szPre)+sizeof(szPost))/sizeof(WCHAR)+40];\r
-\r
- strcpyW( szRegPath, szPre );\r
- SHDOCVW_guid2wstr( &CLSID_MozillaBrowser, &szRegPath[strlenW(szRegPath)] );\r
- strcatW( szRegPath, szPost );\r
-\r
- TRACE("key = %s\n", debugstr_w( szRegPath ) );\r
-\r
- r = RegOpenKeyW( HKEY_LOCAL_MACHINE, szRegPath, &hkey );\r
- if( r != ERROR_SUCCESS )\r
- return FALSE;\r
-\r
- r = RegQueryValueExW( hkey, NULL, NULL, &type, (LPBYTE)szPath, &sz );\r
- ret = ( r == ERROR_SUCCESS ) && ( type == REG_SZ );\r
- RegCloseKey( hkey );\r
-\r
- return ret;\r
-}\r
-\r
-/*************************************************************************\r
- * SHDOCVW DllMain\r
- */\r
-BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID fImpLoad)\r
-{\r
- TRACE("%p 0x%lx %p\n", hinst, fdwReason, fImpLoad);\r
- switch (fdwReason)\r
- {\r
- case DLL_PROCESS_ATTACH:\r
- shdocvw_hinstance = hinst;\r
- break;\r
- case DLL_PROCESS_DETACH:\r
- if (SHDOCVW_hshell32) FreeLibrary(SHDOCVW_hshell32);\r
- if (hMozCtl && hMozCtl != (HMODULE)~0UL) FreeLibrary(hMozCtl);\r
- break;\r
- }\r
- return TRUE;\r
-}\r
-\r
-/*************************************************************************\r
- * DllCanUnloadNow (SHDOCVW.@)\r
- */\r
-HRESULT WINAPI DllCanUnloadNow(void)\r
-{\r
- HRESULT moz_can_unload = S_OK;\r
- fnCanUnloadNow pCanUnloadNow;\r
-\r
- if (hMozCtl)\r
- {\r
- pCanUnloadNow = (fnCanUnloadNow)\r
- GetProcAddress(hMozCtl, "DllCanUnloadNow");\r
- if (pCanUnloadNow)\r
- moz_can_unload = pCanUnloadNow();\r
- }\r
-\r
- if (moz_can_unload == S_OK && SHDOCVW_refCount == 0)\r
- return S_OK;\r
-\r
- return S_FALSE;\r
-}\r
-\r
-/*************************************************************************\r
- * SHDOCVW_TryDownloadMozillaControl\r
- */\r
-typedef struct _IBindStatusCallbackImpl {\r
- IBindStatusCallbackVtbl *vtbl;\r
- DWORD ref;\r
- HWND hDialog;\r
- BOOL *pbCancelled;\r
-} IBindStatusCallbackImpl;\r
-\r
-static HRESULT WINAPI\r
-dlQueryInterface( IBindStatusCallback* This, REFIID riid, void** ppvObject )\r
-{\r
- if (ppvObject == NULL) return E_POINTER;\r
- \r
- if( IsEqualIID(riid, &IID_IUnknown) ||\r
- IsEqualIID(riid, &IID_IBindStatusCallback))\r
- {\r
- IBindStatusCallback_AddRef( This );\r
- *ppvObject = This;\r
- return S_OK;\r
- }\r
- return E_NOINTERFACE;\r
-}\r
-\r
-static ULONG WINAPI dlAddRef( IBindStatusCallback* iface )\r
-{\r
- IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;\r
-\r
- SHDOCVW_LockModule();\r
- \r
- return InterlockedIncrement( &This->ref );\r
-}\r
-\r
-static ULONG WINAPI dlRelease( IBindStatusCallback* iface )\r
-{\r
- IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;\r
- DWORD ref = InterlockedDecrement( &This->ref );\r
- \r
- if( !ref )\r
- {\r
- DestroyWindow( This->hDialog );\r
- HeapFree( GetProcessHeap(), 0, This );\r
- }\r
-\r
- SHDOCVW_UnlockModule();\r
- \r
- return ref;\r
-}\r
-\r
-static HRESULT WINAPI\r
-dlOnStartBinding( IBindStatusCallback* iface, DWORD dwReserved, IBinding* pib)\r
-{\r
- ERR("\n");\r
- return S_OK;\r
-}\r
-\r
-static HRESULT WINAPI\r
-dlGetPriority( IBindStatusCallback* iface, LONG* pnPriority)\r
-{\r
- ERR("\n");\r
- return S_OK;\r
-}\r
-\r
-static HRESULT WINAPI\r
-dlOnLowResource( IBindStatusCallback* iface, DWORD reserved)\r
-{\r
- ERR("\n");\r
- return S_OK;\r
-}\r
-\r
-static HRESULT WINAPI\r
-dlOnProgress( IBindStatusCallback* iface, ULONG ulProgress,\r
- ULONG ulProgressMax, ULONG ulStatusCode, LPCWSTR szStatusText)\r
-{\r
- IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;\r
- HWND hItem;\r
- LONG r;\r
-\r
- hItem = GetDlgItem( This->hDialog, 1000 );\r
- if( hItem && ulProgressMax )\r
- SendMessageW(hItem,PBM_SETPOS,(ulProgress*100)/ulProgressMax,0);\r
-\r
- hItem = GetDlgItem(This->hDialog, 104);\r
- if( hItem )\r
- SendMessageW(hItem,WM_SETTEXT, 0, (LPARAM) szStatusText);\r
-\r
- SetLastError(0);\r
- r = GetWindowLongPtrW( This->hDialog, GWLP_USERDATA );\r
- if( r || GetLastError() )\r
- {\r
- *This->pbCancelled = TRUE;\r
- ERR("Cancelled\n");\r
- return E_ABORT;\r
- }\r
-\r
- return S_OK;\r
-}\r
-\r
-static HRESULT WINAPI\r
-dlOnStopBinding( IBindStatusCallback* iface, HRESULT hresult, LPCWSTR szError)\r
-{\r
- ERR("\n");\r
- return S_OK;\r
-}\r
-\r
-static HRESULT WINAPI\r
-dlGetBindInfo( IBindStatusCallback* iface, DWORD* grfBINDF, BINDINFO* pbindinfo)\r
-{\r
- ERR("\n");\r
- return S_OK;\r
-}\r
-\r
-static HRESULT WINAPI\r
-dlOnDataAvailable( IBindStatusCallback* iface, DWORD grfBSCF,\r
- DWORD dwSize, FORMATETC* pformatetc, STGMEDIUM* pstgmed)\r
-{\r
- ERR("\n");\r
- return S_OK;\r
-}\r
-\r
-static HRESULT WINAPI\r
-dlOnObjectAvailable( IBindStatusCallback* iface, REFIID riid, IUnknown* punk)\r
-{\r
- ERR("\n");\r
- return S_OK;\r
-}\r
-\r
-struct IBindStatusCallbackVtbl dlVtbl =\r
-{\r
- dlQueryInterface,\r
- dlAddRef,\r
- dlRelease,\r
- dlOnStartBinding,\r
- dlGetPriority,\r
- dlOnLowResource,\r
- dlOnProgress,\r
- dlOnStopBinding,\r
- dlGetBindInfo,\r
- dlOnDataAvailable,\r
- dlOnObjectAvailable\r
-};\r
-\r
-static IBindStatusCallback* create_dl(HWND dlg, BOOL *pbCancelled)\r
-{\r
- IBindStatusCallbackImpl *This;\r
-\r
- This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );\r
- This->vtbl = &dlVtbl;\r
- This->ref = 1;\r
- This->hDialog = dlg;\r
- This->pbCancelled = pbCancelled;\r
-\r
- return (IBindStatusCallback*) This;\r
-}\r
-\r
-static DWORD WINAPI ThreadFunc( LPVOID info )\r
-{\r
- IBindStatusCallback *dl;\r
- static const WCHAR szUrlVal[] = {'M','o','z','i','l','l','a','U','r','l',0};\r
- WCHAR path[MAX_PATH], szUrl[MAX_PATH];\r
- LPWSTR p;\r
- STARTUPINFOW si;\r
- PROCESS_INFORMATION pi;\r
- HWND hDlg = info;\r
- DWORD r, sz, type;\r
- HKEY hkey;\r
- BOOL bCancelled = FALSE;\r
-\r
- /* find the name of the thing to download */\r
- szUrl[0] = 0;\r
- r = RegOpenKeyW( HKEY_LOCAL_MACHINE, szMozDlPath, &hkey );\r
- if( r == ERROR_SUCCESS )\r
- {\r
- sz = MAX_PATH;\r
- r = RegQueryValueExW( hkey, szUrlVal, NULL, &type, (LPBYTE)szUrl, &sz );\r
- RegCloseKey( hkey );\r
- }\r
- if( r != ERROR_SUCCESS )\r
- goto end;\r
-\r
- /* built the path for the download */\r
- p = strrchrW( szUrl, '/' );\r
- if (!p)\r
- goto end;\r
- if (!GetTempPathW( MAX_PATH, path ))\r
- goto end;\r
- strcatW( path, p+1 );\r
-\r
- /* download it */\r
- dl = create_dl(info, &bCancelled);\r
- r = URLDownloadToFileW( NULL, szUrl, path, 0, dl );\r
- if( dl )\r
- IBindStatusCallback_Release( dl );\r
- if( (r != S_OK) || bCancelled )\r
- goto end;\r
-\r
- /* run it */\r
- memset( &si, 0, sizeof si );\r
- si.cb = sizeof si;\r
- r = CreateProcessW( path, NULL, NULL, NULL, 0, 0, NULL, NULL, &si, &pi );\r
- if( !r )\r
- goto end;\r
- WaitForSingleObject( pi.hProcess, INFINITE );\r
-\r
-end:\r
- EndDialog( hDlg, 0 );\r
- return 0;\r
-}\r
-\r
-static INT_PTR CALLBACK\r
-dlProc ( HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)\r
-{\r
- HANDLE hThread;\r
- DWORD ThreadId;\r
- HWND hItem;\r
-\r
- switch (uMsg)\r
- {\r
- case WM_INITDIALOG:\r
- SetWindowLongPtrW( hwndDlg, GWLP_USERDATA, 0 );\r
- hItem = GetDlgItem(hwndDlg, 1000);\r
- if( hItem )\r
- {\r
- SendMessageW(hItem,PBM_SETRANGE,0,MAKELPARAM(0,100));\r
- SendMessageW(hItem,PBM_SETPOS,0,0);\r
- }\r
- hThread = CreateThread(NULL,0,ThreadFunc,hwndDlg,0,&ThreadId);\r
- if (!hThread)\r
- return FALSE;\r
- return TRUE;\r
- case WM_COMMAND:\r
- if( wParam == IDCANCEL )\r
- SetWindowLongPtrW( hwndDlg, GWLP_USERDATA, 1 );\r
- return FALSE;\r
- default:\r
- return FALSE;\r
- }\r
-}\r
-\r
-static BOOL SHDOCVW_TryDownloadMozillaControl()\r
-{\r
- DWORD r;\r
- WCHAR buf[0x100];\r
- static const WCHAR szWine[] = { 'W','i','n','e',0 };\r
- HANDLE hsem;\r
-\r
- SetLastError( ERROR_SUCCESS );\r
- hsem = CreateSemaphoreA( NULL, 0, 1, "mozctl_install_semaphore");\r
- if( GetLastError() != ERROR_ALREADY_EXISTS )\r
- {\r
- LoadStringW( shdocvw_hinstance, 1001, buf, sizeof buf/sizeof(WCHAR) );\r
- r = MessageBoxW(NULL, buf, szWine, MB_YESNO | MB_ICONQUESTION);\r
- if( r != IDYES )\r
- return FALSE;\r
-\r
- DialogBoxW(shdocvw_hinstance, MAKEINTRESOURCEW(100), 0, dlProc);\r
- }\r
- else\r
- WaitForSingleObject( hsem, INFINITE );\r
- ReleaseSemaphore( hsem, 1, NULL );\r
- CloseHandle( hsem );\r
- \r
- return TRUE;\r
-}\r
- \r
-static BOOL SHDOCVW_TryLoadMozillaControl()\r
-{\r
- WCHAR szPath[MAX_PATH];\r
- BOOL bTried = FALSE;\r
-\r
- if( hMozCtl != (HMODULE)~0UL )\r
- return hMozCtl ? TRUE : FALSE;\r
-\r
- while( 1 )\r
- {\r
- if( SHDOCVW_GetMozctlPath( szPath, sizeof szPath ) )\r
- {\r
- hMozCtl = LoadLibraryExW(szPath, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);\r
- if( hMozCtl )\r
- return TRUE;\r
- }\r
- if( bTried )\r
- {\r
- MESSAGE("You need to install the Mozilla ActiveX control to\n");\r
- MESSAGE("use Wine's builtin CLSID_WebBrowser from SHDOCVW.DLL\n");\r
- return FALSE;\r
- }\r
- SHDOCVW_TryDownloadMozillaControl();\r
- bTried = TRUE;\r
- }\r
-}\r
-\r
-/*************************************************************************\r
- * DllGetClassObject (SHDOCVW.@)\r
- */\r
-HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)\r
-{\r
- TRACE("\n");\r
-\r
- if( IsEqualGUID( &CLSID_WebBrowser, rclsid ) &&\r
- SHDOCVW_TryLoadMozillaControl() )\r
- {\r
- HRESULT r;\r
- fnGetClassObject pGetClassObject;\r
-\r
- TRACE("WebBrowser class %s\n", debugstr_guid(rclsid) );\r
-\r
- pGetClassObject = (fnGetClassObject)\r
- GetProcAddress( hMozCtl, "DllGetClassObject" );\r
-\r
- if( !pGetClassObject )\r
- return CLASS_E_CLASSNOTAVAILABLE;\r
- r = pGetClassObject( &CLSID_MozillaBrowser, riid, ppv );\r
-\r
- TRACE("r = %08lx *ppv = %p\n", r, *ppv );\r
-\r
- return r;\r
- }\r
-\r
- if (IsEqualGUID(&IID_IClassFactory, riid))\r
- {\r
- /* Pass back our shdocvw class factory */\r
- *ppv = (LPVOID)&SHDOCVW_ClassFactory;\r
- IClassFactory_AddRef((IClassFactory*)&SHDOCVW_ClassFactory);\r
-\r
- return S_OK;\r
- }\r
-\r
- return CLASS_E_CLASSNOTAVAILABLE;\r
-}\r
-\r
-/***********************************************************************\r
- * DllGetVersion (SHDOCVW.@)\r
- */\r
-HRESULT WINAPI DllGetVersion(DLLVERSIONINFO *info)\r
-{\r
- if (info->cbSize != sizeof(DLLVERSIONINFO)) FIXME("support DLLVERSIONINFO2\n");\r
-\r
- /* this is what IE6 on Windows 98 reports */\r
- info->dwMajorVersion = 6;\r
- info->dwMinorVersion = 0;\r
- info->dwBuildNumber = 2600;\r
- info->dwPlatformID = DLLVER_PLATFORM_WINDOWS;\r
-\r
- return NOERROR;\r
-}\r
-\r
-/*************************************************************************\r
- * DllInstall (SHDOCVW.@)\r
- */\r
-HRESULT WINAPI DllInstall(BOOL bInstall, LPCWSTR cmdline)\r
-{\r
- FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));\r
-\r
- return S_OK;\r
-}\r
-\r
-/*************************************************************************\r
- * SHDOCVW_LoadShell32\r
- *\r
- * makes sure the handle to shell32 is valid\r
- */\r
- BOOL SHDOCVW_LoadShell32(void)\r
-{\r
- if (SHDOCVW_hshell32)\r
- return TRUE;\r
- return ((SHDOCVW_hshell32 = LoadLibraryA("shell32.dll")) != NULL);\r
-}\r
-\r
-/***********************************************************************\r
- * @ (SHDOCVW.110)\r
- *\r
- * Called by Win98 explorer.exe main binary, definitely has 0\r
- * parameters.\r
- */\r
-DWORD WINAPI WinList_Init(void)\r
-{\r
- FIXME("(), stub!\n");\r
- return 0x0deadfeed;\r
-}\r
-\r
-/***********************************************************************\r
- * @ (SHDOCVW.118)\r
- *\r
- * Called by Win98 explorer.exe main binary, definitely has only one\r
- * parameter.\r
- */\r
-static BOOL (WINAPI *pShellDDEInit)(BOOL start) = NULL;\r
-\r
-BOOL WINAPI ShellDDEInit(BOOL start)\r
-{\r
- TRACE("(%d)\n", start);\r
-\r
- if (!pShellDDEInit)\r
- {\r
- if (!SHDOCVW_LoadShell32())\r
- return FALSE;\r
- pShellDDEInit = GetProcAddress(SHDOCVW_hshell32, (LPCSTR)188);\r
- }\r
-\r
- if (pShellDDEInit)\r
- return pShellDDEInit(start);\r
- else\r
- return FALSE;\r
-}\r
-\r
-/***********************************************************************\r
- * @ (SHDOCVW.125)\r
- *\r
- * Called by Win98 explorer.exe main binary, definitely has 0\r
- * parameters.\r
- */\r
-DWORD WINAPI RunInstallUninstallStubs(void)\r
-{\r
- FIXME("(), stub!\n");\r
- return 0x0deadbee;\r
-}\r
-\r
-/***********************************************************************\r
- * SetQueryNetSessionCount (SHDOCVW.@)\r
- */\r
-DWORD WINAPI SetQueryNetSessionCount(DWORD arg)\r
-{\r
- FIXME("(%lu), stub!\n", arg);\r
- return 0;\r
-}\r
+/*
+ * 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ */
+
+#include "config.h"
+
+#include <stdarg.h>
+#include <stdio.h>
+#include <string.h>
+
+#define COBJMACROS
+#define COM_NO_WINDOWS_H
+
+#include "windef.h"
+#include "winbase.h"
+#include "winreg.h"
+#include "winuser.h"
+#include "winnls.h"
+#include "ole2.h"
+#include "shlwapi.h"
+
+#include "shdocvw.h"
+#include "uuids.h"
+#include "urlmon.h"
+
+#include "wine/unicode.h"
+#include "wine/debug.h"
+
+#include "initguid.h"
+
+WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
+
+LONG SHDOCVW_refCount = 0;
+
+static const WCHAR szMozDlPath[] = {
+ 'S','o','f','t','w','a','r','e','\\','W','i','n','e','\\',
+ 's','h','d','o','c','v','w',0
+};
+
+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);
+typedef HRESULT (WINAPI *fnCanUnloadNow)(void);
+
+HINSTANCE shdocvw_hinstance = 0;
+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;
+ static const WCHAR szPre[] = {
+ 'S','o','f','t','w','a','r','e','\\',
+ 'C','l','a','s','s','e','s','\\',
+ 'C','L','S','I','D','\\',0 };
+ static const WCHAR szPost[] = {
+ '\\','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;
+}
+
+/*************************************************************************
+ * 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);
+ if (hMozCtl && hMozCtl != (HMODULE)~0UL) FreeLibrary(hMozCtl);
+ break;
+ }
+ return TRUE;
+}
+
+/*************************************************************************
+ * DllCanUnloadNow (SHDOCVW.@)
+ */
+HRESULT WINAPI DllCanUnloadNow(void)
+{
+ HRESULT moz_can_unload = S_OK;
+ fnCanUnloadNow pCanUnloadNow;
+
+ if (hMozCtl)
+ {
+ pCanUnloadNow = (fnCanUnloadNow)
+ GetProcAddress(hMozCtl, "DllCanUnloadNow");
+ if (pCanUnloadNow)
+ moz_can_unload = pCanUnloadNow();
+ }
+
+ if (moz_can_unload == S_OK && SHDOCVW_refCount == 0)
+ return S_OK;
+
+ return S_FALSE;
+}
+
+/*************************************************************************
+ * SHDOCVW_TryDownloadMozillaControl
+ */
+typedef struct _IBindStatusCallbackImpl {
+ IBindStatusCallbackVtbl *vtbl;
+ DWORD ref;
+ HWND hDialog;
+ BOOL *pbCancelled;
+} IBindStatusCallbackImpl;
+
+static HRESULT WINAPI
+dlQueryInterface( IBindStatusCallback* This, REFIID riid, void** ppvObject )
+{
+ if (ppvObject == NULL) return E_POINTER;
+
+ if( IsEqualIID(riid, &IID_IUnknown) ||
+ IsEqualIID(riid, &IID_IBindStatusCallback))
+ {
+ IBindStatusCallback_AddRef( This );
+ *ppvObject = This;
+ return S_OK;
+ }
+ return E_NOINTERFACE;
+}
+
+static ULONG WINAPI dlAddRef( IBindStatusCallback* iface )
+{
+ IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;
+
+ SHDOCVW_LockModule();
+
+ return InterlockedIncrement( &This->ref );
+}
+
+static ULONG WINAPI dlRelease( IBindStatusCallback* iface )
+{
+ IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;
+ DWORD ref = InterlockedDecrement( &This->ref );
+
+ if( !ref )
+ {
+ DestroyWindow( This->hDialog );
+ HeapFree( GetProcessHeap(), 0, This );
+ }
+
+ SHDOCVW_UnlockModule();
+
+ return ref;
+}
+
+static HRESULT WINAPI
+dlOnStartBinding( IBindStatusCallback* iface, DWORD dwReserved, IBinding* pib)
+{
+ ERR("\n");
+ return S_OK;
+}
+
+static HRESULT WINAPI
+dlGetPriority( IBindStatusCallback* iface, LONG* pnPriority)
+{
+ ERR("\n");
+ return S_OK;
+}
+
+static HRESULT WINAPI
+dlOnLowResource( IBindStatusCallback* iface, DWORD reserved)
+{
+ ERR("\n");
+ return S_OK;
+}
+
+static HRESULT WINAPI
+dlOnProgress( IBindStatusCallback* iface, ULONG ulProgress,
+ ULONG ulProgressMax, ULONG ulStatusCode, LPCWSTR szStatusText)
+{
+ IBindStatusCallbackImpl *This = (IBindStatusCallbackImpl *) iface;
+ HWND hItem;
+ LONG r;
+
+ hItem = GetDlgItem( This->hDialog, 1000 );
+ if( hItem && ulProgressMax )
+ SendMessageW(hItem,PBM_SETPOS,(ulProgress*100)/ulProgressMax,0);
+
+ hItem = GetDlgItem(This->hDialog, 104);
+ if( hItem )
+ SendMessageW(hItem,WM_SETTEXT, 0, (LPARAM) szStatusText);
+
+ SetLastError(0);
+ r = GetWindowLongPtrW( This->hDialog, GWLP_USERDATA );
+ if( r || GetLastError() )
+ {
+ *This->pbCancelled = TRUE;
+ ERR("Cancelled\n");
+ return E_ABORT;
+ }
+
+ return S_OK;
+}
+
+static HRESULT WINAPI
+dlOnStopBinding( IBindStatusCallback* iface, HRESULT hresult, LPCWSTR szError)
+{
+ ERR("\n");
+ return S_OK;
+}
+
+static HRESULT WINAPI
+dlGetBindInfo( IBindStatusCallback* iface, DWORD* grfBINDF, BINDINFO* pbindinfo)
+{
+ ERR("\n");
+ return S_OK;
+}
+
+static HRESULT WINAPI
+dlOnDataAvailable( IBindStatusCallback* iface, DWORD grfBSCF,
+ DWORD dwSize, FORMATETC* pformatetc, STGMEDIUM* pstgmed)
+{
+ ERR("\n");
+ return S_OK;
+}
+
+static HRESULT WINAPI
+dlOnObjectAvailable( IBindStatusCallback* iface, REFIID riid, IUnknown* punk)
+{
+ ERR("\n");
+ return S_OK;
+}
+
+struct IBindStatusCallbackVtbl dlVtbl =
+{
+ dlQueryInterface,
+ dlAddRef,
+ dlRelease,
+ dlOnStartBinding,
+ dlGetPriority,
+ dlOnLowResource,
+ dlOnProgress,
+ dlOnStopBinding,
+ dlGetBindInfo,
+ dlOnDataAvailable,
+ dlOnObjectAvailable
+};
+
+static IBindStatusCallback* create_dl(HWND dlg, BOOL *pbCancelled)
+{
+ IBindStatusCallbackImpl *This;
+
+ This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
+ This->vtbl = &dlVtbl;
+ This->ref = 1;
+ This->hDialog = dlg;
+ This->pbCancelled = pbCancelled;
+
+ return (IBindStatusCallback*) This;
+}
+
+static DWORD WINAPI ThreadFunc( LPVOID info )
+{
+ IBindStatusCallback *dl;
+ static const WCHAR szUrlVal[] = {'M','o','z','i','l','l','a','U','r','l',0};
+ WCHAR path[MAX_PATH], szUrl[MAX_PATH];
+ LPWSTR p;
+ STARTUPINFOW si;
+ PROCESS_INFORMATION pi;
+ HWND hDlg = info;
+ DWORD r, sz, type;
+ HKEY hkey;
+ BOOL bCancelled = FALSE;
+
+ /* find the name of the thing to download */
+ szUrl[0] = 0;
+ r = RegOpenKeyW( HKEY_LOCAL_MACHINE, szMozDlPath, &hkey );
+ if( r == ERROR_SUCCESS )
+ {
+ sz = MAX_PATH;
+ r = RegQueryValueExW( hkey, szUrlVal, NULL, &type, (LPBYTE)szUrl, &sz );
+ RegCloseKey( hkey );
+ }
+ if( r != ERROR_SUCCESS )
+ goto end;
+
+ /* built the path for the download */
+ p = strrchrW( szUrl, '/' );
+ if (!p)
+ goto end;
+ if (!GetTempPathW( MAX_PATH, path ))
+ goto end;
+ strcatW( path, p+1 );
+
+ /* download it */
+ dl = create_dl(info, &bCancelled);
+ r = URLDownloadToFileW( NULL, szUrl, path, 0, dl );
+ if( dl )
+ IBindStatusCallback_Release( dl );
+ if( (r != S_OK) || bCancelled )
+ goto end;
+
+ /* run it */
+ memset( &si, 0, sizeof si );
+ si.cb = sizeof si;
+ r = CreateProcessW( path, NULL, NULL, NULL, 0, 0, NULL, NULL, &si, &pi );
+ if( !r )
+ goto end;
+ WaitForSingleObject( pi.hProcess, INFINITE );
+
+end:
+ EndDialog( hDlg, 0 );
+ return 0;
+}
+
+static INT_PTR CALLBACK
+dlProc ( HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)
+{
+ HANDLE hThread;
+ DWORD ThreadId;
+ HWND hItem;
+
+ switch (uMsg)
+ {
+ case WM_INITDIALOG:
+ SetWindowLongPtrW( hwndDlg, GWLP_USERDATA, 0 );
+ hItem = GetDlgItem(hwndDlg, 1000);
+ if( hItem )
+ {
+ SendMessageW(hItem,PBM_SETRANGE,0,MAKELPARAM(0,100));
+ SendMessageW(hItem,PBM_SETPOS,0,0);
+ }
+ hThread = CreateThread(NULL,0,ThreadFunc,hwndDlg,0,&ThreadId);
+ if (!hThread)
+ return FALSE;
+ return TRUE;
+ case WM_COMMAND:
+ if( wParam == IDCANCEL )
+ SetWindowLongPtrW( hwndDlg, GWLP_USERDATA, 1 );
+ return FALSE;
+ default:
+ return FALSE;
+ }
+}
+
+static BOOL SHDOCVW_TryDownloadMozillaControl()
+{
+ DWORD r;
+ WCHAR buf[0x100];
+ static const WCHAR szWine[] = { 'W','i','n','e',0 };
+ HANDLE hsem;
+
+ SetLastError( ERROR_SUCCESS );
+ hsem = CreateSemaphoreA( NULL, 0, 1, "mozctl_install_semaphore");
+ if( GetLastError() != ERROR_ALREADY_EXISTS )
+ {
+ LoadStringW( shdocvw_hinstance, 1001, buf, sizeof buf/sizeof(WCHAR) );
+ r = MessageBoxW(NULL, buf, szWine, MB_YESNO | MB_ICONQUESTION);
+ if( r != IDYES )
+ return FALSE;
+
+ DialogBoxW(shdocvw_hinstance, MAKEINTRESOURCEW(100), 0, dlProc);
+ }
+ else
+ WaitForSingleObject( hsem, INFINITE );
+ ReleaseSemaphore( hsem, 1, NULL );
+ CloseHandle( hsem );
+
+ return TRUE;
+}
+
+static BOOL SHDOCVW_TryLoadMozillaControl()
+{
+ WCHAR szPath[MAX_PATH];
+ BOOL bTried = FALSE;
+
+ if( hMozCtl != (HMODULE)~0UL )
+ return hMozCtl ? TRUE : FALSE;
+
+ while( 1 )
+ {
+ if( SHDOCVW_GetMozctlPath( szPath, sizeof szPath ) )
+ {
+ hMozCtl = LoadLibraryExW(szPath, NULL, LOAD_WITH_ALTERED_SEARCH_PATH);
+ if( hMozCtl )
+ return TRUE;
+ }
+ if( bTried )
+ {
+ MESSAGE("You need to install the Mozilla ActiveX control to\n");
+ MESSAGE("use Wine's builtin CLSID_WebBrowser from SHDOCVW.DLL\n");
+ return FALSE;
+ }
+ SHDOCVW_TryDownloadMozillaControl();
+ bTried = TRUE;
+ }
+}
+
+/*************************************************************************
+ * DllGetClassObject (SHDOCVW.@)
+ */
+HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
+{
+ TRACE("\n");
+
+ 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;
+ }
+
+ 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;
+}
+
+/***********************************************************************
+ * 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
+ */
+ 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("(%lu), stub!\n", arg);
+ return 0;
+}