1 /*
2 * SHDOCVW - Internet Explorer Web Control
3 *
4 * Copyright 2001 John R. Sheets (for CodeWeavers)
5 * Copyright 2004 Mike McCormack (for CodeWeavers)
6 * Copyright 2008 Detlef Riekenberg
7 *
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
12 *
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
17 *
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 */
22
23 #include "config.h"
24
25 #include <stdarg.h>
26 #include <stdio.h>
27
28 #include "wine/unicode.h"
29 #include "wine/debug.h"
30
31 #include "shdocvw.h"
32
33 #include "winreg.h"
34 #include "shlwapi.h"
35 #include "wininet.h"
36
37 #include "initguid.h"
38
39 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
40
41 LONG SHDOCVW_refCount = 0;
42
43 HINSTANCE shdocvw_hinstance = 0;
44 static HMODULE SHDOCVW_hshell32 = 0;
45 static ITypeInfo *wb_typeinfo = NULL;
46
47 HRESULT get_typeinfo(ITypeInfo **typeinfo)
48 {
49 ITypeLib *typelib;
50 HRESULT hres;
51
52 if(wb_typeinfo) {
53 *typeinfo = wb_typeinfo;
54 return S_OK;
55 }
56
57 hres = LoadRegTypeLib(&LIBID_SHDocVw, 1, 1, LOCALE_SYSTEM_DEFAULT, &typelib);
58 if(FAILED(hres)) {
59 ERR("LoadRegTypeLib failed: %08x\n", hres);
60 return hres;
61 }
62
63 hres = ITypeLib_GetTypeInfoOfGuid(typelib, &IID_IWebBrowser2, &wb_typeinfo);
64 ITypeLib_Release(typelib);
65
66 *typeinfo = wb_typeinfo;
67 return hres;
68 }
69
70 /*************************************************************************
71 * SHDOCVW DllMain
72 */
73 BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID fImpLoad)
74 {
75 TRACE("%p 0x%x %p\n", hinst, fdwReason, fImpLoad);
76 switch (fdwReason)
77 {
78 case DLL_PROCESS_ATTACH:
79 shdocvw_hinstance = hinst;
80 register_iewindow_class();
81 break;
82 case DLL_PROCESS_DETACH:
83 if (SHDOCVW_hshell32) FreeLibrary(SHDOCVW_hshell32);
84 unregister_iewindow_class();
85 if(wb_typeinfo)
86 ITypeInfo_Release(wb_typeinfo);
87 break;
88 }
89 return TRUE;
90 }
91
92 /*************************************************************************
93 * DllCanUnloadNow (SHDOCVW.@)
94 */
95 HRESULT WINAPI DllCanUnloadNow(void)
96 {
97 return SHDOCVW_refCount ? S_FALSE : S_OK;
98 }
99
100 /***********************************************************************
101 * DllGetVersion (SHDOCVW.@)
102 */
103 HRESULT WINAPI DllGetVersion(DLLVERSIONINFO *info)
104 {
105 if (info->cbSize != sizeof(DLLVERSIONINFO)) FIXME("support DLLVERSIONINFO2\n");
106
107 /* this is what IE6 on Windows 98 reports */
108 info->dwMajorVersion = 6;
109 info->dwMinorVersion = 0;
110 info->dwBuildNumber = 2600;
111 info->dwPlatformID = DLLVER_PLATFORM_WINDOWS;
112
113 return NOERROR;
114 }
115
116 /*************************************************************************
117 * DllInstall (SHDOCVW.@)
118 */
119 HRESULT WINAPI DllInstall(BOOL bInstall, LPCWSTR cmdline)
120 {
121 FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));
122
123 return S_OK;
124 }
125
126 /*************************************************************************
127 * SHDOCVW_LoadShell32
128 *
129 * makes sure the handle to shell32 is valid
130 */
131 static BOOL SHDOCVW_LoadShell32(void)
132 {
133 if (SHDOCVW_hshell32)
134 return TRUE;
135 return ((SHDOCVW_hshell32 = LoadLibraryA("shell32.dll")) != NULL);
136 }
137
138 /***********************************************************************
139 * @ (SHDOCVW.110)
140 *
141 * Called by Win98 explorer.exe main binary, definitely has 0
142 * parameters.
143 */
144 DWORD WINAPI WinList_Init(void)
145 {
146 FIXME("(), stub!\n");
147 return 0x0deadfeed;
148 }
149
150 /***********************************************************************
151 * @ (SHDOCVW.118)
152 *
153 * Called by Win98 explorer.exe main binary, definitely has only one
154 * parameter.
155 */
156 static BOOL (WINAPI *pShellDDEInit)(BOOL start) = NULL;
157
158 BOOL WINAPI ShellDDEInit(BOOL start)
159 {
160 TRACE("(%d)\n", start);
161
162 if (!pShellDDEInit)
163 {
164 if (!SHDOCVW_LoadShell32())
165 return FALSE;
166 pShellDDEInit = (void *)GetProcAddress(SHDOCVW_hshell32, (LPCSTR)188);
167 }
168
169 if (pShellDDEInit)
170 return pShellDDEInit(start);
171 else
172 return FALSE;
173 }
174
175 /***********************************************************************
176 * @ (SHDOCVW.125)
177 *
178 * Called by Win98 explorer.exe main binary, definitely has 0
179 * parameters.
180 */
181 DWORD WINAPI RunInstallUninstallStubs(void)
182 {
183 FIXME("(), stub!\n");
184 return 0x0deadbee;
185 }
186
187 /***********************************************************************
188 * SetQueryNetSessionCount (SHDOCVW.@)
189 */
190 DWORD WINAPI SetQueryNetSessionCount(DWORD arg)
191 {
192 FIXME("(%u), stub!\n", arg);
193 return 0;
194 }
195
196 /**********************************************************************
197 * OpenURL (SHDOCVW.@)
198 */
199 void WINAPI OpenURL(HWND hWnd, HINSTANCE hInst, LPCSTR lpcstrUrl, int nShowCmd)
200 {
201 FIXME("%p %p %s %d\n", hWnd, hInst, debugstr_a(lpcstrUrl), nShowCmd);
202 }
203
204 /**********************************************************************
205 * Some forwards (by ordinal) to SHLWAPI
206 */
207
208 static void* fetch_shlwapi_ordinal(unsigned ord)
209 {
210 static const WCHAR shlwapiW[] = {'s','h','l','w','a','p','i','.','d','l','l','\0'};
211 static HANDLE h;
212
213 if (!h && !(h = GetModuleHandleW(shlwapiW))) return NULL;
214 return (void*)GetProcAddress(h, (const char*)ord);
215 }
216
217 /******************************************************************
218 * WhichPlatformFORWARD (SHDOCVW.@)
219 */
220 DWORD WINAPI WhichPlatformFORWARD(void)
221 {
222 static DWORD (WINAPI *p)(void);
223
224 if (p || (p = fetch_shlwapi_ordinal(276))) return p();
225 return 1; /* not integrated, see shlwapi.WhichPlatform */
226 }
227
228 /******************************************************************
229 * StopWatchModeFORWARD (SHDOCVW.@)
230 */
231 void WINAPI StopWatchModeFORWARD(void)
232 {
233 static void (WINAPI *p)(void);
234
235 if (p || (p = fetch_shlwapi_ordinal(241))) p();
236 }
237
238 /******************************************************************
239 * StopWatchFlushFORWARD (SHDOCVW.@)
240 */
241 void WINAPI StopWatchFlushFORWARD(void)
242 {
243 static void (WINAPI *p)(void);
244
245 if (p || (p = fetch_shlwapi_ordinal(242))) p();
246 }
247
248 /******************************************************************
249 * StopWatchWFORWARD (SHDOCVW.@)
250 */
251 DWORD WINAPI StopWatchWFORWARD(DWORD dwClass, LPCWSTR lpszStr, DWORD dwUnknown,
252 DWORD dwMode, DWORD dwTimeStamp)
253 {
254 static DWORD (WINAPI *p)(DWORD, LPCWSTR, DWORD, DWORD, DWORD);
255
256 if (p || (p = fetch_shlwapi_ordinal(243)))
257 return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
258 return ERROR_CALL_NOT_IMPLEMENTED;
259 }
260
261 /******************************************************************
262 * StopWatchAFORWARD (SHDOCVW.@)
263 */
264 DWORD WINAPI StopWatchAFORWARD(DWORD dwClass, LPCSTR lpszStr, DWORD dwUnknown,
265 DWORD dwMode, DWORD dwTimeStamp)
266 {
267 static DWORD (WINAPI *p)(DWORD, LPCSTR, DWORD, DWORD, DWORD);
268
269 if (p || (p = fetch_shlwapi_ordinal(244)))
270 return p(dwClass, lpszStr, dwUnknown, dwMode, dwTimeStamp);
271 return ERROR_CALL_NOT_IMPLEMENTED;
272 }
273
274 /******************************************************************
275 * URLSubRegQueryA (SHDOCVW.151)
276 */
277 HRESULT WINAPI URLSubRegQueryA(LPCSTR regpath, LPCSTR name, DWORD type,
278 LPSTR out, DWORD outlen, DWORD unknown)
279 {
280 CHAR buffer[INTERNET_MAX_URL_LENGTH];
281 DWORD len;
282 LONG res;
283
284 TRACE("(%s, %s, %d, %p, %d, %d)\n", debugstr_a(regpath), debugstr_a(name),
285 type, out, outlen, unknown);
286
287 if (!out) return S_OK;
288
289 len = sizeof(buffer);
290 res = SHRegGetUSValueA(regpath, name, NULL, buffer, &len, FALSE, NULL, 0);
291 if (!res) {
292 lstrcpynA(out, buffer, outlen);
293 return S_OK;
294 }
295
296 return E_FAIL;
297 }
298
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.