2 * Copyright 2006 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
24 #define NONAMELESSUNION
25 #define NONAMELESSSTRUCT
35 #include "wine/debug.h"
36 #include "wine/unicode.h"
38 #include "mshtml_private.h"
41 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
43 static HWND install_dialog
= NULL
;
44 static LPWSTR tmp_file_name
= NULL
;
45 static HANDLE tmp_file
= INVALID_HANDLE_VALUE
;
46 static LPWSTR url
= NULL
;
48 static void clean_up(void)
50 if(tmp_file
!= INVALID_HANDLE_VALUE
)
51 CloseHandle(tmp_file
);
54 DeleteFileW(tmp_file_name
);
55 HeapFree(GetProcessHeap(), 0, tmp_file_name
);
59 if(tmp_file
!= INVALID_HANDLE_VALUE
) {
60 CloseHandle(tmp_file
);
61 tmp_file
= INVALID_HANDLE_VALUE
;
65 EndDialog(install_dialog
, 0);
68 static void set_status(DWORD id
)
70 HWND status
= GetDlgItem(install_dialog
, ID_DWL_STATUS
);
73 LoadStringW(hInst
, id
, buf
, sizeof(buf
)/sizeof(WCHAR
));
74 SendMessageW(status
, WM_SETTEXT
, 0, (LPARAM
)buf
);
77 static void set_registry(LPCSTR install_dir
)
83 static const WCHAR wszMshtmlKey
[] = {
84 'S','o','f','t','w','a','r','e','\\','W','i','n','e',
85 '\\','M','S','H','T','M','L',0};
86 static const WCHAR wszGeckoPath
[] = {'G','e','c','k','o','P','a','t','h',0};
87 static const WCHAR wszWineGecko
[] = {'w','i','n','e','_','g','e','c','k','o',0};
89 /* @@ Wine registry key: HKCU\Software\Wine\MSHTML */
90 res
= RegOpenKeyW(HKEY_CURRENT_USER
, wszMshtmlKey
, &hkey
);
91 if(res
!= ERROR_SUCCESS
) {
92 ERR("Faild to open MSHTML key: %ld\n", res
);
96 len
= MultiByteToWideChar(CP_ACP
, 0, install_dir
, -1, NULL
, 0)-1;
97 gecko_path
= HeapAlloc(GetProcessHeap(), 0, len
*sizeof(WCHAR
)+sizeof(wszWineGecko
));
98 MultiByteToWideChar(CP_ACP
, 0, install_dir
, -1, gecko_path
, -1);
99 memcpy(gecko_path
+len
, wszWineGecko
, sizeof(wszWineGecko
));
101 size
= len
*sizeof(WCHAR
)+sizeof(wszWineGecko
);
102 res
= RegSetValueExW(hkey
, wszGeckoPath
, 0, REG_SZ
, (LPVOID
)gecko_path
,
103 len
*sizeof(WCHAR
)+sizeof(wszWineGecko
));
104 HeapFree(GetProcessHeap(), 0, gecko_path
);
106 if(res
!= ERROR_SUCCESS
)
107 ERR("Failed to set GeckoPath value: %08lx\n", res
);
110 static HRESULT WINAPI
InstallCallback_QueryInterface(IBindStatusCallback
*iface
,
111 REFIID riid
, void **ppv
)
113 if(IsEqualGUID(&IID_IUnknown
, riid
) || IsEqualGUID(&IID_IBindStatusCallback
, riid
)) {
121 static ULONG WINAPI
InstallCallback_AddRef(IBindStatusCallback
*iface
)
126 static ULONG WINAPI
InstallCallback_Release(IBindStatusCallback
*iface
)
131 static HRESULT WINAPI
InstallCallback_OnStartBinding(IBindStatusCallback
*iface
,
132 DWORD dwReserved
, IBinding
*pib
)
134 WCHAR tmp_dir
[MAX_PATH
];
136 set_status(IDS_DOWNLOADING
);
138 GetTempPathW(sizeof(tmp_dir
)/sizeof(WCHAR
), tmp_dir
);
140 tmp_file_name
= HeapAlloc(GetProcessHeap(), 0, MAX_PATH
*sizeof(WCHAR
));
141 GetTempFileNameW(tmp_dir
, NULL
, 0, tmp_file_name
);
143 TRACE("creating temp file %s\n", debugstr_w(tmp_file_name
));
145 tmp_file
= CreateFileW(tmp_file_name
, GENERIC_WRITE
, 0, NULL
,
146 CREATE_ALWAYS
, FILE_ATTRIBUTE_NORMAL
, NULL
);
148 if(tmp_file
== INVALID_HANDLE_VALUE
) {
149 ERR("Could not create file: %ld\n", GetLastError());
157 static HRESULT WINAPI
InstallCallback_GetPriority(IBindStatusCallback
*iface
,
163 static HRESULT WINAPI
InstallCallback_OnLowResource(IBindStatusCallback
*iface
,
169 static HRESULT WINAPI
InstallCallback_OnProgress(IBindStatusCallback
*iface
, ULONG ulProgress
,
170 ULONG ulProgressMax
, ULONG ulStatusCode
, LPCWSTR szStatusText
)
172 HWND progress
= GetDlgItem(install_dialog
, ID_DWL_PROGRESS
);
175 SendMessageW(progress
, PBM_SETRANGE32
, 0, ulProgressMax
);
177 SendMessageW(progress
, PBM_SETPOS
, ulProgress
, 0);
182 static HRESULT WINAPI
InstallCallback_OnStopBinding(IBindStatusCallback
*iface
,
183 HRESULT hresult
, LPCWSTR szError
)
188 char program_files
[MAX_PATH
];
189 typeof(ExtractFilesA
) *pExtractFilesA
;
192 static const WCHAR wszAdvpack
[] = {'a','d','v','p','a','c','k','.','d','l','l',0};
194 if(FAILED(hresult
)) {
195 ERR("Binding failed %08lx\n", hresult
);
200 CloseHandle(tmp_file
);
201 tmp_file
= INVALID_HANDLE_VALUE
;
203 set_status(IDS_INSTALLING
);
205 advpack
= LoadLibraryW(wszAdvpack
);
206 pExtractFilesA
= (typeof(ExtractFilesA
)*)GetProcAddress(advpack
, "ExtractFiles");
208 len
= WideCharToMultiByte(CP_ACP
, 0, tmp_file_name
, -1, NULL
, 0, NULL
, NULL
);
209 file_name
= HeapAlloc(GetProcessHeap(), 0, len
);
210 WideCharToMultiByte(CP_ACP
, 0, tmp_file_name
, -1, file_name
, -1, NULL
, NULL
);
212 GetEnvironmentVariableA("ProgramFiles", program_files
, sizeof(program_files
));
214 /* FIXME: Use unicode version (not yet implemented) */
215 hres
= pExtractFilesA(file_name
, program_files
, 0, NULL
, NULL
, 0);
216 FreeLibrary(advpack
);
217 HeapFree(GetProcessHeap(), 0, file_name
);
219 ERR("Could not extract package: %08lx\n", hres
);
223 set_registry(program_files
);
229 static HRESULT WINAPI
InstallCallback_GetBindInfo(IBindStatusCallback
*iface
,
230 DWORD
* grfBINDF
, BINDINFO
* pbindinfo
)
237 static HRESULT WINAPI
InstallCallback_OnDataAvailable(IBindStatusCallback
*iface
, DWORD grfBSCF
,
238 DWORD dwSize
, FORMATETC
* pformatetc
, STGMEDIUM
* pstgmed
)
240 IStream
*str
= pstgmed
->u
.pstm
;
247 hres
= IStream_Read(str
, buf
, sizeof(buf
), &size
);
249 WriteFile(tmp_file
, buf
, size
, NULL
, NULL
);
250 }while(hres
== S_OK
);
255 static HRESULT WINAPI
InstallCallback_OnObjectAvailable(IBindStatusCallback
*iface
,
256 REFIID riid
, IUnknown
* punk
)
262 static IBindStatusCallbackVtbl InstallCallbackVtbl
= {
263 InstallCallback_QueryInterface
,
264 InstallCallback_AddRef
,
265 InstallCallback_Release
,
266 InstallCallback_OnStartBinding
,
267 InstallCallback_GetPriority
,
268 InstallCallback_OnLowResource
,
269 InstallCallback_OnProgress
,
270 InstallCallback_OnStopBinding
,
271 InstallCallback_GetBindInfo
,
272 InstallCallback_OnDataAvailable
,
273 InstallCallback_OnObjectAvailable
276 static IBindStatusCallback InstallCallback
= { &InstallCallbackVtbl
};
278 static LPWSTR
get_url(void)
282 DWORD size
= 512*sizeof(WCHAR
);
285 static const WCHAR wszMshtmlKey
[] = {
286 'S','o','f','t','w','a','r','e','\\','W','i','n','e',
287 '\\','M','S','H','T','M','L',0};
288 static const WCHAR wszGeckoUrl
[] = {'G','e','c','k','o','U','r','l',0};
290 /* @@ Wine registry key: HKCU\Software\Wine\MSHTML */
291 res
= RegOpenKeyW(HKEY_CURRENT_USER
, wszMshtmlKey
, &hkey
);
292 if(res
!= ERROR_SUCCESS
)
295 url
= HeapAlloc(GetProcessHeap(), 0, size
);
297 res
= RegQueryValueExW(hkey
, wszGeckoUrl
, NULL
, &type
, (LPBYTE
)url
, &size
);
299 if(res
!= ERROR_SUCCESS
|| type
!= REG_SZ
) {
300 HeapFree(GetProcessHeap(), 0, url
);
307 static DWORD WINAPI
download_proc(PVOID arg
)
314 CreateURLMoniker(NULL
, url
, &mon
);
315 HeapFree(GetProcessHeap(), 0, url
);
318 CreateAsyncBindCtx(0, &InstallCallback
, 0, &bctx
);
320 hres
= IMoniker_BindToStorage(mon
, bctx
, NULL
, &IID_IStream
, (void**)&str
);
321 IBindCtx_Release(bctx
);
323 ERR("BindToStorage failed: %08lx\n", hres
);
328 IStream_Release(str
);
333 static INT_PTR CALLBACK
installer_proc(HWND hwnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
337 install_dialog
= hwnd
;
347 EnableWindow(GetDlgItem(hwnd
, ID_DWL_INSTALL
), 0);
348 EnableWindow(GetDlgItem(hwnd
, IDCANCEL
), 0); /* FIXME */
349 CreateThread(NULL
, 0, download_proc
, NULL
, 0, NULL
);
357 void install_wine_gecko(void)
361 SetLastError(ERROR_SUCCESS
);
362 hsem
= CreateSemaphoreA( NULL
, 0, 1, "mshtml_install_semaphore");
364 if(GetLastError() == ERROR_ALREADY_EXISTS
) {
365 WaitForSingleObject(hsem
, INFINITE
);
367 if((url
= get_url()))
368 DialogBoxW(hInst
, MAKEINTRESOURCEW(ID_DWL_DIALOG
), 0, installer_proc
);
371 ReleaseSemaphore(hsem
, 1, NULL
);