2 * ieframe - Internet Explorer main frame window
4 * Copyright 2006 Mike McCormack (for CodeWeavers)
5 * Copyright 2006 Jacek Caban (for CodeWeavers)
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
42 #include "ieautomation.h"
44 #include "wine/debug.h"
46 WINE_DEFAULT_DEBUG_CHANNEL(ieframe
);
50 #define WM_UPDATEADDRBAR (WM_APP+1)
52 static const WCHAR szIEWinFrame
[] = { 'I','E','F','r','a','m','e',0 };
54 /* Windows uses "Microsoft Internet Explorer" */
55 static const WCHAR wszWineInternetExplorer
[] =
56 {'W','i','n','e',' ','I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r',0};
59 static DWORD dde_inst
;
60 static HSZ ddestr_iexplore
, ddestr_openurl
;
61 static struct list ie_list
= LIST_INIT(ie_list
);
63 HRESULT
update_ie_statustext(InternetExplorer
* This
, LPCWSTR text
)
65 if(!SendMessageW(This
->status_hwnd
, SB_SETTEXTW
, MAKEWORD(SB_SIMPLEID
, 0), (LPARAM
)text
))
71 static void adjust_ie_docobj_rect(HWND frame
, RECT
* rc
)
73 HWND hwndRebar
= GetDlgItem(frame
, IDC_BROWSE_REBAR
);
74 HWND hwndStatus
= GetDlgItem(frame
, IDC_BROWSE_STATUSBAR
);
75 INT barHeight
= SendMessageW(hwndRebar
, RB_GETBARHEIGHT
, 0, 0);
77 InflateRect(rc
, 0, -barHeight
);
79 if(IsWindowVisible(hwndStatus
))
83 GetClientRect(hwndStatus
, &statusrc
);
84 rc
->bottom
-= statusrc
.bottom
- statusrc
.top
;
88 static HMENU
get_tb_menu(HMENU menu
)
90 HMENU menu_view
= GetSubMenu(menu
, 1);
92 return GetSubMenu(menu_view
, 0);
95 static HMENU
get_fav_menu(HMENU menu
)
97 return GetSubMenu(menu
, 2);
100 static LPWSTR
get_fav_url_from_id(HMENU menu
, UINT id
)
104 item
.cbSize
= sizeof(item
);
105 item
.fMask
= MIIM_DATA
;
107 if(!GetMenuItemInfoW(menu
, id
, FALSE
, &item
))
110 return (LPWSTR
)item
.dwItemData
;
113 static void free_fav_menu_data(HMENU menu
)
118 for(i
= 0; (url
= get_fav_url_from_id(menu
, ID_BROWSE_GOTOFAV_FIRST
+ i
)); i
++)
122 static int get_menu_item_count(HMENU menu
)
128 item
.cbSize
= sizeof(item
);
129 item
.fMask
= MIIM_DATA
| MIIM_SUBMENU
;
131 for(i
= 0; GetMenuItemInfoW(menu
, i
, TRUE
, &item
); i
++)
134 count
+= get_menu_item_count(item
.hSubMenu
);
142 static void add_fav_to_menu(HMENU favmenu
, HMENU menu
, LPWSTR title
, LPCWSTR url
)
145 /* Subtract the number of standard elements in the Favorites menu */
146 int favcount
= get_menu_item_count(favmenu
) - 2;
149 if(favcount
> (ID_BROWSE_GOTOFAV_MAX
- ID_BROWSE_GOTOFAV_FIRST
))
151 FIXME("Add support for more than %d Favorites\n", favcount
);
155 urlbuf
= malloc((wcslen(url
) + 1) * sizeof(WCHAR
));
160 lstrcpyW(urlbuf
, url
);
162 item
.cbSize
= sizeof(item
);
163 item
.fMask
= MIIM_FTYPE
| MIIM_STRING
| MIIM_DATA
| MIIM_ID
;
164 item
.fType
= MFT_STRING
;
165 item
.dwTypeData
= title
;
166 item
.wID
= ID_BROWSE_GOTOFAV_FIRST
+ favcount
;
167 item
.dwItemData
= (ULONG_PTR
)urlbuf
;
168 InsertMenuItemW(menu
, -1, TRUE
, &item
);
171 static void add_favs_to_menu(HMENU favmenu
, HMENU menu
, LPCWSTR dir
)
173 static const WCHAR search
[] = {'*',0};
174 WCHAR path
[MAX_PATH
*2];
177 WIN32_FIND_DATAW finddata
;
178 IUniformResourceLocatorW
* urlobj
;
179 IPersistFile
* urlfile
= NULL
;
183 PathAppendW(path
, search
);
185 findhandle
= FindFirstFileW(path
, &finddata
);
187 if(findhandle
== INVALID_HANDLE_VALUE
)
190 res
= CoCreateInstance(&CLSID_InternetShortcut
, NULL
, CLSCTX_INPROC_SERVER
, &IID_IUniformResourceLocatorW
, (PVOID
*)&urlobj
);
193 res
= IUnknown_QueryInterface((IUnknown
*)urlobj
, &IID_IPersistFile
, (PVOID
*)&urlfile
);
197 filename
= path
+ lstrlenW(path
) - lstrlenW(search
);
201 lstrcpyW(filename
, finddata
.cFileName
);
203 if(finddata
.dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
205 static const WCHAR ignore1
[] = {'.','.',0};
206 static const WCHAR ignore2
[] = {'.',0};
209 if(!lstrcmpW(filename
, ignore1
) || !lstrcmpW(filename
, ignore2
))
212 item
.cbSize
= sizeof(item
);
213 item
.fMask
= MIIM_STRING
| MIIM_SUBMENU
;
214 item
.dwTypeData
= filename
;
215 item
.hSubMenu
= CreatePopupMenu();
216 InsertMenuItemW(menu
, -1, TRUE
, &item
);
217 add_favs_to_menu(favmenu
, item
.hSubMenu
, path
);
220 static const WCHAR urlext
[] = {'.','u','r','l',0};
224 if(lstrcmpiW(PathFindExtensionW(filename
), urlext
))
227 if(FAILED(IPersistFile_Load(urlfile
, path
, 0)))
230 urlobj
->lpVtbl
->GetURL(urlobj
, &url
);
235 fileext
= filename
+ lstrlenW(filename
) - lstrlenW(urlext
);
237 add_fav_to_menu(favmenu
, menu
, filename
, url
);
239 } while(FindNextFileW(findhandle
, &finddata
));
243 IPersistFile_Release(urlfile
);
246 IUnknown_Release((IUnknown
*)urlobj
);
248 FindClose(findhandle
);
251 static void add_tbs_to_menu(HMENU menu
)
253 static const WCHAR toolbar_key
[] = {'S','o','f','t','w','a','r','e','\\',
254 'M','i','c','r','o','s','o','f','t','\\',
255 'I','n','t','e','r','n','e','t',' ',
256 'E','x','p','l','o','r','e','r','\\',
257 'T','o','o','l','b','a','r',0};
258 HUSKEY toolbar_handle
;
260 if(SHRegOpenUSKeyW(toolbar_key
, KEY_READ
, NULL
, &toolbar_handle
, TRUE
) == ERROR_SUCCESS
)
262 static const WCHAR classes_key
[] = {'S','o','f','t','w','a','r','e','\\',
263 'C','l','a','s','s','e','s','\\','C','L','S','I','D',0};
264 HUSKEY classes_handle
;
266 DWORD value_len
= ARRAY_SIZE(guid
);
269 if(SHRegOpenUSKeyW(classes_key
, KEY_READ
, NULL
, &classes_handle
, TRUE
) != ERROR_SUCCESS
)
271 SHRegCloseUSKey(toolbar_handle
);
272 ERR("Failed to open key %s\n", debugstr_w(classes_key
));
276 for(i
= 0; SHRegEnumUSValueW(toolbar_handle
, i
, guid
, &value_len
, NULL
, NULL
, NULL
, SHREGENUM_HKLM
) == ERROR_SUCCESS
; i
++)
279 DWORD tb_name_len
= ARRAY_SIZE(tb_name
);
280 HUSKEY tb_class_handle
;
283 value_len
= ARRAY_SIZE(guid
);
285 if(lstrlenW(guid
) != 38)
287 TRACE("Found invalid IE toolbar entry: %s\n", debugstr_w(guid
));
291 if(SHRegOpenUSKeyW(guid
, KEY_READ
, classes_handle
, &tb_class_handle
, TRUE
) != ERROR_SUCCESS
)
293 ERR("Failed to get class info for %s\n", debugstr_w(guid
));
297 ret
= SHRegQueryUSValueW(tb_class_handle
, NULL
, NULL
, tb_name
, &tb_name_len
, TRUE
, NULL
, 0);
299 SHRegCloseUSKey(tb_class_handle
);
301 if(ret
!= ERROR_SUCCESS
)
303 ERR("Failed to get toolbar name for %s\n", debugstr_w(guid
));
307 item
.cbSize
= sizeof(item
);
308 item
.fMask
= MIIM_STRING
;
309 item
.dwTypeData
= tb_name
;
310 InsertMenuItemW(menu
, GetMenuItemCount(menu
), TRUE
, &item
);
313 SHRegCloseUSKey(classes_handle
);
314 SHRegCloseUSKey(toolbar_handle
);
318 static HMENU
create_ie_menu(void)
320 HMENU menu
= LoadMenuW(ieframe_instance
, MAKEINTRESOURCEW(IDR_BROWSE_MAIN_MENU
));
321 HMENU favmenu
= get_fav_menu(menu
);
322 WCHAR path
[MAX_PATH
];
324 add_tbs_to_menu(get_tb_menu(menu
));
326 if(SHGetFolderPathW(NULL
, CSIDL_COMMON_FAVORITES
, NULL
, SHGFP_TYPE_CURRENT
, path
) == S_OK
)
327 add_favs_to_menu(favmenu
, favmenu
, path
);
329 if(SHGetFolderPathW(NULL
, CSIDL_FAVORITES
, NULL
, SHGFP_TYPE_CURRENT
, path
) == S_OK
)
330 add_favs_to_menu(favmenu
, favmenu
, path
);
335 static void ie_navigate(InternetExplorer
* This
, LPCWSTR url
)
339 V_VT(&variant
) = VT_BSTR
;
340 V_BSTR(&variant
) = SysAllocString(url
);
342 IWebBrowser2_Navigate2(&This
->IWebBrowser2_iface
, &variant
, NULL
, NULL
, NULL
, NULL
);
344 SysFreeString(V_BSTR(&variant
));
347 static INT_PTR CALLBACK
ie_dialog_open_proc(HWND hwnd
, UINT msg
, WPARAM wparam
, LPARAM lparam
)
349 static InternetExplorer
* This
;
354 This
= (InternetExplorer
*)lparam
;
355 EnableWindow(GetDlgItem(hwnd
, IDOK
), FALSE
);
359 switch(LOWORD(wparam
))
361 case IDC_BROWSE_OPEN_URL
:
363 HWND hwndurl
= GetDlgItem(hwnd
, IDC_BROWSE_OPEN_URL
);
364 int len
= GetWindowTextLengthW(hwndurl
);
366 EnableWindow(GetDlgItem(hwnd
, IDOK
), len
!= 0);
371 HWND hwndurl
= GetDlgItem(hwnd
, IDC_BROWSE_OPEN_URL
);
372 int len
= GetWindowTextLengthW(hwndurl
);
378 V_VT(&url
) = VT_BSTR
;
379 V_BSTR(&url
) = SysAllocStringLen(NULL
, len
);
381 GetWindowTextW(hwndurl
, V_BSTR(&url
), len
+ 1);
382 IWebBrowser2_Navigate2(&This
->IWebBrowser2_iface
, &url
, NULL
, NULL
, NULL
, NULL
);
384 SysFreeString(V_BSTR(&url
));
389 EndDialog(hwnd
, wparam
);
396 static void ie_dialog_about(HWND hwnd
)
398 HICON icon
= LoadImageW(GetModuleHandleW(0), MAKEINTRESOURCEW(IDI_APPICON
), IMAGE_ICON
, 48, 48, LR_SHARED
);
400 ShellAboutW(hwnd
, wszWineInternetExplorer
, NULL
, icon
);
405 static void add_tb_separator(InternetExplorer
*ie
)
409 ZeroMemory(&btn
, sizeof(btn
));
412 btn
.fsStyle
= BTNS_SEP
;
413 SendMessageW(ie
->toolbar_hwnd
, TB_ADDBUTTONSW
, 1, (LPARAM
)&btn
);
416 static void add_tb_button(InternetExplorer
*ie
, int bmp
, int cmd
, int strId
)
421 LoadStringW(ieframe_instance
, strId
, buf
, ARRAY_SIZE(buf
));
425 btn
.fsState
= TBSTATE_ENABLED
;
426 btn
.fsStyle
= BTNS_SHOWTEXT
;
428 btn
.iString
= (INT_PTR
)buf
;
430 SendMessageW(ie
->toolbar_hwnd
, TB_ADDBUTTONSW
, 1, (LPARAM
)&btn
);
433 static void enable_toolbar_button(InternetExplorer
*ie
, int command
, BOOL enable
)
435 SendMessageW(ie
->toolbar_hwnd
, TB_ENABLEBUTTON
, command
, enable
);
438 static void create_rebar(InternetExplorer
*ie
)
443 REBARBANDINFOW bandinf
;
445 HIMAGELIST imagelist
;
448 LoadStringW(ieframe_instance
, IDS_ADDRESS
, addr
, ARRAY_SIZE(addr
));
450 hwndRebar
= CreateWindowExW(WS_EX_TOOLWINDOW
, REBARCLASSNAMEW
, NULL
,
451 WS_CHILD
|WS_VISIBLE
|WS_CLIPSIBLINGS
|WS_CLIPCHILDREN
|RBS_VARHEIGHT
|CCS_TOP
|CCS_NODIVIDER
, 0, 0, 0, 0,
452 ie
->frame_hwnd
, (HMENU
)IDC_BROWSE_REBAR
, ieframe_instance
, NULL
);
454 rebarinf
.cbSize
= sizeof(rebarinf
);
456 rebarinf
.himl
= NULL
;
458 SendMessageW(hwndRebar
, RB_SETBARINFO
, 0, (LPARAM
)&rebarinf
);
460 ie
->toolbar_hwnd
= CreateWindowExW(TBSTYLE_EX_MIXEDBUTTONS
, TOOLBARCLASSNAMEW
, NULL
, TBSTYLE_FLAT
| WS_CHILD
| WS_VISIBLE
| CCS_NORESIZE
,
461 0, 0, 0, 0, hwndRebar
, (HMENU
)IDC_BROWSE_TOOLBAR
, ieframe_instance
, NULL
);
463 imagelist
= ImageList_LoadImageW(ieframe_instance
, MAKEINTRESOURCEW(IDB_IETOOLBAR
), 32, 0, CLR_NONE
, IMAGE_BITMAP
, LR_CREATEDIBSECTION
);
465 SendMessageW(ie
->toolbar_hwnd
, TB_SETIMAGELIST
, 0, (LPARAM
)imagelist
);
466 SendMessageW(ie
->toolbar_hwnd
, TB_BUTTONSTRUCTSIZE
, sizeof(TBBUTTON
), 0);
467 add_tb_button(ie
, 0, ID_BROWSE_BACK
, IDS_TB_BACK
);
468 add_tb_button(ie
, 1, ID_BROWSE_FORWARD
, IDS_TB_FORWARD
);
469 add_tb_button(ie
, 2, ID_BROWSE_STOP
, IDS_TB_STOP
);
470 add_tb_button(ie
, 3, ID_BROWSE_REFRESH
, IDS_TB_REFRESH
);
471 add_tb_button(ie
, 4, ID_BROWSE_HOME
, IDS_TB_HOME
);
472 add_tb_separator(ie
);
473 add_tb_button(ie
, 5, ID_BROWSE_PRINT
, IDS_TB_PRINT
);
474 SendMessageW(ie
->toolbar_hwnd
, TB_SETBUTTONSIZE
, 0, MAKELPARAM(65,50));
475 SendMessageW(ie
->toolbar_hwnd
, TB_GETMAXSIZE
, 0, (LPARAM
)&toolbar_size
);
477 bandinf
.cbSize
= sizeof(bandinf
);
478 bandinf
.fMask
= RBBIM_STYLE
| RBBIM_CHILD
| RBBIM_CHILDSIZE
;
479 bandinf
.fStyle
= RBBS_CHILDEDGE
;
480 bandinf
.cxMinChild
= toolbar_size
.cx
;
481 bandinf
.cyMinChild
= toolbar_size
.cy
+2;
482 bandinf
.hwndChild
= ie
->toolbar_hwnd
;
484 SendMessageW(hwndRebar
, RB_INSERTBANDW
, -1, (LPARAM
)&bandinf
);
486 hwndAddress
= CreateWindowExW(0, WC_COMBOBOXEXW
, NULL
, WS_BORDER
|WS_CHILD
|WS_VISIBLE
|CBS_DROPDOWN
,
487 0, 0, 100,20,hwndRebar
, (HMENU
)IDC_BROWSE_ADDRESSBAR
, ieframe_instance
, NULL
);
489 bandinf
.fMask
|= RBBIM_TEXT
;
490 bandinf
.fStyle
= RBBS_CHILDEDGE
| RBBS_BREAK
;
491 bandinf
.lpText
= addr
;
492 bandinf
.cxMinChild
= 100;
493 bandinf
.cyMinChild
= 20;
494 bandinf
.hwndChild
= hwndAddress
;
496 SendMessageW(hwndRebar
, RB_INSERTBANDW
, -1, (LPARAM
)&bandinf
);
499 static LRESULT
iewnd_OnCreate(HWND hwnd
, LPCREATESTRUCTW lpcs
)
501 InternetExplorer
* This
= (InternetExplorer
*)lpcs
->lpCreateParams
;
502 SetWindowLongPtrW(hwnd
, 0, (LONG_PTR
) lpcs
->lpCreateParams
);
504 This
->doc_host
.frame_hwnd
= This
->frame_hwnd
= hwnd
;
506 This
->menu
= create_ie_menu();
508 This
->status_hwnd
= CreateStatusWindowW(WS_VISIBLE
|WS_CHILD
|SBT_NOBORDERS
|CCS_NODIVIDER
,
509 NULL
, hwnd
, IDC_BROWSE_STATUSBAR
);
510 SendMessageW(This
->status_hwnd
, SB_SIMPLE
, TRUE
, 0);
517 static LRESULT
iewnd_OnSize(InternetExplorer
*This
, INT width
, INT height
)
519 HWND hwndRebar
= GetDlgItem(This
->frame_hwnd
, IDC_BROWSE_REBAR
);
520 INT barHeight
= SendMessageW(hwndRebar
, RB_GETBARHEIGHT
, 0, 0);
521 RECT docarea
= {0, 0, width
, height
};
523 SendMessageW(This
->status_hwnd
, WM_SIZE
, 0, 0);
525 adjust_ie_docobj_rect(This
->frame_hwnd
, &docarea
);
527 if(This
->doc_host
.hwnd
)
528 SetWindowPos(This
->doc_host
.hwnd
, NULL
, docarea
.left
, docarea
.top
, docarea
.right
, docarea
.bottom
,
529 SWP_NOZORDER
| SWP_NOACTIVATE
);
531 SetWindowPos(hwndRebar
, NULL
, 0, 0, width
, barHeight
, SWP_NOZORDER
| SWP_NOACTIVATE
);
536 static LRESULT
iewnd_OnNotify(InternetExplorer
*This
, WPARAM wparam
, LPARAM lparam
)
538 NMHDR
* hdr
= (NMHDR
*)lparam
;
540 if(hdr
->idFrom
== IDC_BROWSE_ADDRESSBAR
&& hdr
->code
== CBEN_ENDEDITW
)
542 NMCBEENDEDITW
* info
= (NMCBEENDEDITW
*)lparam
;
544 if(info
->fChanged
&& info
->iWhy
== CBENF_RETURN
)
549 V_BSTR(&vt
) = SysAllocString(info
->szText
);
551 IWebBrowser2_Navigate2(&This
->IWebBrowser2_iface
, &vt
, NULL
, NULL
, NULL
, NULL
);
553 SysFreeString(V_BSTR(&vt
));
559 if(hdr
->idFrom
== IDC_BROWSE_REBAR
&& hdr
->code
== RBN_HEIGHTCHANGE
)
563 GetClientRect(This
->frame_hwnd
, &docarea
);
564 adjust_ie_docobj_rect(This
->frame_hwnd
, &docarea
);
566 if(This
->doc_host
.hwnd
)
567 SetWindowPos(This
->doc_host
.hwnd
, NULL
, docarea
.left
, docarea
.top
, docarea
.right
, docarea
.bottom
,
568 SWP_NOZORDER
| SWP_NOACTIVATE
);
574 static LRESULT
iewnd_OnDestroy(InternetExplorer
*This
)
576 HIMAGELIST list
= (HIMAGELIST
)SendMessageW(This
->toolbar_hwnd
, TB_GETIMAGELIST
, 0, 0);
580 free_fav_menu_data(get_fav_menu(This
->menu
));
581 ImageList_Destroy(list
);
582 This
->frame_hwnd
= NULL
;
587 static LRESULT
iewnd_OnCommand(InternetExplorer
*This
, HWND hwnd
, UINT msg
, WPARAM wparam
, LPARAM lparam
)
589 switch(LOWORD(wparam
))
592 DialogBoxParamW(ieframe_instance
, MAKEINTRESOURCEW(IDD_BROWSE_OPEN
), hwnd
, ie_dialog_open_proc
, (LPARAM
)This
);
595 case ID_BROWSE_PRINT
:
596 if(This
->doc_host
.document
)
598 IOleCommandTarget
* target
;
600 if(FAILED(IUnknown_QueryInterface(This
->doc_host
.document
, &IID_IOleCommandTarget
, (LPVOID
*)&target
)))
603 IOleCommandTarget_Exec(target
, &CGID_MSHTML
, IDM_PRINT
, OLECMDEXECOPT_DODEFAULT
, NULL
, NULL
);
605 IOleCommandTarget_Release(target
);
610 IWebBrowser2_GoHome(&This
->IWebBrowser2_iface
);
614 IWebBrowser2_GoBack(&This
->IWebBrowser2_iface
);
617 case ID_BROWSE_FORWARD
:
618 IWebBrowser2_GoForward(&This
->IWebBrowser2_iface
);
622 IWebBrowser2_Stop(&This
->IWebBrowser2_iface
);
625 case ID_BROWSE_REFRESH
:
626 IWebBrowser2_Refresh(&This
->IWebBrowser2_iface
);
629 case ID_BROWSE_ABOUT
:
630 ie_dialog_about(hwnd
);
634 ShowWindow(hwnd
, SW_HIDE
);
638 if(LOWORD(wparam
) >= ID_BROWSE_GOTOFAV_FIRST
&& LOWORD(wparam
) <= ID_BROWSE_GOTOFAV_MAX
)
640 LPCWSTR url
= get_fav_url_from_id(get_fav_menu(This
->menu
), LOWORD(wparam
));
643 ie_navigate(This
, url
);
645 return DefWindowProcW(hwnd
, msg
, wparam
, lparam
);
650 static LRESULT
update_addrbar(InternetExplorer
*This
, LPARAM lparam
)
652 HWND hwndRebar
= GetDlgItem(This
->frame_hwnd
, IDC_BROWSE_REBAR
);
653 HWND hwndAddress
= GetDlgItem(hwndRebar
, IDC_BROWSE_ADDRESSBAR
);
654 HWND hwndEdit
= (HWND
)SendMessageW(hwndAddress
, CBEM_GETEDITCONTROL
, 0, 0);
655 LPCWSTR url
= (LPCWSTR
)lparam
;
657 SendMessageW(hwndEdit
, WM_SETTEXT
, 0, (LPARAM
)url
);
662 static LRESULT WINAPI
ie_window_proc(HWND hwnd
, UINT msg
, WPARAM wparam
, LPARAM lparam
)
664 InternetExplorer
*This
= (InternetExplorer
*) GetWindowLongPtrW(hwnd
, 0);
669 return iewnd_OnCreate(hwnd
, (LPCREATESTRUCTW
)lparam
);
672 ShowWindow(hwnd
, SW_HIDE
);
675 TRACE("WM_SHOWWINDOW %Ix\n", wparam
);
677 IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
678 InterlockedIncrement(&This
->extern_ref
);
680 release_extern_ref(This
, TRUE
);
681 IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
685 return iewnd_OnDestroy(This
);
687 return iewnd_OnSize(This
, LOWORD(lparam
), HIWORD(lparam
));
689 return iewnd_OnCommand(This
, hwnd
, msg
, wparam
, lparam
);
691 return iewnd_OnNotify(This
, wparam
, lparam
);
693 return process_dochost_tasks(&This
->doc_host
);
694 case WM_UPDATEADDRBAR
:
695 return update_addrbar(This
, lparam
);
697 return DefWindowProcW(hwnd
, msg
, wparam
, lparam
);
700 void register_iewindow_class(void)
704 memset(&wc
, 0, sizeof wc
);
705 wc
.cbSize
= sizeof(wc
);
707 wc
.lpfnWndProc
= ie_window_proc
;
709 wc
.cbWndExtra
= sizeof(InternetExplorer
*);
710 wc
.hInstance
= ieframe_instance
;
711 wc
.hIcon
= LoadIconW(GetModuleHandleW(0), MAKEINTRESOURCEW(IDI_APPICON
));
712 wc
.hIconSm
= LoadImageW(GetModuleHandleW(0), MAKEINTRESOURCEW(IDI_APPICON
), IMAGE_ICON
,
713 GetSystemMetrics(SM_CXSMICON
), GetSystemMetrics(SM_CYSMICON
), LR_SHARED
);
714 wc
.hCursor
= LoadCursorW(0, (LPWSTR
)IDC_ARROW
);
715 wc
.hbrBackground
= 0;
716 wc
.lpszClassName
= szIEWinFrame
;
717 wc
.lpszMenuName
= NULL
;
719 RegisterClassExW(&wc
);
722 void unregister_iewindow_class(void)
724 UnregisterClassW(szIEWinFrame
, ieframe_instance
);
727 static void create_frame_hwnd(InternetExplorer
*This
)
731 szIEWinFrame
, wszWineInternetExplorer
,
732 WS_CLIPCHILDREN
| WS_CAPTION
| WS_SYSMENU
| WS_THICKFRAME
733 | WS_MINIMIZEBOX
| WS_MAXIMIZEBOX
,
734 CW_USEDEFAULT
, CW_USEDEFAULT
, CW_USEDEFAULT
, CW_USEDEFAULT
,
735 NULL
, NULL
/* FIXME */, ieframe_instance
, This
);
737 create_doc_view_hwnd(&This
->doc_host
);
740 static inline InternetExplorer
*impl_from_DocHost(DocHost
*iface
)
742 return CONTAINING_RECORD(iface
, InternetExplorer
, doc_host
);
745 static ULONG
IEDocHost_addref(DocHost
*iface
)
747 InternetExplorer
*This
= impl_from_DocHost(iface
);
748 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
751 static ULONG
IEDocHost_release(DocHost
*iface
)
753 InternetExplorer
*This
= impl_from_DocHost(iface
);
754 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
757 static void DocHostContainer_get_docobj_rect(DocHost
*This
, RECT
*rc
)
759 GetClientRect(This
->frame_hwnd
, rc
);
760 adjust_ie_docobj_rect(This
->frame_hwnd
, rc
);
763 static HRESULT
DocHostContainer_set_status_text(DocHost
*iface
, const WCHAR
*text
)
765 InternetExplorer
*This
= impl_from_DocHost(iface
);
766 return update_ie_statustext(This
, text
);
769 static void DocHostContainer_on_command_state_change(DocHost
*iface
, LONG command
, BOOL enable
)
771 InternetExplorer
*This
= impl_from_DocHost(iface
);
774 case CSC_NAVIGATEBACK
:
775 enable_toolbar_button(This
, ID_BROWSE_BACK
, enable
);
777 case CSC_NAVIGATEFORWARD
:
778 enable_toolbar_button(This
, ID_BROWSE_FORWARD
, enable
);
783 static void DocHostContainer_set_url(DocHost
* iface
, const WCHAR
*url
)
785 InternetExplorer
*This
= impl_from_DocHost(iface
);
786 const WCHAR
*orig_url
= error_url_frag(url
);
791 This
->nohome
= FALSE
;
792 SendMessageW(This
->frame_hwnd
, WM_UPDATEADDRBAR
, 0, (LPARAM
)url
);
795 static const IDocHostContainerVtbl DocHostContainerVtbl
= {
798 DocHostContainer_get_docobj_rect
,
799 DocHostContainer_set_status_text
,
800 DocHostContainer_on_command_state_change
,
801 DocHostContainer_set_url
804 static HRESULT
create_ie(InternetExplorer
**ret_obj
)
806 InternetExplorer
*ret
;
808 ret
= calloc(1, sizeof(InternetExplorer
));
810 return E_OUTOFMEMORY
;
814 DocHost_Init(&ret
->doc_host
, &ret
->IWebBrowser2_iface
, &DocHostContainerVtbl
);
816 InternetExplorer_WebBrowser_Init(ret
);
818 HlinkFrame_Init(&ret
->hlink_frame
, (IUnknown
*)&ret
->IWebBrowser2_iface
, &ret
->doc_host
);
820 create_frame_hwnd(ret
);
822 InterlockedIncrement(&obj_cnt
);
823 list_add_tail(&ie_list
, &ret
->entry
);
828 HRESULT WINAPI
InternetExplorer_Create(IClassFactory
*iface
, IUnknown
*pOuter
, REFIID riid
, void **ppv
)
830 InternetExplorer
*ret
;
833 TRACE("(%p %s %p)\n", pOuter
, debugstr_guid(riid
), ppv
);
835 hres
= create_ie(&ret
);
839 hres
= IWebBrowser2_QueryInterface(&ret
->IWebBrowser2_iface
, riid
, ppv
);
840 IWebBrowser2_Release(&ret
->IWebBrowser2_iface
);
847 /******************************************************************
848 * IInternetExplorerManager implementation
850 struct InternetExplorerManager
{
851 IInternetExplorerManager IInternetExplorerManager_iface
;
855 static inline InternetExplorerManager
*impl_from_IInternetExplorerManager(IInternetExplorerManager
*iface
)
857 return CONTAINING_RECORD(iface
, InternetExplorerManager
, IInternetExplorerManager_iface
);
860 static HRESULT WINAPI
InternetExplorerManager_QueryInterface(IInternetExplorerManager
*iface
, REFIID riid
, void **out
)
862 TRACE("(%p)->(%s, %p)\n", iface
, debugstr_guid(riid
), out
);
864 if (IsEqualGUID(riid
, &IID_IInternetExplorerManager
) || IsEqualGUID(riid
, &IID_IUnknown
))
866 IInternetExplorerManager_AddRef(iface
);
871 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
873 return E_NOINTERFACE
;
876 static ULONG WINAPI
InternetExplorerManager_AddRef(IInternetExplorerManager
*iface
)
878 InternetExplorerManager
*This
= impl_from_IInternetExplorerManager(iface
);
879 ULONG ref
= InterlockedIncrement(&This
->ref
);
881 TRACE("(%p) increasing refcount to %lu\n", iface
, ref
);
886 static ULONG WINAPI
InternetExplorerManager_Release(IInternetExplorerManager
*iface
)
888 InternetExplorerManager
*This
= impl_from_IInternetExplorerManager(iface
);
889 ULONG ref
= InterlockedDecrement(&This
->ref
);
891 TRACE("(%p) decreasing refcount to %lu\n", iface
, ref
);
902 static HRESULT WINAPI
InternetExplorerManager_CreateObject(IInternetExplorerManager
*iface
, DWORD config
, LPCWSTR url
, REFIID riid
, void **ppv
)
904 FIXME("(%p)->(0x%lx, %s, %s, %p) stub!\n", iface
, config
, debugstr_w(url
), debugstr_guid(riid
), ppv
);
909 static const IInternetExplorerManagerVtbl InternetExplorerManager_vtbl
=
911 InternetExplorerManager_QueryInterface
,
912 InternetExplorerManager_AddRef
,
913 InternetExplorerManager_Release
,
914 InternetExplorerManager_CreateObject
,
917 HRESULT WINAPI
InternetExplorerManager_Create(IClassFactory
*iface
, IUnknown
*pOuter
, REFIID riid
, void **ppv
)
919 InternetExplorerManager
*ret
;
922 TRACE("(%p %s %p)\n", pOuter
, debugstr_guid(riid
), ppv
);
924 if (!(ret
= calloc(1, sizeof(*ret
))))
925 return E_OUTOFMEMORY
;
927 ret
->IInternetExplorerManager_iface
.lpVtbl
= &InternetExplorerManager_vtbl
;
930 hr
= IInternetExplorerManager_QueryInterface(&ret
->IInternetExplorerManager_iface
, riid
, ppv
);
931 IInternetExplorerManager_Release(&ret
->IInternetExplorerManager_iface
);
933 InterlockedIncrement(&obj_cnt
);
937 void released_obj(void)
939 if(!InterlockedDecrement(&obj_cnt
))
943 static BOOL
create_ie_window(BOOL nohome
, const WCHAR
*cmdline
)
945 InternetExplorer
*ie
;
948 hres
= create_ie(&ie
);
952 IWebBrowser2_put_Visible(&ie
->IWebBrowser2_iface
, VARIANT_TRUE
);
953 IWebBrowser2_put_MenuBar(&ie
->IWebBrowser2_iface
, VARIANT_TRUE
);
959 IWebBrowser2_GoHome(&ie
->IWebBrowser2_iface
);
964 cmdlen
= lstrlenW(cmdline
);
965 if(cmdlen
> 2 && cmdline
[0] == '"' && cmdline
[cmdlen
-1] == '"') {
970 V_VT(&var_url
) = VT_BSTR
;
971 V_BSTR(&var_url
) = SysAllocStringLen(cmdline
, cmdlen
);
973 /* navigate to the first page */
974 IWebBrowser2_Navigate2(&ie
->IWebBrowser2_iface
, &var_url
, NULL
, NULL
, NULL
, NULL
);
976 SysFreeString(V_BSTR(&var_url
));
979 IWebBrowser2_Release(&ie
->IWebBrowser2_iface
);
983 static HDDEDATA
open_dde_url(WCHAR
*dde_url
)
985 InternetExplorer
*ie
= NULL
, *iter
;
986 WCHAR
*url
, *url_end
;
990 TRACE("%s\n", debugstr_w(dde_url
));
995 url_end
= wcschr(url
, '"');
997 FIXME("missing string terminator\n");
1002 url_end
= wcschr(url
, ',');
1006 url_end
= url
+ lstrlenW(url
);
1009 LIST_FOR_EACH_ENTRY(iter
, &ie_list
, InternetExplorer
, entry
) {
1011 IWebBrowser2_AddRef(&iter
->IWebBrowser2_iface
);
1018 hres
= create_ie(&ie
);
1023 IWebBrowser2_put_Visible(&ie
->IWebBrowser2_iface
, VARIANT_TRUE
);
1024 IWebBrowser2_put_MenuBar(&ie
->IWebBrowser2_iface
, VARIANT_TRUE
);
1026 V_VT(&urlv
) = VT_BSTR
;
1027 V_BSTR(&urlv
) = SysAllocStringLen(url
, url_end
-url
);
1028 if(!V_BSTR(&urlv
)) {
1029 IWebBrowser2_Release(&ie
->IWebBrowser2_iface
);
1033 hres
= IWebBrowser2_Navigate2(&ie
->IWebBrowser2_iface
, &urlv
, NULL
, NULL
, NULL
, NULL
);
1035 SysFreeString(V_BSTR(&urlv
));
1036 IWebBrowser2_Release(&ie
->IWebBrowser2_iface
);
1040 return ULongToHandle(DDE_FACK
);
1043 static HDDEDATA WINAPI
dde_proc(UINT type
, UINT uFmt
, HCONV hConv
, HSZ hsz1
, HSZ hsz2
, HDDEDATA data
,
1044 ULONG_PTR dwData1
, ULONG_PTR dwData2
)
1048 TRACE("XTYP_CONNECT %p\n", hsz1
);
1049 return ULongToHandle(!DdeCmpStringHandles(hsz1
, ddestr_openurl
));
1051 case XTYP_EXECUTE
: {
1056 TRACE("XTYP_EXECUTE %p\n", data
);
1058 size
= DdeGetData(data
, NULL
, 0, 0);
1068 if(DdeGetData(data
, (BYTE
*)url
, size
, 0) != size
) {
1069 ERR("error during read\n");
1074 ret
= open_dde_url(url
);
1081 FIXME("XTYP_REQUEST\n");
1085 TRACE("type %d\n", type
);
1091 static void init_dde(void)
1095 static const WCHAR iexploreW
[] = {'I','E','x','p','l','o','r','e',0};
1096 static const WCHAR openurlW
[] = {'W','W','W','_','O','p','e','n','U','R','L',0};
1098 res
= DdeInitializeW(&dde_inst
, dde_proc
, CBF_SKIP_ALLNOTIFICATIONS
| CBF_FAIL_ADVISES
| CBF_FAIL_POKES
, 0);
1099 if(res
!= DMLERR_NO_ERROR
) {
1100 WARN("DdeInitialize failed: %u\n", res
);
1104 ddestr_iexplore
= DdeCreateStringHandleW(dde_inst
, iexploreW
, CP_WINUNICODE
);
1105 if(!ddestr_iexplore
)
1106 WARN("Failed to create string handle: %u\n", DdeGetLastError(dde_inst
));
1108 ddestr_openurl
= DdeCreateStringHandleW(dde_inst
, openurlW
, CP_WINUNICODE
);
1110 WARN("Failed to create string handle: %u\n", DdeGetLastError(dde_inst
));
1112 if(!DdeNameService(dde_inst
, ddestr_iexplore
, 0, DNS_REGISTER
))
1113 WARN("DdeNameService failed\n");
1116 static void release_dde(void)
1119 DdeNameService(dde_inst
, ddestr_iexplore
, 0, DNS_UNREGISTER
);
1121 DdeFreeStringHandle(dde_inst
, ddestr_openurl
);
1123 DdeFreeStringHandle(dde_inst
, ddestr_iexplore
);
1124 DdeUninitialize(dde_inst
);
1127 /******************************************************************
1128 * IEWinMain (ieframe.101)
1130 * Only returns on error.
1132 DWORD WINAPI
IEWinMain(const WCHAR
*cmdline
, int nShowWindow
)
1134 BOOL embedding
= FALSE
, nohome
= FALSE
, manager
= FALSE
, activated
= FALSE
;
1137 HANDLE context
= INVALID_HANDLE_VALUE
;
1138 DWORD reg_cookie
, ret
= 1;
1139 ULONG_PTR context_cookie
;
1142 static const WCHAR embeddingW
[] = {'-','e','m','b','e','d','d','i','n','g',0};
1143 static const WCHAR nohomeW
[] = {'-','n','o','h','o','m','e',0};
1144 static const WCHAR startmanagerW
[] = {'-','s','t','a','r','t','m','a','n','a','g','e','r',0};
1146 TRACE("%s %d\n", debugstr_w(cmdline
), nShowWindow
);
1150 memset(&actctx
, 0, sizeof(actctx
));
1151 actctx
.cbSize
= sizeof(actctx
);
1152 actctx
.hModule
= ieframe_instance
;
1153 actctx
.lpResourceName
= MAKEINTRESOURCEW(123);
1154 actctx
.dwFlags
= ACTCTX_FLAG_HMODULE_VALID
| ACTCTX_FLAG_RESOURCE_NAME_VALID
;
1155 context
= CreateActCtxW(&actctx
);
1156 if (context
!= INVALID_HANDLE_VALUE
)
1157 activated
= ActivateActCtx(context
, &context_cookie
);
1165 while (*cmdline
== ' ' || *cmdline
== '\t') cmdline
++;
1166 if (!*cmdline
) break;
1168 while (cmdline
[length
] && cmdline
[length
] != ' ' && cmdline
[length
] != '\t') length
++;
1170 if (!wcsnicmp(cmdline
, embeddingW
, length
))
1172 else if (!wcsnicmp(cmdline
, nohomeW
, length
))
1174 else if (!wcsnicmp(cmdline
, startmanagerW
, length
))
1183 hres
= CoRegisterClassObject(&CLSID_InternetExplorerManager
,
1184 (IUnknown
*)&InternetExplorerManagerFactory
, CLSCTX_SERVER
,
1185 REGCLS_SINGLEUSE
, ®_cookie
);
1187 hres
= CoRegisterClassObject(&CLSID_InternetExplorer
,
1188 (IUnknown
*)&InternetExplorerFactory
, CLSCTX_SERVER
,
1189 REGCLS_MULTIPLEUSE
, ®_cookie
);
1193 ERR("failed to register CLSID_InternetExplorer%s: %08lx\n", manager
? "Manager" : "", hres
);
1199 if(!create_ie_window(nohome
, cmdline
))
1203 /* run the message loop for this thread */
1204 while (GetMessageW(&msg
, 0, 0, 0))
1206 TranslateMessage(&msg
);
1207 DispatchMessageW(&msg
);
1210 CoRevokeClassObject(reg_cookie
);
1217 DeactivateActCtx(0, context_cookie
);
1218 ReleaseActCtx(context
);