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
29 #define WM_UPDATEADDRBAR (WM_APP+1)
31 static const WCHAR szIEWinFrame
[] = { 'I','E','F','r','a','m','e',0 };
33 /* Windows uses "Microsoft Internet Explorer" */
34 static const WCHAR wszWineInternetExplorer
[] =
35 {'W','i','n','e',' ','I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r',0};
38 static DWORD dde_inst
;
39 static HSZ ddestr_iexplore
, ddestr_openurl
;
40 static struct list ie_list
= LIST_INIT(ie_list
);
42 HRESULT
update_ie_statustext(InternetExplorer
* This
, LPCWSTR text
)
44 if(!SendMessageW(This
->status_hwnd
, SB_SETTEXTW
, MAKEWORD(SB_SIMPLEID
, 0), (LPARAM
)text
))
50 static void adjust_ie_docobj_rect(HWND frame
, RECT
* rc
)
52 HWND hwndRebar
= GetDlgItem(frame
, IDC_BROWSE_REBAR
);
53 HWND hwndStatus
= GetDlgItem(frame
, IDC_BROWSE_STATUSBAR
);
54 INT barHeight
= SendMessageW(hwndRebar
, RB_GETBARHEIGHT
, 0, 0);
57 rc
->bottom
-= barHeight
;
59 if(IsWindowVisible(hwndStatus
))
63 GetClientRect(hwndStatus
, &statusrc
);
64 rc
->bottom
-= statusrc
.bottom
- statusrc
.top
;
68 static HMENU
get_tb_menu(HMENU menu
)
70 HMENU menu_view
= GetSubMenu(menu
, 1);
72 return GetSubMenu(menu_view
, 0);
75 static HMENU
get_fav_menu(HMENU menu
)
77 return GetSubMenu(menu
, 2);
80 static LPWSTR
get_fav_url_from_id(HMENU menu
, UINT id
)
84 item
.cbSize
= sizeof(item
);
85 item
.fMask
= MIIM_DATA
;
87 if(!GetMenuItemInfoW(menu
, id
, FALSE
, &item
))
90 return (LPWSTR
)item
.dwItemData
;
93 static void free_fav_menu_data(HMENU menu
)
98 for(i
= 0; (url
= get_fav_url_from_id(menu
, ID_BROWSE_GOTOFAV_FIRST
+ i
)); i
++)
102 static int get_menu_item_count(HMENU menu
)
108 item
.cbSize
= sizeof(item
);
109 item
.fMask
= MIIM_DATA
| MIIM_SUBMENU
;
111 for(i
= 0; GetMenuItemInfoW(menu
, i
, TRUE
, &item
); i
++)
114 count
+= get_menu_item_count(item
.hSubMenu
);
122 static void add_fav_to_menu(HMENU favmenu
, HMENU menu
, LPWSTR title
, LPCWSTR url
)
125 /* Subtract the number of standard elements in the Favorites menu */
126 int favcount
= get_menu_item_count(favmenu
) - 2;
129 if(favcount
> (ID_BROWSE_GOTOFAV_MAX
- ID_BROWSE_GOTOFAV_FIRST
))
131 FIXME("Add support for more than %d Favorites\n", favcount
);
135 urlbuf
= heap_alloc((lstrlenW(url
) + 1) * sizeof(WCHAR
));
140 lstrcpyW(urlbuf
, url
);
142 item
.cbSize
= sizeof(item
);
143 item
.fMask
= MIIM_FTYPE
| MIIM_STRING
| MIIM_DATA
| MIIM_ID
;
144 item
.fType
= MFT_STRING
;
145 item
.dwTypeData
= title
;
146 item
.wID
= ID_BROWSE_GOTOFAV_FIRST
+ favcount
;
147 item
.dwItemData
= (ULONG_PTR
)urlbuf
;
148 InsertMenuItemW(menu
, -1, TRUE
, &item
);
151 static void add_favs_to_menu(HMENU favmenu
, HMENU menu
, LPCWSTR dir
)
153 WCHAR path
[MAX_PATH
*2];
154 const WCHAR search
[] = {'*',0};
157 WIN32_FIND_DATAW finddata
;
158 IUniformResourceLocatorW
* urlobj
;
159 IPersistFile
* urlfile
= NULL
;
163 PathAppendW(path
, search
);
165 findhandle
= FindFirstFileW(path
, &finddata
);
167 if(findhandle
== INVALID_HANDLE_VALUE
)
170 res
= CoCreateInstance(&CLSID_InternetShortcut
, NULL
, CLSCTX_INPROC_SERVER
, &IID_IUniformResourceLocatorW
, (PVOID
*)&urlobj
);
173 res
= IUnknown_QueryInterface((IUnknown
*)urlobj
, &IID_IPersistFile
, (PVOID
*)&urlfile
);
177 filename
= path
+ lstrlenW(path
) - lstrlenW(search
);
181 lstrcpyW(filename
, finddata
.cFileName
);
183 if(finddata
.dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
)
186 const WCHAR ignore1
[] = {'.','.',0};
187 const WCHAR ignore2
[] = {'.',0};
189 if(!lstrcmpW(filename
, ignore1
) || !lstrcmpW(filename
, ignore2
))
192 item
.cbSize
= sizeof(item
);
193 item
.fMask
= MIIM_STRING
| MIIM_SUBMENU
;
194 item
.dwTypeData
= filename
;
195 item
.hSubMenu
= CreatePopupMenu();
196 InsertMenuItemW(menu
, -1, TRUE
, &item
);
197 add_favs_to_menu(favmenu
, item
.hSubMenu
, path
);
202 const WCHAR urlext
[] = {'.','u','r','l',0};
204 if(lstrcmpiW(PathFindExtensionW(filename
), urlext
))
207 if(FAILED(IPersistFile_Load(urlfile
, path
, 0)))
210 urlobj
->lpVtbl
->GetURL(urlobj
, &url
);
215 fileext
= filename
+ lstrlenW(filename
) - lstrlenW(urlext
);
217 add_fav_to_menu(favmenu
, menu
, filename
, url
);
219 } while(FindNextFileW(findhandle
, &finddata
));
223 IPersistFile_Release(urlfile
);
226 IUnknown_Release((IUnknown
*)urlobj
);
228 FindClose(findhandle
);
231 static void add_tbs_to_menu(HMENU menu
)
233 HUSKEY toolbar_handle
;
234 WCHAR toolbar_key
[] = {'S','o','f','t','w','a','r','e','\\',
235 'M','i','c','r','o','s','o','f','t','\\',
236 'I','n','t','e','r','n','e','t',' ',
237 'E','x','p','l','o','r','e','r','\\',
238 'T','o','o','l','b','a','r',0};
240 if(SHRegOpenUSKeyW(toolbar_key
, KEY_READ
, NULL
, &toolbar_handle
, TRUE
) == ERROR_SUCCESS
)
242 HUSKEY classes_handle
;
243 WCHAR classes_key
[] = {'S','o','f','t','w','a','r','e','\\',
244 'C','l','a','s','s','e','s','\\','C','L','S','I','D',0};
246 DWORD value_len
= sizeof(guid
)/sizeof(guid
[0]);
249 if(SHRegOpenUSKeyW(classes_key
, KEY_READ
, NULL
, &classes_handle
, TRUE
) != ERROR_SUCCESS
)
251 SHRegCloseUSKey(toolbar_handle
);
252 ERR("Failed to open key %s\n", debugstr_w(classes_key
));
256 for(i
= 0; SHRegEnumUSValueW(toolbar_handle
, i
, guid
, &value_len
, NULL
, NULL
, NULL
, SHREGENUM_HKLM
) == ERROR_SUCCESS
; i
++)
259 DWORD tb_name_len
= sizeof(tb_name
)/sizeof(tb_name
[0]);
260 HUSKEY tb_class_handle
;
263 value_len
= sizeof(guid
)/sizeof(guid
[0]);
265 if(lstrlenW(guid
) != 38)
267 TRACE("Found invalid IE toolbar entry: %s\n", debugstr_w(guid
));
271 if(SHRegOpenUSKeyW(guid
, KEY_READ
, classes_handle
, &tb_class_handle
, TRUE
) != ERROR_SUCCESS
)
273 ERR("Failed to get class info for %s\n", debugstr_w(guid
));
277 ret
= SHRegQueryUSValueW(tb_class_handle
, NULL
, NULL
, tb_name
, &tb_name_len
, TRUE
, NULL
, 0);
279 SHRegCloseUSKey(tb_class_handle
);
281 if(ret
!= ERROR_SUCCESS
)
283 ERR("Failed to get toolbar name for %s\n", debugstr_w(guid
));
287 item
.cbSize
= sizeof(item
);
288 item
.fMask
= MIIM_STRING
;
289 item
.dwTypeData
= tb_name
;
290 InsertMenuItemW(menu
, GetMenuItemCount(menu
), TRUE
, &item
);
293 SHRegCloseUSKey(classes_handle
);
294 SHRegCloseUSKey(toolbar_handle
);
298 static HMENU
create_ie_menu(void)
300 HMENU menu
= LoadMenuW(ieframe_instance
, MAKEINTRESOURCEW(IDR_BROWSE_MAIN_MENU
));
301 HMENU favmenu
= get_fav_menu(menu
);
302 WCHAR path
[MAX_PATH
];
304 add_tbs_to_menu(get_tb_menu(menu
));
306 if(SHGetFolderPathW(NULL
, CSIDL_COMMON_FAVORITES
, NULL
, SHGFP_TYPE_CURRENT
, path
) == S_OK
)
307 add_favs_to_menu(favmenu
, favmenu
, path
);
309 if(SHGetFolderPathW(NULL
, CSIDL_FAVORITES
, NULL
, SHGFP_TYPE_CURRENT
, path
) == S_OK
)
310 add_favs_to_menu(favmenu
, favmenu
, path
);
315 static void ie_navigate(InternetExplorer
* This
, LPCWSTR url
)
319 V_VT(&variant
) = VT_BSTR
;
320 V_BSTR(&variant
) = SysAllocString(url
);
322 IWebBrowser2_Navigate2(&This
->IWebBrowser2_iface
, &variant
, NULL
, NULL
, NULL
, NULL
);
324 SysFreeString(V_BSTR(&variant
));
327 static INT_PTR CALLBACK
ie_dialog_open_proc(HWND hwnd
, UINT msg
, WPARAM wparam
, LPARAM lparam
)
329 static InternetExplorer
* This
;
334 This
= (InternetExplorer
*)lparam
;
335 EnableWindow(GetDlgItem(hwnd
, IDOK
), FALSE
);
339 switch(LOWORD(wparam
))
341 case IDC_BROWSE_OPEN_URL
:
343 HWND hwndurl
= GetDlgItem(hwnd
, IDC_BROWSE_OPEN_URL
);
344 int len
= GetWindowTextLengthW(hwndurl
);
346 EnableWindow(GetDlgItem(hwnd
, IDOK
), len
!= 0);
351 HWND hwndurl
= GetDlgItem(hwnd
, IDC_BROWSE_OPEN_URL
);
352 int len
= GetWindowTextLengthW(hwndurl
);
358 V_VT(&url
) = VT_BSTR
;
359 V_BSTR(&url
) = SysAllocStringLen(NULL
, len
);
361 GetWindowTextW(hwndurl
, V_BSTR(&url
), len
+ 1);
362 IWebBrowser2_Navigate2(&This
->IWebBrowser2_iface
, &url
, NULL
, NULL
, NULL
, NULL
);
364 SysFreeString(V_BSTR(&url
));
369 EndDialog(hwnd
, wparam
);
376 static void ie_dialog_about(HWND hwnd
)
378 HICON icon
= LoadImageW(GetModuleHandleW(0), MAKEINTRESOURCEW(IDI_APPICON
), IMAGE_ICON
, 48, 48, LR_SHARED
);
380 ShellAboutW(hwnd
, wszWineInternetExplorer
, NULL
, icon
);
386 static void ie_dialog_properties(HWND hwnd
)
388 ShellExecuteW(hwnd
, NULL
, L
"inetcpl.cpl", NULL
, NULL
, 0);
392 static void add_tb_separator(InternetExplorer
*ie
)
396 ZeroMemory(&btn
, sizeof(btn
));
399 btn
.fsStyle
= BTNS_SEP
;
400 SendMessageW(ie
->toolbar_hwnd
, TB_ADDBUTTONSW
, 1, (LPARAM
)&btn
);
403 static void add_tb_button(InternetExplorer
*ie
, int bmp
, int cmd
, int strId
)
408 LoadStringW(ieframe_instance
, strId
, buf
, sizeof(buf
)/sizeof(buf
[0]));
412 btn
.fsState
= TBSTATE_ENABLED
;
413 btn
.fsStyle
= BTNS_SHOWTEXT
;
415 btn
.iString
= (INT_PTR
)buf
;
417 SendMessageW(ie
->toolbar_hwnd
, TB_ADDBUTTONSW
, 1, (LPARAM
)&btn
);
420 static void enable_toolbar_button(InternetExplorer
*ie
, int command
, BOOL enable
)
422 SendMessageW(ie
->toolbar_hwnd
, TB_ENABLEBUTTON
, command
, enable
);
425 static void create_rebar(InternetExplorer
*ie
)
430 REBARBANDINFOW bandinf
;
432 HIMAGELIST imagelist
;
435 LoadStringW(ieframe_instance
, IDS_ADDRESS
, addr
, sizeof(addr
)/sizeof(addr
[0]));
437 hwndRebar
= CreateWindowExW(WS_EX_TOOLWINDOW
, REBARCLASSNAMEW
, NULL
,
438 WS_CHILD
|WS_VISIBLE
|WS_CLIPSIBLINGS
|WS_CLIPCHILDREN
|RBS_VARHEIGHT
|CCS_TOP
|CCS_NODIVIDER
, 0, 0, 0, 0,
439 ie
->frame_hwnd
, (HMENU
)IDC_BROWSE_REBAR
, ieframe_instance
, NULL
);
441 rebarinf
.cbSize
= sizeof(rebarinf
);
443 rebarinf
.himl
= NULL
;
445 SendMessageW(hwndRebar
, RB_SETBARINFO
, 0, (LPARAM
)&rebarinf
);
447 ie
->toolbar_hwnd
= CreateWindowExW(TBSTYLE_EX_MIXEDBUTTONS
, TOOLBARCLASSNAMEW
, NULL
, TBSTYLE_FLAT
| WS_CHILD
| WS_VISIBLE
| CCS_NORESIZE
,
448 0, 0, 0, 0, hwndRebar
, (HMENU
)IDC_BROWSE_TOOLBAR
, ieframe_instance
, NULL
);
450 imagelist
= ImageList_LoadImageW(ieframe_instance
, MAKEINTRESOURCEW(IDB_IETOOLBAR
), 32, 0, CLR_NONE
, IMAGE_BITMAP
, LR_CREATEDIBSECTION
);
452 SendMessageW(ie
->toolbar_hwnd
, TB_SETIMAGELIST
, 0, (LPARAM
)imagelist
);
453 SendMessageW(ie
->toolbar_hwnd
, TB_BUTTONSTRUCTSIZE
, sizeof(TBBUTTON
), 0);
454 add_tb_button(ie
, 0, ID_BROWSE_BACK
, IDS_TB_BACK
);
455 add_tb_button(ie
, 1, ID_BROWSE_FORWARD
, IDS_TB_FORWARD
);
456 add_tb_button(ie
, 2, ID_BROWSE_STOP
, IDS_TB_STOP
);
457 add_tb_button(ie
, 3, ID_BROWSE_REFRESH
, IDS_TB_REFRESH
);
458 add_tb_button(ie
, 4, ID_BROWSE_HOME
, IDS_TB_HOME
);
459 add_tb_separator(ie
);
460 add_tb_button(ie
, 5, ID_BROWSE_PRINT
, IDS_TB_PRINT
);
461 SendMessageW(ie
->toolbar_hwnd
, TB_SETBUTTONSIZE
, 0, MAKELPARAM(55,50));
462 SendMessageW(ie
->toolbar_hwnd
, TB_GETMAXSIZE
, 0, (LPARAM
)&toolbar_size
);
464 bandinf
.cbSize
= sizeof(bandinf
);
465 bandinf
.fMask
= RBBIM_STYLE
| RBBIM_CHILD
| RBBIM_CHILDSIZE
;
466 bandinf
.fStyle
= RBBS_CHILDEDGE
;
467 bandinf
.cxMinChild
= toolbar_size
.cx
;
468 bandinf
.cyMinChild
= toolbar_size
.cy
+2;
469 bandinf
.hwndChild
= ie
->toolbar_hwnd
;
471 SendMessageW(hwndRebar
, RB_INSERTBANDW
, -1, (LPARAM
)&bandinf
);
473 hwndAddress
= CreateWindowExW(0, WC_COMBOBOXEXW
, NULL
, WS_BORDER
|WS_CHILD
|WS_VISIBLE
|CBS_DROPDOWN
,
474 0, 0, 100,20,hwndRebar
, (HMENU
)IDC_BROWSE_ADDRESSBAR
, ieframe_instance
, NULL
);
476 bandinf
.fMask
|= RBBIM_TEXT
;
477 bandinf
.fStyle
= RBBS_CHILDEDGE
| RBBS_BREAK
;
478 bandinf
.lpText
= addr
;
479 bandinf
.cxMinChild
= 100;
480 bandinf
.cyMinChild
= 20;
481 bandinf
.hwndChild
= hwndAddress
;
483 SendMessageW(hwndRebar
, RB_INSERTBANDW
, -1, (LPARAM
)&bandinf
);
486 static LRESULT
iewnd_OnCreate(HWND hwnd
, LPCREATESTRUCTW lpcs
)
488 InternetExplorer
* This
= (InternetExplorer
*)lpcs
->lpCreateParams
;
489 SetWindowLongPtrW(hwnd
, 0, (LONG_PTR
) lpcs
->lpCreateParams
);
491 This
->doc_host
.frame_hwnd
= This
->frame_hwnd
= hwnd
;
493 This
->menu
= create_ie_menu();
495 This
->status_hwnd
= CreateStatusWindowW(WS_VISIBLE
|WS_CHILD
|SBT_NOBORDERS
|CCS_NODIVIDER
,
496 NULL
, hwnd
, IDC_BROWSE_STATUSBAR
);
497 SendMessageW(This
->status_hwnd
, SB_SIMPLE
, TRUE
, 0);
504 static LRESULT
iewnd_OnSize(InternetExplorer
*This
, INT width
, INT height
)
506 HWND hwndRebar
= GetDlgItem(This
->frame_hwnd
, IDC_BROWSE_REBAR
);
507 INT barHeight
= SendMessageW(hwndRebar
, RB_GETBARHEIGHT
, 0, 0);
508 RECT docarea
= {0, 0, width
, height
};
510 SendMessageW(This
->status_hwnd
, WM_SIZE
, 0, 0);
512 adjust_ie_docobj_rect(This
->frame_hwnd
, &docarea
);
514 if(This
->doc_host
.hwnd
)
515 SetWindowPos(This
->doc_host
.hwnd
, NULL
, docarea
.left
, docarea
.top
, docarea
.right
, docarea
.bottom
,
516 SWP_NOZORDER
| SWP_NOACTIVATE
);
518 SetWindowPos(hwndRebar
, NULL
, 0, 0, width
, barHeight
, SWP_NOZORDER
| SWP_NOACTIVATE
);
523 static LRESULT
iewnd_OnNotify(InternetExplorer
*This
, WPARAM wparam
, LPARAM lparam
)
525 NMHDR
* hdr
= (NMHDR
*)lparam
;
527 if(hdr
->idFrom
== IDC_BROWSE_ADDRESSBAR
&& hdr
->code
== CBEN_ENDEDITW
)
529 NMCBEENDEDITW
* info
= (NMCBEENDEDITW
*)lparam
;
531 if(info
->fChanged
&& info
->iWhy
== CBENF_RETURN
)
536 V_BSTR(&vt
) = SysAllocString(info
->szText
);
538 IWebBrowser2_Navigate2(&This
->IWebBrowser2_iface
, &vt
, NULL
, NULL
, NULL
, NULL
);
540 SysFreeString(V_BSTR(&vt
));
546 if(hdr
->idFrom
== IDC_BROWSE_REBAR
&& hdr
->code
== RBN_HEIGHTCHANGE
)
550 GetClientRect(This
->frame_hwnd
, &docarea
);
551 adjust_ie_docobj_rect(This
->frame_hwnd
, &docarea
);
553 if(This
->doc_host
.hwnd
)
554 SetWindowPos(This
->doc_host
.hwnd
, NULL
, docarea
.left
, docarea
.top
, docarea
.right
, docarea
.bottom
,
555 SWP_NOZORDER
| SWP_NOACTIVATE
);
561 static LRESULT
iewnd_OnDestroy(InternetExplorer
*This
)
563 HIMAGELIST list
= (HIMAGELIST
)SendMessageW(This
->toolbar_hwnd
, TB_GETIMAGELIST
, 0, 0);
567 free_fav_menu_data(get_fav_menu(This
->menu
));
568 ImageList_Destroy(list
);
569 This
->frame_hwnd
= NULL
;
574 static LRESULT
iewnd_OnCommand(InternetExplorer
*This
, HWND hwnd
, UINT msg
, WPARAM wparam
, LPARAM lparam
)
576 switch(LOWORD(wparam
))
579 DialogBoxParamW(ieframe_instance
, MAKEINTRESOURCEW(IDD_BROWSE_OPEN
), hwnd
, ie_dialog_open_proc
, (LPARAM
)This
);
582 case ID_BROWSE_PRINT
:
583 if(This
->doc_host
.document
)
585 IOleCommandTarget
* target
;
587 if(FAILED(IUnknown_QueryInterface(This
->doc_host
.document
, &IID_IOleCommandTarget
, (LPVOID
*)&target
)))
590 IOleCommandTarget_Exec(target
, &CGID_MSHTML
, IDM_PRINT
, OLECMDEXECOPT_DODEFAULT
, NULL
, NULL
);
592 IOleCommandTarget_Release(target
);
597 IWebBrowser2_GoHome(&This
->IWebBrowser2_iface
);
601 IWebBrowser2_GoBack(&This
->IWebBrowser2_iface
);
604 case ID_BROWSE_FORWARD
:
605 IWebBrowser2_GoForward(&This
->IWebBrowser2_iface
);
609 IWebBrowser2_Stop(&This
->IWebBrowser2_iface
);
612 case ID_BROWSE_REFRESH
:
613 IWebBrowser2_Refresh(&This
->IWebBrowser2_iface
);
616 case ID_BROWSE_ABOUT
:
617 ie_dialog_about(hwnd
);
621 case ID_BROWSE_PROPERTIES
:
622 ie_dialog_properties(hwnd
);
627 ShowWindow(hwnd
, SW_HIDE
);
631 if(LOWORD(wparam
) >= ID_BROWSE_GOTOFAV_FIRST
&& LOWORD(wparam
) <= ID_BROWSE_GOTOFAV_MAX
)
633 LPCWSTR url
= get_fav_url_from_id(get_fav_menu(This
->menu
), LOWORD(wparam
));
636 ie_navigate(This
, url
);
638 return DefWindowProcW(hwnd
, msg
, wparam
, lparam
);
643 static LRESULT
update_addrbar(InternetExplorer
*This
, LPARAM lparam
)
645 HWND hwndRebar
= GetDlgItem(This
->frame_hwnd
, IDC_BROWSE_REBAR
);
646 HWND hwndAddress
= GetDlgItem(hwndRebar
, IDC_BROWSE_ADDRESSBAR
);
647 HWND hwndEdit
= (HWND
)SendMessageW(hwndAddress
, CBEM_GETEDITCONTROL
, 0, 0);
648 LPCWSTR url
= (LPCWSTR
)lparam
;
650 SendMessageW(hwndEdit
, WM_SETTEXT
, 0, (LPARAM
)url
);
655 static LRESULT WINAPI
ie_window_proc(HWND hwnd
, UINT msg
, WPARAM wparam
, LPARAM lparam
)
657 InternetExplorer
*This
= (InternetExplorer
*) GetWindowLongPtrW(hwnd
, 0);
662 return iewnd_OnCreate(hwnd
, (LPCREATESTRUCTW
)lparam
);
665 ShowWindow(hwnd
, SW_HIDE
);
668 TRACE("WM_SHOWWINDOW %lx\n", wparam
);
670 IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
671 InterlockedIncrement(&This
->extern_ref
);
673 release_extern_ref(This
, TRUE
);
674 IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
678 return iewnd_OnDestroy(This
);
680 return iewnd_OnSize(This
, LOWORD(lparam
), HIWORD(lparam
));
682 return iewnd_OnCommand(This
, hwnd
, msg
, wparam
, lparam
);
684 return iewnd_OnNotify(This
, wparam
, lparam
);
686 return process_dochost_tasks(&This
->doc_host
);
687 case WM_UPDATEADDRBAR
:
688 return update_addrbar(This
, lparam
);
690 return DefWindowProcW(hwnd
, msg
, wparam
, lparam
);
693 void register_iewindow_class(void)
697 memset(&wc
, 0, sizeof wc
);
698 wc
.cbSize
= sizeof(wc
);
700 wc
.lpfnWndProc
= ie_window_proc
;
702 wc
.cbWndExtra
= sizeof(InternetExplorer
*);
703 wc
.hInstance
= ieframe_instance
;
704 wc
.hIcon
= LoadIconW(GetModuleHandleW(0), MAKEINTRESOURCEW(IDI_APPICON
));
705 wc
.hIconSm
= LoadImageW(GetModuleHandleW(0), MAKEINTRESOURCEW(IDI_APPICON
), IMAGE_ICON
,
706 GetSystemMetrics(SM_CXSMICON
), GetSystemMetrics(SM_CYSMICON
), LR_SHARED
);
707 wc
.hCursor
= LoadCursorW(0, (LPWSTR
)IDC_ARROW
);
708 wc
.hbrBackground
= 0;
709 wc
.lpszClassName
= szIEWinFrame
;
710 wc
.lpszMenuName
= NULL
;
712 RegisterClassExW(&wc
);
715 void unregister_iewindow_class(void)
717 UnregisterClassW(szIEWinFrame
, ieframe_instance
);
720 static void create_frame_hwnd(InternetExplorer
*This
)
724 szIEWinFrame
, wszWineInternetExplorer
,
725 WS_CLIPCHILDREN
| WS_CAPTION
| WS_SYSMENU
| WS_THICKFRAME
726 | WS_MINIMIZEBOX
| WS_MAXIMIZEBOX
,
727 CW_USEDEFAULT
, CW_USEDEFAULT
, CW_USEDEFAULT
, CW_USEDEFAULT
,
728 NULL
, NULL
/* FIXME */, ieframe_instance
, This
);
730 create_doc_view_hwnd(&This
->doc_host
);
733 static inline InternetExplorer
*impl_from_DocHost(DocHost
*iface
)
735 return CONTAINING_RECORD(iface
, InternetExplorer
, doc_host
);
738 static ULONG
IEDocHost_addref(DocHost
*iface
)
740 InternetExplorer
*This
= impl_from_DocHost(iface
);
741 return IWebBrowser2_AddRef(&This
->IWebBrowser2_iface
);
744 static ULONG
IEDocHost_release(DocHost
*iface
)
746 InternetExplorer
*This
= impl_from_DocHost(iface
);
747 return IWebBrowser2_Release(&This
->IWebBrowser2_iface
);
750 static void DocHostContainer_get_docobj_rect(DocHost
*This
, RECT
*rc
)
752 GetClientRect(This
->frame_hwnd
, rc
);
753 adjust_ie_docobj_rect(This
->frame_hwnd
, rc
);
756 static HRESULT
DocHostContainer_set_status_text(DocHost
*iface
, const WCHAR
*text
)
758 InternetExplorer
*This
= impl_from_DocHost(iface
);
759 return update_ie_statustext(This
, text
);
762 static void DocHostContainer_on_command_state_change(DocHost
*iface
, LONG command
, BOOL enable
)
764 InternetExplorer
*This
= impl_from_DocHost(iface
);
767 case CSC_NAVIGATEBACK
:
768 enable_toolbar_button(This
, ID_BROWSE_BACK
, enable
);
770 case CSC_NAVIGATEFORWARD
:
771 enable_toolbar_button(This
, ID_BROWSE_FORWARD
, enable
);
776 static void DocHostContainer_set_url(DocHost
* iface
, const WCHAR
*url
)
778 InternetExplorer
*This
= impl_from_DocHost(iface
);
780 This
->nohome
= FALSE
;
781 SendMessageW(This
->frame_hwnd
, WM_UPDATEADDRBAR
, 0, (LPARAM
)url
);
784 static const IDocHostContainerVtbl DocHostContainerVtbl
= {
787 DocHostContainer_get_docobj_rect
,
788 DocHostContainer_set_status_text
,
789 DocHostContainer_on_command_state_change
,
790 DocHostContainer_set_url
793 static HRESULT
create_ie(InternetExplorer
**ret_obj
)
795 InternetExplorer
*ret
;
797 ret
= heap_alloc_zero(sizeof(InternetExplorer
));
799 return E_OUTOFMEMORY
;
803 DocHost_Init(&ret
->doc_host
, &ret
->IWebBrowser2_iface
, &DocHostContainerVtbl
);
805 InternetExplorer_WebBrowser_Init(ret
);
807 HlinkFrame_Init(&ret
->hlink_frame
, (IUnknown
*)&ret
->IWebBrowser2_iface
, &ret
->doc_host
);
809 create_frame_hwnd(ret
);
811 InterlockedIncrement(&obj_cnt
);
812 list_add_tail(&ie_list
, &ret
->entry
);
817 HRESULT WINAPI
InternetExplorer_Create(IClassFactory
*iface
, IUnknown
*pOuter
, REFIID riid
, void **ppv
)
819 InternetExplorer
*ret
;
822 TRACE("(%p %s %p)\n", pOuter
, debugstr_guid(riid
), ppv
);
824 hres
= create_ie(&ret
);
828 hres
= IWebBrowser2_QueryInterface(&ret
->IWebBrowser2_iface
, riid
, ppv
);
829 IWebBrowser2_Release(&ret
->IWebBrowser2_iface
);
836 void released_obj(void)
838 if(!InterlockedDecrement(&obj_cnt
))
842 static BOOL
create_ie_window(const WCHAR
*cmdline
)
844 InternetExplorer
*ie
;
847 hres
= create_ie(&ie
);
851 IWebBrowser2_put_Visible(&ie
->IWebBrowser2_iface
, VARIANT_TRUE
);
852 IWebBrowser2_put_MenuBar(&ie
->IWebBrowser2_iface
, VARIANT_TRUE
);
855 IWebBrowser2_GoHome(&ie
->IWebBrowser2_iface
);
860 static const WCHAR nohomeW
[] = {'-','n','o','h','o','m','e'};
862 while(*cmdline
== ' ' || *cmdline
== '\t')
864 cmdlen
= strlenW(cmdline
);
865 if(cmdlen
> 2 && cmdline
[0] == '"' && cmdline
[cmdlen
-1] == '"') {
870 if(cmdlen
== sizeof(nohomeW
)/sizeof(*nohomeW
) && !memcmp(cmdline
, nohomeW
, sizeof(nohomeW
))) {
873 V_VT(&var_url
) = VT_BSTR
;
875 V_BSTR(&var_url
) = SysAllocStringLen(cmdline
, cmdlen
);
877 /* navigate to the first page */
878 IWebBrowser2_Navigate2(&ie
->IWebBrowser2_iface
, &var_url
, NULL
, NULL
, NULL
, NULL
);
880 SysFreeString(V_BSTR(&var_url
));
884 IWebBrowser2_Release(&ie
->IWebBrowser2_iface
);
888 static HDDEDATA
open_dde_url(WCHAR
*dde_url
)
890 InternetExplorer
*ie
= NULL
, *iter
;
891 WCHAR
*url
, *url_end
;
895 TRACE("%s\n", debugstr_w(dde_url
));
900 url_end
= strchrW(url
, '"');
902 FIXME("missing string terminator\n");
907 url_end
= strchrW(url
, ',');
911 url_end
= url
+ strlenW(url
);
914 LIST_FOR_EACH_ENTRY(iter
, &ie_list
, InternetExplorer
, entry
) {
916 IWebBrowser2_AddRef(&iter
->IWebBrowser2_iface
);
923 hres
= create_ie(&ie
);
928 IWebBrowser2_put_Visible(&ie
->IWebBrowser2_iface
, VARIANT_TRUE
);
929 IWebBrowser2_put_MenuBar(&ie
->IWebBrowser2_iface
, VARIANT_TRUE
);
931 V_VT(&urlv
) = VT_BSTR
;
932 V_BSTR(&urlv
) = SysAllocStringLen(url
, url_end
-url
);
934 IWebBrowser2_Release(&ie
->IWebBrowser2_iface
);
938 hres
= IWebBrowser2_Navigate2(&ie
->IWebBrowser2_iface
, &urlv
, NULL
, NULL
, NULL
, NULL
);
942 IWebBrowser2_Release(&ie
->IWebBrowser2_iface
);
943 return ULongToHandle(DDE_FACK
);
946 static HDDEDATA WINAPI
dde_proc(UINT type
, UINT uFmt
, HCONV hConv
, HSZ hsz1
, HSZ hsz2
, HDDEDATA data
,
947 ULONG_PTR dwData1
, ULONG_PTR dwData2
)
951 TRACE("XTYP_CONNECT %p\n", hsz1
);
952 return ULongToHandle(!DdeCmpStringHandles(hsz1
, ddestr_openurl
));
959 TRACE("XTYP_EXECUTE %p\n", data
);
961 size
= DdeGetData(data
, NULL
, 0, 0);
967 url
= heap_alloc(size
);
971 if(DdeGetData(data
, (BYTE
*)url
, size
, 0) != size
) {
972 ERR("error during read\n");
977 ret
= open_dde_url(url
);
984 FIXME("XTYP_REQUEST\n");
988 TRACE("type %d\n", type
);
994 static void init_dde(void)
998 static const WCHAR iexploreW
[] = {'I','E','x','p','l','o','r','e',0};
999 static const WCHAR openurlW
[] = {'W','W','W','_','O','p','e','n','U','R','L',0};
1001 res
= DdeInitializeW(&dde_inst
, dde_proc
, CBF_SKIP_ALLNOTIFICATIONS
| CBF_FAIL_ADVISES
| CBF_FAIL_POKES
, 0);
1002 if(res
!= DMLERR_NO_ERROR
) {
1003 WARN("DdeInitialize failed: %u\n", res
);
1007 ddestr_iexplore
= DdeCreateStringHandleW(dde_inst
, iexploreW
, CP_WINUNICODE
);
1008 if(!ddestr_iexplore
)
1009 WARN("Failed to create string handle: %u\n", DdeGetLastError(dde_inst
));
1011 ddestr_openurl
= DdeCreateStringHandleW(dde_inst
, openurlW
, CP_WINUNICODE
);
1013 WARN("Failed to create string handle: %u\n", DdeGetLastError(dde_inst
));
1015 if(!DdeNameService(dde_inst
, ddestr_iexplore
, 0, DNS_REGISTER
))
1016 WARN("DdeNameService failed\n");
1019 static void release_dde(void)
1022 DdeNameService(dde_inst
, ddestr_iexplore
, 0, DNS_UNREGISTER
);
1024 DdeFreeStringHandle(dde_inst
, ddestr_openurl
);
1026 DdeFreeStringHandle(dde_inst
, ddestr_iexplore
);
1027 DdeUninitialize(dde_inst
);
1030 /******************************************************************
1031 * IEWinMain (ieframe.101)
1033 * Only returns on error.
1035 DWORD WINAPI
IEWinMain(const WCHAR
*cmdline
, int nShowWindow
)
1040 static const WCHAR embeddingW
[] = {'-','e','m','b','e','d','d','i','n','g',0};
1042 TRACE("%s %d\n", debugstr_w(cmdline
), nShowWindow
);
1046 hres
= register_class_object(TRUE
);
1054 if(strcmpiW(cmdline
, embeddingW
)) {
1055 if(!create_ie_window(cmdline
)) {
1061 /* run the message loop for this thread */
1062 while (GetMessageW(&msg
, 0, 0, 0))
1064 TranslateMessage(&msg
);
1065 DispatchMessageW(&msg
);
1068 register_class_object(FALSE
);