IE 是 CE 的一个标准功能，但 很多人想定制 IE 浏览器，以实现某此特殊的需求。
以早以前看过 MS 提供的 IE 示例，研究了一下，现将代码分享出来，大家一起学习。
需要注意的是，IESIMPLE 做为窗体的类名不能修改，详细见代码中的注释。
resource.h 头文件：
1 // 2 // Copyright (c) Microsoft Corporation. All rights reserved. 3 // 4 // 5 // Use of this source code is subject to the terms of the Microsoft end-user 6 // license agreement (EULA) under which you licensed this SOFTWARE PRODUCT. 7 // If you did not accept the terms of the EULA, you are not authorized to use 8 // this source code. For a copy of the EULA, please see the LICENSE.RTF on your 9 // install media. 10 // 11 #define IDC_STATIC -1 12 13 #define IDR_ACCELERATOR 100 14 15 #define IDD_OPEN_DIALOG 1000 16 17 #define IDC_URL_EDIT 3000 18 #define IDC_BROWSE 3001 19 #define IDC_NEWWINDOW 3002 20 21 #define IDS_IE 20000 22 #define IDS_ADDRESS 20001 23 #define IDS_FILESCHEME 20002 24 #define IDS_HYPHEN 20003 25 #define IDS_BROWSEFILTER 20010 26 27 #define ID_VIEW_STOP 500 28 #define ID_VIEW_REFRESH 501 29 #define ID_GO_BACK 502 30 #define ID_GO_FORWARD 503 31 #define ID_FOCUS_URL 504 32 #define ID_OPEN 505 33 #define ID_GO_HOME 506 34 #define ID_GO_SEARCH 507 35 #define ID_FULLSCREEN 508 36 #define ID_INTERNET_OPTIONS 509 37 #define ID_FIND 510 38 #define ID_CLOSE 511 39 #define ID_ZOOMUP 512 40 #define ID_ZOOMDOWN 513
mainwnd.h 头文件：
1 //
2 // Copyright (c) Microsoft Corporation. All rights reserved.
3 //
4 //
5 // Use of this source code is subject to the terms of the Microsoft end-user
6 // license agreement (EULA) under which you licensed this SOFTWARE PRODUCT.
7 // If you did not accept the terms of the EULA, you are not authorized to use
8 // this source code. For a copy of the EULA, please see the LICENSE.RTF on your
9 // install media.
10 //
11 /*++
12 THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
13 ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
14 THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
15 PARTICULAR PURPOSE.
16
17 Module Name: mainwnd.h
18
19 Abstract: Implements the main window, the container for the webbrowser
20
21 Functions:
22
23 Notes: This class implements the container and its interaction with the webbrowser control,
24 commandbar, statusbar etc.
25
26
27 --*/
28
29 #ifndef _MAINWND_H
30 #define _MAINWND_H_
31
32 #include "mshtmhst.h"
33 #include "interned.h"
34
35 #define MAX_URL 2048
36
37 class CMainWnd :
38 public IOleContainer,
39 public IOleClientSite,
40 public IOleInPlaceSite,
41 public IServiceProvider,
42 public DWebBrowserEvents2,
43 public IDocHostUIHandler,
44 public IDocHostShowUI, // msgbox, help window
45 public IHTMLOMWindowServices // for window move, resize events
46 {
47
48 public:
49 CMainWnd();
50 ~CMainWnd();
51
52 BOOL Create();
53
54 //IUnknown methods
55 STDMETHOD(QueryInterface) (REFIID riid, LPVOID * ppv)
56 {
57 if ((riid == IID_IOleContainer) || (riid == IID_IUnknown))
58 {
59 *ppv = (IOleContainer *) this;
60 }
61 else if (riid == IID_IOleClientSite)
62 {
63 *ppv = (IOleClientSite *)this;
64 }
65 else if (riid == IID_IOleInPlaceSite)
66 {
67 *ppv = (IOleInPlaceSite *)this;
68 }
69 else if (riid == IID_IOleWindow)
70 {
71 *ppv = (IOleWindow *)this;
72 }
73 else if ((riid == DIID_DWebBrowserEvents2) || (riid == IID_IDispatch))
74 {
75 *ppv = (DWebBrowserEvents2 *)this;
76 }
77 else if(riid == IID_IServiceProvider)
78 {
79 *ppv = (IServiceProvider *)this;
80 }
81 else if (riid == IID_IDocHostUIHandler)
82 {
83 *ppv = (IDocHostUIHandler *)this;
84 }
85 else if (riid == IID_IDocHostShowUI)
86 {
87 *ppv = (IDocHostShowUI *)this;
88 }
89 else if (riid == IID_IHTMLOMWindowServices)
90 {
91 *ppv = (IHTMLOMWindowServices *)this;
92 }
93 else
94 {
95 *ppv = NULL;
96 return E_NOINTERFACE;
97 }
98 AddRef();
99 return S_OK;
100 }
101
102 STDMETHOD_(ULONG, AddRef) (void)
103 {
104 InterlockedIncrement((LONG*)&m_unRefs);
105 return m_unRefs;
106 }
107
108 STDMETHOD_(ULONG, Release) (void)
109 {
110 ULONG ulRefs = m_unRefs;
111 if (InterlockedDecrement((LONG*)&m_unRefs) == 0)
112 {
113 delete this;
114 return 0;
115 }
116 return ulRefs - 1;
117 }
118
119 // IOleContainer methods
120 STDMETHOD(ParseDisplayName)(IBindCtx *, LPOLESTR, ULONG *, IMoniker **) { return E_NOTIMPL;}
121 STDMETHOD(EnumObjects)(DWORD, IEnumUnknown **)
122 {
123 return E_NOTIMPL;
124 }
125 STDMETHOD(LockContainer)(BOOL) { return S_OK;}
126
127 // IOleClientSite methods
128 STDMETHOD(SaveObject) (void) { return E_NOTIMPL;}
129 STDMETHOD(GetMoniker) (DWORD dwAssign, DWORD dwWhichMoniker, LPMONIKER * ppmk) { return E_NOTIMPL;}
130 STDMETHOD(GetContainer) (LPOLECONTAINER * ppContainer)
131 {
132 return E_NOINTERFACE;
133 }
134 STDMETHOD(ShowObject) (void) { return E_NOTIMPL;}
135 STDMETHOD(OnShowWindow) (BOOL fShow) { return E_NOTIMPL;}
136 STDMETHOD(RequestNewObjectLayout) (void) { return E_NOTIMPL;}
137
138 // IOleWindow methods
139 STDMETHOD(GetWindow)(HWND *phwnd)
140 {
141 *phwnd = m_hWndMain;
142 return S_OK;
143 }
144 STDMETHOD(ContextSensitiveHelp)(BOOL fEnterMode) { return E_NOTIMPL;}
145
146 // IOleInPlaceSite methods
147 STDMETHOD(CanInPlaceActivate) (void) { return S_OK;}
148 STDMETHOD(OnInPlaceActivate) (void)
149 {
150 m_bInPlaceActive = TRUE;
151 return S_OK;
152 }
153
154 STDMETHOD(OnUIActivate) (void) { return E_NOTIMPL;}
155 STDMETHOD(GetWindowContext) (
156 LPOLEINPLACEFRAME FAR * lplpFrame,
157 LPOLEINPLACEUIWINDOW FAR * lplpDoc,
158 LPRECT lprcPosRect,
159 LPRECT lprcClipRect,
160 LPOLEINPLACEFRAMEINFO lpFrameInfo)
161 {
162
163 GetClientRect(m_hWndMain, lprcPosRect);
164 GetClientRect(m_hWndMain, lprcClipRect);
165
166 return S_OK;
167 }
168
169 STDMETHOD(Scroll) (SIZE scrollExtent) { return E_NOTIMPL;}
170 STDMETHOD(OnUIDeactivate) (BOOL fUndoable) { return E_NOTIMPL;}
171 STDMETHOD(OnInPlaceDeactivate) (void)
172 {
173 m_bInPlaceActive = FALSE;
174 return S_OK;
175 }
176
177 STDMETHOD(DiscardUndoState) (void) { return E_NOTIMPL;}
178 STDMETHOD(DeactivateAndUndo) (void) { return E_NOTIMPL;}
179 STDMETHOD(OnPosRectChange) (LPCRECT lprcPosRect) { return E_NOTIMPL;}
180
181 // IServiceProvider
182
183 STDMETHOD(QueryService)(REFGUID guidService, REFIID riid, void **ppvObj)
184 {
185 if(guidService == IID_IHTMLOMWindowServices)
186 {
187 return QueryInterface(riid, ppvObj);
188 }
189 else
190 return E_FAIL;
191 }
192
193 //DWebBrowserEvents
194 //IDispatch methods
195 STDMETHOD(GetTypeInfoCount)(UINT FAR* pctinfo) { return E_NOTIMPL;}
196
197 STDMETHOD(GetTypeInfo)(UINT itinfo,LCID lcid,ITypeInfo FAR* FAR* pptinfo) { return E_NOTIMPL;}
198
199 STDMETHOD(GetIDsOfNames)(REFIID riid,OLECHAR FAR* FAR* rgszNames,UINT cNames,
200 LCID lcid, DISPID FAR* rgdispid) { return E_NOTIMPL;}
201
202 STDMETHOD(Invoke)(DISPID dispidMember,REFIID riid,LCID lcid,WORD wFlags,
203 DISPPARAMS FAR* pdispparams, VARIANT FAR* pvarResult,
204 EXCEPINFO FAR* pexcepinfo,UINT FAR* puArgErr);
205
206 // IDocHostUIHandler methods
207 STDMETHOD(EnableModeless)(BOOL fEnable) { return E_NOTIMPL; }
208 STDMETHOD(FilterDataObject)(IDataObject *pDO, IDataObject **ppDORet) { return E_NOTIMPL; }
209 STDMETHOD(GetDropTarget)(IDropTarget *pDropTarget, IDropTarget **ppDropTarget) { return E_NOTIMPL; }
210 STDMETHOD(GetExternal)(IDispatch **ppDispatch) { return E_NOTIMPL; }
211 STDMETHOD(GetHostInfo)(DOCHOSTUIINFO *pInfo);
212 STDMETHOD(GetOptionKeyPath)(LPOLESTR *pchKey, DWORD dw) { return E_NOTIMPL; }
213 STDMETHOD(HideUI)(void) { return E_NOTIMPL; }
214 STDMETHOD(OnDocWindowActivate)(BOOL fActivate) { return E_NOTIMPL; }
215 STDMETHOD(OnFrameWindowActivate)(BOOL fActivate) { return E_NOTIMPL; }
216 STDMETHOD(ResizeBorder)(LPCRECT prcBorder, IOleInPlaceUIWindow *pUIWindow, BOOL fFrameWindow) { return E_NOTIMPL; }
217 STDMETHOD(ShowContextMenu)(DWORD dwID, POINT *ppt, IUnknown *pcmdtReserved, IDispatch *pdispReserved) { return E_NOTIMPL; }
218 STDMETHOD(ShowUI)(DWORD dwID, IOleInPlaceActiveObject *pActiveObject,
219 IOleCommandTarget *pCommandTarget, IOleInPlaceFrame *pFrame,
220 IOleInPlaceUIWindow *pDoc) { return E_NOTIMPL; }
221 STDMETHOD(TranslateAccelerator)(LPMSG lpMsg, const GUID *pgudCmdGroup, DWORD nCmdID) { return E_NOTIMPL; }
222 STDMETHOD(TranslateUrl)(DWORD dwTranslate, OLECHAR *pchURLIn, OLECHAR **ppchURLOut) { return E_NOTIMPL; }
223 STDMETHOD(UpdateUI)(void) { return E_NOTIMPL; }
224
225 // IDocHostShowUI methods
226 STDMETHOD(ShowHelp)( HWND hwnd, LPOLESTR pszHelpFile, UINT uCommand,
227 DWORD dwData, POINT ptMouse, IDispatch *pDispatchObjectHit)
228 { return E_NOTIMPL; }
229
230
231 STDMETHOD(ShowMessage)( HWND hwnd, LPOLESTR lpstrText, LPOLESTR lpstrCaption, DWORD dwType,
232 LPOLESTR lpstrHelpFile, DWORD dwHelpContext, LRESULT *plResult)
233 {
234 int iRes = MessageBox(hwnd, lpstrText, lpstrCaption, dwType);
235 if(plResult)
236 *plResult = iRes;
237 return S_OK;
238 }
239
240 // IHTMLOMWindowServices methods
241 STDMETHOD(moveTo)( LONG x, LONG y);
242 STDMETHOD(moveBy)( LONG x, LONG y);
243 STDMETHOD(resizeTo)( LONG x,LONG y);
244 STDMETHOD(resizeBy)( LONG x, LONG y);
245
246
247 public:
248 BOOL PreTranslateMessage(LPMSG pMsg);
249 VOID Close();
250 HWND GetWindow() { return m_hWndMain;}
251 LRESULT HandleCommand(WPARAM wParam, LPARAM lParam);
252
253 HANDLE m_hEvent;
254 IWebBrowser2 *m_pBrowser;
255
256
257
258 static LRESULT CALLBACK MainWndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam);
259
260 protected:
261
262
263
264 //Added for HTML Find Dialogs
265 HRESULT FindString();
266
267 VOID CMainWnd::ChangeFontSize(BOOL fInit);
268
269 BOOL RegisterMainWnd();
270 HWND CreateBrowser();
271 HRESULT Activate(IOleObject *pObject);
272 HRESULT InitEvents();
273
274
275 public:
276 LPTSTR m_lpszUrl;
277 BOOL m_bEmpty;
278 BOOL m_bFullScreen;
279 RECT m_rcWnd;
280 protected:
281 HACCEL m_hAccelTbl; //a handle to the accelerator table
282 HWND m_hWndMain; //the main window
283
284 ULONG m_unRefs; //reference count for the interfaces supported by the container
285
286 HWND m_hWndBrowser; //handle to the browser window
287
288 IOleObject *m_pObject;
289 IConnectionPoint *m_pCP;
290 IOleInPlaceActiveObject *m_pIPActiveObj;
291 BOOL m_bInPlaceActive;
292 DWORD m_dwEventCookie;
293
294 TCHAR m_tcTitle[MAX_URL]; //title of the current document
295 HWND m_hWndProgress; // progress bar
296 RECT m_rcProgress;
297
298 int m_iZoom;
299 int m_iDLCCounter;
300
301 };
302
303 #endif //_MAINWND_H_
mainwnd.cpp 源文件：
1 /*++
2
3 Module Name: mainwnd.cpp
4
5 Abstract: Implements the main window, the container for the webbrowser
6
7 Functions:
8
9 Notes: Most of the code resides here. The container and its interaction with the webbrowser control,
10 commandbar, statusbar etc.
11
12
13 --*/
14 #include <windows.h>
15 // Include the automation definitions...
16 #include <exdisp.h>
17 #include <exdispid.h>
18 #include <mshtmdid.h> // AMBIENT_DLCONTROL
19
20 #include <objbase.h>
21
22 #include <tchar.h>
23
24 #include <wininet.h>
25 #include <afdfunc.h> //ras stuff
26 #include <pkfuncs.h> // GetOwnerProcess
27 #include <mshtml.h>
28 #include <commctrl.h>
29 #include <commdlg.h>
30 #include "MainWnd.h"
31 #include "resource.h"
32
33 #define INITGUID
34 #include "initguid.h"
35 #include <hshell.h>
36
37 #define START_FULLSCREEN // Remove this if you don‘t want IESIMPLE to be full-screen at startup
38
39 DEFINE_GUID(CLSID_WebBrowser, 0x8856F961L, 0x340A, 0x11D0, 0xA9, 0x6B, 0x00, 0xC0, 0x4F, 0xD7, 0x05, 0xA2);
40 DEFINE_GUID(IID_IWebBrowser, 0xEAB22AC1L, 0x30C1, 0x11CF, 0xA7, 0xEB, 0x00, 0x00, 0xC0, 0x5B, 0xAE, 0x0B);
41 DEFINE_GUID(IID_IWebBrowser2, 0xD30C1661L, 0xCDAF, 0x11D0, 0x8A, 0x3E, 0x00, 0xC0, 0x4F, 0xC9, 0xE2, 0x6E);
42 DEFINE_GUID(DIID_DWebBrowserEvents, 0xEAB22AC2L, 0x30C1, 0x11CF, 0xA7, 0xEB, 0x00, 0x00, 0xC0, 0x5B, 0xAE, 0x0B);
43 DEFINE_GUID(DIID_DWebBrowserEvents2, 0x34A715A0L, 0x6587, 0x11D0, 0x92, 0x4A, 0x00, 0x20, 0xAF, 0xC7, 0xAC, 0x4D);
44 DEFINE_GUID(IID_IWebBrowserApp, 0x0002DF05L, 0x0000, 0x0000, 0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46);
45
46 const GUID SID_SDocHost = { 0xc6504990, 0xd43e, 0x11cf, { 0x89, 0x3b, 0x00, 0xaa, 0x00, 0xbd, 0xce, 0x1a}};
47
48 #define MAX(a,b) (a > b) ? a : b
49 #define MIN(a,b) (a > b) ? b : a
50
51 LONG glThreadCount = 0;
52 HWND ghWndAddressEdit= NULL;
53 HANDLE ghExitEvent = NULL;
54 HINSTANCE g_hInstance = NULL;
55 DWORD g_dwMainWindowStackSize = 0x20000;
56
57 void GetProxyOption();
58
59
60 static HRESULT FindString();
61 HRESULT HandleNewWindow2(LPTSTR lpszUrl, DISPPARAMS FAR* pdparams);
62 BOOL RegisterMainWnd();
63
64
65 DWORD WINAPI NewWindow(LPVOID pParam)
66 {
67 CMainWnd *pWnd = (CMainWnd *)pParam;
68 MSG msg;
69 BOOL fRet;
70
71 HRESULT hr = CoInitializeEx(NULL, COINIT_MULTITHREADED);
72
73 fRet = pWnd->Create();
74
75 SetEvent(pWnd->m_hEvent);
76
77 if(!fRet)
78 {
79 pWnd->m_pBrowser = NULL;
80 return 0;
81 }
82
83 while(GetMessage( &msg, NULL, 0, 0 ) )
84 {
85 if(msg.message == WM_QUIT)
86 break;
87
88 if(!pWnd->PreTranslateMessage(&msg) && !(msg.message == WM_CHAR && msg.wParam == VK_TAB))
89 {
90 TranslateMessage(&msg);
91 DispatchMessage(&msg);
92 }
93 }
94
95 pWnd->Release();
96
97 CoUninitialize();
98
99 InterlockedDecrement(&glThreadCount);
100 SetEvent(ghExitEvent);
101
102 return msg.wParam;
103 }
104
105 int APIENTRY WinMain(HINSTANCE hInst, HINSTANCE hPrevInst, LPTSTR lpCmdLine, int nCmdShow)
106 {
107 INITCOMMONCONTROLSEX iccsex;
108 HKEY hKey;
109 DWORD dwSize = sizeof(DWORD);
110 MSG msg;
111
112 // HKCU is where IE\Main settings are
113 if(ERROR_SUCCESS == RegOpenKeyEx(HKEY_CURRENT_USER, TEXT("SOFTWARE\\Microsoft\\Internet Explorer\\Main"), 0, 0, &hKey))
114 {
115 RegQueryValueEx(hKey, TEXT("StackRes"), NULL, NULL, (LPBYTE)&g_dwMainWindowStackSize, &dwSize);
116 RegCloseKey(hKey);
117 }
118
119 // provide a default stack size if the one given is too small or too large.
120 if(g_dwMainWindowStackSize < 0x10000 || g_dwMainWindowStackSize > 0x80000)
121 {
122 // default to 128k
123 g_dwMainWindowStackSize = 0x20000;
124 }
125 RETAILMSG(1,(L"IESIMPLE Using Stack size: 0x%x\r\n", g_dwMainWindowStackSize));
126
127 HRESULT hr = CoInitializeEx(NULL, COINIT_MULTITHREADED);
128 if(FAILED(hr))
129 {
130 return FALSE;
131 }
132
133 if(!RegisterMainWnd())
134 {
135 return FALSE;
136 }
137
138 ghExitEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
139 if(!ghExitEvent)
140 {
141 return FALSE;
142 }
143
144 iccsex.dwSize = sizeof(INITCOMMONCONTROLSEX);
145 iccsex.dwICC = ICC_COOL_CLASSES;
146
147 InitCommonControlsEx(&iccsex);
148
149 g_hInstance = hInst;
150
151 // Create a message queue on this thread
152 PeekMessage(&msg, NULL, 0,0,PM_NOREMOVE);
153
154 if(FAILED(HandleNewWindow2(lpCmdLine, NULL)))
155 {
156 goto Cleanup;
157 }
158
159 while(glThreadCount > 0)
160 {
161 WaitForSingleObject(ghExitEvent, INFINITE);
162 }
163
164 Cleanup:
165 CoUninitialize();
166
167 RETAILMSG(1, (L"IESIMPLE exited. Cmdline was: %s\r\n",lpCmdLine ? lpCmdLine : L""));
168
169 return TRUE;
170 }
171
172
173 CMainWnd::CMainWnd()
174 {
175 m_unRefs = 1;
176 m_hWndMain = NULL;
177 m_pBrowser = NULL;
178 m_pObject = NULL;
179 m_pCP = NULL;
180 m_lpszUrl = NULL;
181 m_bFullScreen = FALSE;
182 m_bEmpty = FALSE;
183 m_tcTitle[0] = 0;
184
185 m_iZoom = 2; // default zoom
186 m_iDLCCounter = 0; // counter for Download Completes
187
188 }
189
190 CMainWnd::~CMainWnd()
191 {
192 RETAILMSG(1,(L"IESIMPLE Exiting ~CMainWnd\r\n"));
193
194 if(m_pBrowser)
195 m_pBrowser->Release();
196 }
197
198 BOOL RegisterMainWnd()
199 {
200 WNDCLASS wc;
201 wc.style = 0;
202 wc.lpfnWndProc = (WNDPROC)CMainWnd::MainWndProc;
203 wc.cbClsExtra = 0;
204 wc.cbWndExtra = 0;
205 wc.hInstance = g_hInstance;
206 wc.hIcon = NULL; // LoadIcon(g_hInstance, MAKEINTRESOURCE(IDI_IE));
207 wc.hCursor = LoadCursor(NULL, IDC_ARROW);
208 wc.hbrBackground = (HBRUSH)GetSysColorBrush(COLOR_WINDOW);
209 wc.lpszMenuName = NULL;
210 wc.lpszClassName = TEXT("IESIMPLE");
211
212 if(!(RegisterClass(&wc)))
213 return FALSE;
214
215 return TRUE;
216 }
217
218
219 BOOL CMainWnd::Create()
220 {
221 RECT rcArea;
222 DWORD dwTick;
223
224 DWORD dwStyle = WS_VISIBLE | WS_OVERLAPPED | WS_THICKFRAME | WS_SYSMENU;
225 /*|WS_OVERLAPPED|WS_BORDER|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX*/
226 DWORD dwExStyle = 0/*WS_EX_OVERLAPPEDWINDOW*/;
227
228 HMENU hMenu = NULL;
229
230 SystemParametersInfo(SPI_GETWORKAREA, 0, &rcArea, 0);
231
232 m_hWndMain = ::CreateWindowEx(dwExStyle,
233 TEXT("IESIMPLE"), // Add ZH - Leo 不能修改此名称,否则创建窗体失败
234 (WCHAR *)LoadString(g_hInstance, IDS_IE, NULL, 0),
235 dwStyle,
236 rcArea.left + 20,
237 rcArea.top + 20,
238 rcArea.right - rcArea.left - 40,
239 rcArea.bottom - rcArea.top - 30,
240 NULL, hMenu, g_hInstance, 0);
241 if(!m_hWndMain)
242 {
243 return FALSE;
244 }
245
246 SetWindowLong(m_hWndMain, GWL_USERDATA, (DWORD)this);
247 GetWindowRect(m_hWndMain, &m_rcWnd);
248
249 // create a progress bar
250 m_rcProgress.left = 5;
251 m_rcProgress.right = m_rcProgress.left + (m_rcWnd.right - m_rcWnd.left)/3;
252 m_rcProgress.top = 5;
253 m_rcProgress.bottom = m_rcProgress.top + 15;
254
255 m_hWndProgress = CreateWindowEx(WS_EX_NOACTIVATE, PROGRESS_CLASS, _T(""), WS_CHILD|PBS_SMOOTH|WS_BORDER,
256 m_rcProgress.left, m_rcProgress.top, m_rcProgress.right-m_rcProgress.left, m_rcProgress.bottom-m_rcProgress.top,
257 m_hWndMain, NULL, g_hInstance, NULL);
258 if(m_hWndProgress)
259 {
260 SendMessage(m_hWndProgress, PBM_SETRANGE32, 0, 1000);
261 }
262 // /progress bar
263
264 dwTick = GetTickCount();
265 if(!(m_hWndBrowser = CreateBrowser()))
266 return FALSE;
267 RETAILMSG(1,(L"Create browser tick count: %d\r\n",GetTickCount() - dwTick)); // 约 2 秒
268
269 // LONG lStyle = GetWindowLong(_hWndBrowser, GWL_STYLE);
270 // SetWindowLong(_hWndBrowser, GWL_STYLE, lStyle|WS_BORDER);
271
272 SetFocus(m_hWndMain);
273
274 m_hAccelTbl = LoadAccelerators(g_hInstance, MAKEINTRESOURCE(IDR_ACCELERATOR));
275
276 #ifdef START_FULLSCREEN
277 HandleCommand( ID_FULLSCREEN, 0 );
278 #endif
279
280 return TRUE;
281 }
282
283
284
285 void GetProxyOption()
286 {
287 INTERNET_PER_CONN_OPTION_LIST iOptionList;
288 INTERNET_PER_CONN_OPTION iOptions[3];
289 ULONG uSize = sizeof(iOptionList);
290
291 iOptionList.dwSize = uSize;
292 iOptionList.pszConnection = NULL;
293 iOptionList.dwOptionCount = 3;
294 iOptionList.pOptions = iOptions;
295
296 // set proxy type direct or proxy server
297 iOptions[0].dwOption = INTERNET_PER_CONN_FLAGS;
298 iOptions[1].dwOption = INTERNET_PER_CONN_PROXY_SERVER;
299 iOptions[2].dwOption = INTERNET_PER_CONN_PROXY_BYPASS;
300
301 if(InternetQueryOption(NULL,INTERNET_OPTION_PER_CONNECTION_OPTION ,(LPVOID)(&iOptionList),&uSize))
302 {
303 GlobalFree(iOptionList.pOptions[1].Value.pszValue);
304 GlobalFree(iOptionList.pOptions[2].Value.pszValue);
305 }
306 }
307
308 HWND CMainWnd::CreateBrowser()
309 {
310 HRESULT hr;
311 IUnknown *pUnk = NULL;
312 IOleObject *pObject = NULL;
313
314 if(!m_pBrowser)
315 {
316 GetProxyOption();
317 hr = CoCreateInstance(CLSID_WebBrowser, NULL,
318 CLSCTX_INPROC_SERVER | CLSCTX_INPROC_HANDLER,
319 IID_IUnknown, (LPVOID *)(&pUnk));
320 if(FAILED(hr))
321 return FALSE;
322
323 hr = pUnk->QueryInterface(IID_IOleObject, (LPVOID *)(&pObject));
324 if(FAILED(hr))
325 goto Cleanup;
326
327 DWORD dwFlags;
328 hr = pObject->GetMiscStatus(DVASPECT_CONTENT, &dwFlags);
329 if(FAILED(hr))
330 goto Cleanup;
331
332 if(dwFlags & OLEMISC_SETCLIENTSITEFIRST)
333 {
334 IOleClientSite *pClientSite;
335 hr = QueryInterface(IID_IOleClientSite, (LPVOID *)(&pClientSite));
336 if(FAILED(hr))
337 goto Cleanup;
338
339 hr = pObject->SetClientSite(pClientSite);
340 pClientSite->Release();
341 if(FAILED(hr))
342 goto Cleanup;
343 }
344
345 hr = Activate(pObject);
346 if(FAILED(hr))
347 goto Cleanup;
348
349 hr = m_pObject->QueryInterface(IID_IWebBrowser2, (void **)&m_pBrowser);
350 if(FAILED(hr))
351 goto Cleanup;
352
353 // See if there might be a url in lpszUrl
354 hr = pUnk->QueryInterface(IID_IOleInPlaceActiveObject, (LPVOID *)(&m_pIPActiveObj));
355 if(FAILED(hr))
356 m_pIPActiveObj = NULL;
357
358 hr = S_FALSE;
359
360 if(m_bEmpty)
361 {
362 // Leo Test: m_lpszUrl = L"http://www.baidu.com";
363
364 BSTR bstrURL = SysAllocString(m_lpszUrl);
365 if(bstrURL && bstrURL[0])
366 m_pBrowser->Navigate(bstrURL, NULL, NULL, NULL, NULL);
367 else
368 m_pBrowser->GoHome();
369
370 SysFreeString(bstrURL);
371
372 }
373 hr = InitEvents();
374 }
375
376 Cleanup:
377 if(pUnk)
378 pUnk->Release();
379 if(pObject)
380 pObject->Release();
381
382 IOleWindow *pWnd = NULL;
383 HWND hwndBrowser = NULL;
384
385 if(m_pBrowser)
386 {
387 hr = m_pBrowser->QueryInterface(IID_IOleWindow, (LPVOID *)(&pWnd));
388 if(FAILED(hr))
389 return NULL;
390 }
391
392 if(pWnd)
393 {
394 hr = pWnd->GetWindow(&hwndBrowser);
395 pWnd->Release();
396 }
397 return hwndBrowser;
398 }
399
400 HRESULT CMainWnd::Activate(IOleObject *pObject)
401 {
402 m_pObject = pObject;
403 m_pObject->AddRef();
404
405 RECT rc;
406 ::GetClientRect(m_hWndMain, &rc);
407
408 HRESULT hr;
409 hr = m_pObject->DoVerb( OLEIVERB_UIACTIVATE, NULL, this, 0, m_hWndMain, &rc);
410
411 if(FAILED(hr))
412 goto Cleanup;
413
414 Cleanup:
415 return hr;
416 }
417
418 HRESULT CMainWnd::InitEvents()
419 {
420 HRESULT hr;
421 IConnectionPointContainer *pCPCont = NULL;
422 DWebBrowserEvents *pEvents = NULL;
423
424 if(!m_pBrowser)
425 return S_FALSE;
426 hr = m_pBrowser->QueryInterface(IID_IConnectionPointContainer, (LPVOID *)&pCPCont);
427 if(FAILED(hr))
428 return S_FALSE;
429 hr = pCPCont->FindConnectionPoint(DIID_DWebBrowserEvents2, &m_pCP);
430 if(FAILED(hr))
431 {
432 m_pCP = NULL;
433 goto Cleanup;
434 }
435
436 hr = QueryInterface(DIID_DWebBrowserEvents2, (LPVOID *)(&pEvents));
437 if(FAILED(hr))
438 goto Cleanup;
439 hr = m_pCP->Advise(pEvents, &(m_dwEventCookie));
440 if(FAILED(hr))
441 goto Cleanup;
442
443
444 Cleanup:
445 if(pCPCont)
446 pCPCont->Release();
447 if(pEvents)
448 pEvents->Release();
449 return hr;
450 }
451
452
453
454 HRESULT HandleNewWindow2(LPTSTR lpszUrl, DISPPARAMS FAR* pdparams)
455 {
456 HANDLE hThread;
457 CMainWnd *pNewWnd;
458 IDispatch *pDispatch;
459 HRESULT hr = S_OK;
460 DWORD dwThreadID = 0;
461
462 pNewWnd = new CMainWnd;
463
464 if(!pNewWnd)
465 {
466 return E_OUTOFMEMORY;
467 }
468
469 pNewWnd->m_lpszUrl = lpszUrl;
470 if(!pdparams)
471 pNewWnd->m_bEmpty = TRUE;
472
473 pNewWnd->m_hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
474
475 if(!pNewWnd->m_hEvent)
476 {
477 }
478
479 InterlockedIncrement(&glThreadCount);
480
481 hThread = CreateThread(NULL, g_dwMainWindowStackSize, NewWindow, (LPVOID)pNewWnd, STACK_SIZE_PARAM_IS_A_RESERVATION, &dwThreadID);
482 if(!hThread)
483 {
484 delete pNewWnd;
485 InterlockedDecrement(&glThreadCount);
486 return E_OUTOFMEMORY;
487 }
488 RETAILMSG(1,(L"[HandleNewWindow2]Create thread,ID is: 0x%x\r\n",dwThreadID));
489
490 WaitForSingleObject(pNewWnd->m_hEvent, INFINITE);
491 CloseHandle(hThread);
492 if(pdparams)
493 {
494 if(pNewWnd->m_pBrowser)
495 {
496 hr = pNewWnd->m_pBrowser->QueryInterface(IID_IDispatch, (LPVOID *)(&pDispatch));
497 }
498 else
499 {
500 hr = E_FAIL;
501 pDispatch = NULL;
502 }
503
504 *(pdparams->rgvarg[0].pboolVal) = 0;
505 *(pdparams->rgvarg[1].ppdispVal) = pDispatch;
506 }
507 return hr;
508 }
509
510
511 STDMETHODIMP CMainWnd::GetHostInfo(DOCHOSTUIINFO *pInfo)
512 {
513
514 pInfo->cbSize = sizeof(DOCHOSTUIINFO);
515 //pInfo->dwFlags = DOCHOSTUIFLAG_NO3DBORDER|DOCHOSTUIFLAG_FLAT_SCROLLBAR;
516 //pInfo->dwFlags |= DOCHOSTUIFLAG_SCROLL_NO;
517
518 return S_OK;
519
520 }
521
522 STDMETHODIMP CMainWnd::Invoke (
523 DISPID dispidMember,
524 REFIID riid,
525 LCID lcid,
526 WORD wFlags,
527 DISPPARAMS FAR* pdparams,
528 VARIANT FAR* pvarResult,
529 EXCEPINFO FAR* pexcepinfo,
530 UINT FAR* puArgErr
531 )
532 {
533 switch (dispidMember)
534 {
535 case DISPID_AMBIENT_DLCONTROL:
536 if(pvarResult)
537 {
538 V_VT(pvarResult) = VT_I4;
539 // always set these three unless they should be disabled
540 pvarResult->lVal = DLCTL_DLIMAGES|DLCTL_VIDEOS|DLCTL_BGSOUNDS;
541
542 // put the browser in download only mode
543 // pvarResult->lVal |= DLCTL_DOWNLOADONLY;
544 }
545 break;
546
547 case DISPID_STATUSTEXTCHANGE:
548 {
549 }
550 break;
551
552 case DISPID_SETSECURELOCKICON:
553 {
554 }
555 break;
556
557 case DISPID_PROGRESSCHANGE:
558 {
559 LONG lProgMax = pdparams->rgvarg[0].lVal;
560 LONG lProg = pdparams->rgvarg[1].lVal;
561 UINT nPos = (lProg == -1) ? 999 : ((lProg-1)%1000);
562
563 SendMessage(m_hWndProgress, PBM_SETPOS, nPos, 0);
564 }
565 break;
566
567 // notification for file download
568 case DISPID_FILEDOWNLOAD:
569 break;
570
571
572 case DISPID_NAVIGATECOMPLETE2:
573 break;
574
575 case DISPID_COMMANDSTATECHANGE:
576 break;
577
578 case DISPID_TITLECHANGE:
579 if(pdparams && pdparams->rgvarg[0].vt == VT_BSTR)
580 {
581 TCHAR szTitle[85];
582 int len = wcslen(pdparams->rgvarg[0].bstrVal);
583
584 _tcsncpy(m_tcTitle, pdparams->rgvarg[0].bstrVal, MAX_URL-1);
585 _tcsncpy(szTitle, pdparams->rgvarg[0].bstrVal, 80);
586 if(len > 80)
587 _tcscat(szTitle, L"...");
588
589 SetWindowText(m_hWndMain, szTitle);
590 }
591 break;
592
593 case DISPID_ONQUIT:
594 PostMessage(m_hWndMain, WM_CLOSE, 0, 0L);
595 break;
596
597 case DISPID_DOWNLOADBEGIN:
598 m_iDLCCounter++;
599 SetWindowPos(m_hWndProgress, HWND_TOP, 0,0,0,0,SWP_NOMOVE|SWP_NOSIZE|SWP_NOACTIVATE|SWP_SHOWWINDOW);
600 break;
601 case DISPID_DOWNLOADCOMPLETE:
602 case DISPID_DOCUMENTCOMPLETE:
603 m_iDLCCounter--;
604 if(m_iDLCCounter <= 0)
605 {
606 SetWindowPos(m_hWndProgress,NULL, 0,0,0,0,SWP_NOMOVE|SWP_NOSIZE|SWP_NOACTIVATE|SWP_HIDEWINDOW);
607 ChangeFontSize(TRUE);
608 m_iDLCCounter = 0;
609 }
610 break;
611
612 case DISPID_NEWWINDOW2:
613 //pdparams->rgvarg[1].boolVal = VARIANT_TRUE;
614 //break;
615 return HandleNewWindow2(NULL, pdparams);
616 break;
617
618
619 case DISPID_PROPERTYCHANGE:
620 case DISPID_BEFORENAVIGATE2:
621 break;
622 default:
623 return DISP_E_MEMBERNOTFOUND;
624 }
625 return S_OK;
626 }
627
628
629 STDMETHODIMP CMainWnd::moveTo( LONG x, LONG y)
630 {
631 SetWindowPos(m_hWndMain, NULL, x, y, 0, 0, SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOSIZE);
632 return S_OK;
633 }
634
635 STDMETHODIMP CMainWnd::moveBy( LONG x, LONG y)
636 {
637 RECT rcWindow;
638
639 GetWindowRect(m_hWndMain, &rcWindow);
640
641 SetWindowPos(m_hWndMain, NULL, rcWindow.left + x, rcWindow.top + y, 0, 0,
642 SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOSIZE);
643 return S_OK;
644 }
645
646
647 STDMETHODIMP CMainWnd::resizeTo( LONG x, LONG y)
648 {
649 // We do not want the size to be less then 100 for top level windows in browser
650 if(x < 100)
651 x = 100;
652
653 if(y < 100)
654 y = 100;
655
656 SetWindowPos(m_hWndMain, NULL, 0, 0, x, y, SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOMOVE);
657
658 return S_OK;
659 }
660
661 STDMETHODIMP CMainWnd::resizeBy( LONG x, LONG y)
662 {
663 RECT rcWindow;
664 long w, h;
665
666 GetWindowRect(m_hWndMain, &rcWindow);
667
668 w = rcWindow.right - rcWindow.left + x;
669 h = rcWindow.bottom - rcWindow.top + y;
670
671 if(w < 100)
672 w = 100;
673
674 if(h < 100)
675 h = 100;
676
677 SetWindowPos(m_hWndMain, NULL, 0, 0, w, h, SWP_NOACTIVATE | SWP_NOZORDER | SWP_NOMOVE);
678 return S_OK;
679 }
680
681
682 EXTERN_C const GUID CGID_MSHTML;
683 extern "C" BOOL APIENTRY OpenURLDlgProc (HWND hDlg, UINT message, UINT wParam, LONG lParam);
684
685 LRESULT CMainWnd::HandleCommand(WPARAM wParam, LPARAM lParam)
686 {
687 UINT nID = LOWORD(wParam);
688 switch (nID)
689 {
690 case ID_INTERNET_OPTIONS:
691 {
692 SHELLEXECUTEINFO sei;
693 sei.cbSize = sizeof(sei);
694 sei.fMask = SEE_MASK_FLAG_NO_UI;
695 sei.hwnd = m_hWndMain;
696 sei.lpVerb = NULL;
697 sei.lpFile = L"ctlpnl";
698 sei.lpParameters = L"inetcpl.cpl";
699 sei.lpDirectory = NULL;
700 sei.nShow = SW_SHOWNORMAL;
701
702 ShellExecuteEx(&sei);
703 }
704 break;
705 case ID_FIND:
706 FindString();
707 break;
708 case ID_GO_BACK:
709 m_pBrowser->GoBack();
710 return 0;
711 case ID_GO_FORWARD:
712 m_pBrowser->GoForward();
713 return 0;
714 case ID_GO_HOME:
715 m_pBrowser->GoHome();
716 return 0;
717 case ID_GO_SEARCH:
718 m_pBrowser->GoSearch();
719 return 0;
720 case ID_VIEW_REFRESH:
721 m_pBrowser->Refresh();
722 return 0;
723 case ID_VIEW_STOP:
724 m_pBrowser->Stop();
725 return 0;
726
727 case ID_ZOOMUP:
728 m_iZoom++;
729 if(m_iZoom > 4)
730 m_iZoom = 4;
731 ChangeFontSize(FALSE);
732 return 0;
733
734 case ID_ZOOMDOWN:
735 m_iZoom--;
736 if(m_iZoom < 0)
737 m_iZoom = 0;
738 ChangeFontSize(FALSE);
739 return 0;
740 case ID_CLOSE:
741 m_pBrowser->ExecWB(OLECMDID_CLOSE, OLECMDEXECOPT_DODEFAULT, NULL, NULL);
742 return 0;
743 case ID_FOCUS_URL:
744 case ID_OPEN:
745 {
746 WCHAR *szURL = new TCHAR[MAX_URL];
747 if(szURL)
748 {
749 int nRet = 0;
750 BSTR bstrURL = NULL;
751 m_pBrowser->get_LocationURL(&bstrURL);
752 nRet = StringCchCopy(szURL, MAX_URL, (LPCTSTR)bstrURL);
753 SysFreeString(bstrURL);
754
755 nRet = DialogBoxParam(g_hInstance, MAKEINTRESOURCE(IDD_OPEN_DIALOG), m_hWndMain, OpenURLDlgProc, (long)szURL);
756 bstrURL = SysAllocString(szURL);
757 if(nRet == 1)
758 {
759 m_pBrowser->Navigate(bstrURL, NULL, NULL, NULL, NULL);
760 }
761 else if(nRet == 2)
762 {
763 HandleNewWindow2(bstrURL,NULL);
764 }
765 SysFreeString(bstrURL);
766 delete[] szURL;
767 }
768 }
769 return 0;
770 case ID_FULLSCREEN:
771 {
772 DWORD dwStyle = GetWindowLong(m_hWndMain, GWL_STYLE);
773 if(m_bFullScreen)
774 {
775 dwStyle |= (WS_OVERLAPPED | WS_SYSMENU | WS_THICKFRAME);
776 SetWindowLong(m_hWndMain, GWL_STYLE, dwStyle);
777 SetWindowPos(m_hWndMain,NULL, m_rcWnd.left, m_rcWnd.top, m_rcWnd.right-m_rcWnd.left, m_rcWnd.bottom-m_rcWnd.top, SWP_NOZORDER);
778 m_bFullScreen = FALSE;
779 }
780 else
781 {
782 RECT rcWorkArea;
783
784 SystemParametersInfo(SPI_GETWORKAREA, 0, &rcWorkArea, 0);
785 m_bFullScreen = TRUE;
786 dwStyle &= ~(WS_OVERLAPPED | WS_SYSMENU | WS_THICKFRAME);
787
788 SetWindowLong(m_hWndMain, GWL_STYLE, dwStyle);
789 SetWindowPos(m_hWndMain,NULL, rcWorkArea.left, rcWorkArea.top, rcWorkArea.right-rcWorkArea.left, rcWorkArea.bottom-rcWorkArea.top, SWP_NOZORDER);
790
791 }
792 }
793 return 0;
794 }
795 return 0;
796 }
797
798
799
800
801
802 EXTERN_C const GUID CGID_ShellDocView;
803
804 LRESULT CALLBACK CMainWnd::MainWndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
805 {
806 CMainWnd *pMainWnd = (CMainWnd*)GetWindowLong(hwnd, GWL_USERDATA);
807
808 if(pMainWnd)
809 {
810 switch (message)
811 {
812 case WM_CLOSE:
813 case WM_DESTROY:
814 if(pMainWnd)
815 pMainWnd->Close();
816 SetWindowLong(hwnd, GWL_USERDATA, (DWORD)0);
817 ::PostQuitMessage(0);
818 break;
819 case WM_SETFOCUS:
820 if(pMainWnd->m_pIPActiveObj)
821 {
822 pMainWnd->m_pIPActiveObj->OnFrameWindowActivate(LOWORD(wParam) != WA_INACTIVE);
823 }
824 return 0;
825 case WM_SIZE:
826 {
827 RECT rcWnd;
828 GetClientRect(hwnd, &rcWnd);
829 SetWindowPos(pMainWnd->m_hWndBrowser,
830 NULL,
831 0,
832 0,
833 rcWnd.right-rcWnd.left,
834 rcWnd.bottom - rcWnd.top,
835 SWP_NOZORDER);
836 }
837 // FALL THROUGH
838 case WM_MOVE:
839 if(!pMainWnd->m_bFullScreen)
840 GetWindowRect(hwnd, &pMainWnd->m_rcWnd);
841 break;
842 case WM_COMMAND:
843 return pMainWnd->HandleCommand(wParam, lParam);
844 break;
845
846 case WM_NOTIFY:
847 break;
848
849 case WM_INITMENUPOPUP:
850 break;
851
852 case WM_SETTINGCHANGE:
853 if(wParam == SPI_SETWORKAREA)
854 {
855 if(pMainWnd->m_bFullScreen)
856 {
857 RECT rcWorkArea;
858 // no need to change the window style here, just adjust for the new work-area.
859 SystemParametersInfo(SPI_GETWORKAREA, 0, &rcWorkArea, 0);
860 SetWindowPos(pMainWnd->m_hWndMain,NULL, rcWorkArea.left, rcWorkArea.top, rcWorkArea.right-rcWorkArea.left, rcWorkArea.bottom-rcWorkArea.top, SWP_NOZORDER);
861 }
862 }
863 break;
864 default:
865 break;
866 }
867 }
868 return DefWindowProc(hwnd, message, wParam, lParam);
869 }
870
871 BOOL CMainWnd::PreTranslateMessage(LPMSG pMsg)
872 {
873 if(::TranslateAccelerator(m_hWndMain, m_hAccelTbl, pMsg)) //first shot to the main frame
874 return TRUE;
875
876 //then to mshtml
877 if(m_pIPActiveObj && pMsg->message >= WM_KEYFIRST && pMsg->message <= WM_KEYLAST)
878 {
879 HRESULT hr = m_pIPActiveObj->TranslateAccelerator(pMsg);
880 return (hr != S_FALSE);
881 }
882 return FALSE;
883 }
884
885 VOID CMainWnd::ChangeFontSize(BOOL fInit)
886 {
887 VARIANT vaSize;
888 vaSize.vt = VT_I4;
889
890 if(fInit) {
891 // Setting initial value
892 vaSize.vt = 0;
893 HRESULT hr = m_pBrowser->ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,
894 NULL, &vaSize);
895 m_iZoom = vaSize.lVal;
896 } else {
897 vaSize.lVal = m_iZoom;
898 HRESULT hr = m_pBrowser->ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,
899 &vaSize, NULL);
900 }
901 }
902
903 VOID CMainWnd::Close()
904 {
905 RETAILMSG(1,(L"IESIMPLE CMainWnd::Close"));
906
907 // Tell the shell to die off
908 SendMessage(m_hWndBrowser, WM_CLOSE, 0,0);
909
910
911 if(m_pIPActiveObj)
912 {
913 m_pIPActiveObj->Release();
914 }
915 m_pIPActiveObj = NULL;
916 if(m_pCP)
917 {
918 m_pCP->Unadvise(m_dwEventCookie);
919 m_pCP->Release();
920 }
921 m_pCP = NULL;
922 if(m_pObject)
923 {
924 m_pObject->Close(FALSE);
925 m_pObject->Release();
926 }
927 m_pObject = NULL;
928 if(m_pBrowser)
929 m_pBrowser->Release();
930 m_pBrowser = NULL;
931
932 }
933
934
935
936
937 HRESULT CMainWnd::FindString()
938 {
939 LPDISPATCH pDisp = NULL;
940 LPOLECOMMANDTARGET pCmdTarg = NULL;
941 HRESULT sts = S_OK;
942 VARIANTARG var;
943
944 #define GOERROR_S(bNotCond) {if(!(bNotCond)) goto errorS; }
945
946 if(!m_pBrowser)
947 return S_OK;
948 sts = m_pBrowser->get_Document(&pDisp);
949 GOERROR_S(pDisp);
950 sts = pDisp->QueryInterface(IID_IOleCommandTarget, (LPVOID*)&pCmdTarg);
951 GOERROR_S(pCmdTarg);
952
953 var.vt = VT_I4;
954 var.lVal = 0;
955 sts = pCmdTarg->Exec(
956 NULL,
957 OLECMDID_FIND,
958 MSOCMDEXECOPT_PROMPTUSER,
959 NULL,
960 &var);
961
962 errorS:
963 if(pCmdTarg)
964 pCmdTarg->Release(); // release document‘s command target
965 if(pDisp)
966 pDisp->Release(); // release document‘s dispatch interface
967 return sts;
968 }
969
970
971
972
973 BOOL HandleBrowse(HWND hwndOwner, WCHAR *szURL);
974
975 extern "C" BOOL APIENTRY OpenURLDlgProc (HWND hDlg, UINT message, UINT wParam, LONG lParam)
976 {
977
978 WCHAR *szURL = (WCHAR *)GetWindowLong(hDlg,DWL_USER);
979 int nRet = 4;
980
981 switch(message)
982 {
983
984 case WM_INITDIALOG:
985 {
986 if(!lParam)
987 {
988 EnableWindow(GetDlgItem(hDlg, IDOK), FALSE);
989 EnableWindow(GetDlgItem(hDlg, IDC_BROWSE), FALSE);
990 }
991 else
992 {
993 szURL = (WCHAR *)lParam;
994 SetWindowLong(hDlg, DWL_USER, (LONG)szURL);
995 SendMessage(GetDlgItem(hDlg, IDC_URL_EDIT), EM_LIMITTEXT, MAX_URL-1, 0);
996 if(szURL[0])
997 {
998
999 SetDlgItemText(hDlg, IDC_URL_EDIT, szURL);
1000 }
1001 }
1002
1003 }
1004 return TRUE;
1005
1006 case WM_COMMAND:
1007 switch (LOWORD(wParam))
1008 {
1009
1010 case IDOK:
1011 {
1012 GetDlgItemText(hDlg, IDC_URL_EDIT, szURL, MAX_URL-1);
1013 BOOL bNewWnd = SendMessage(GetDlgItem(hDlg, IDC_NEWWINDOW), BM_GETCHECK, 0L, 0L);
1014 nRet = (bNewWnd) ? 2 : 1;
1015 }
1016 case IDCANCEL:
1017 EndDialog(hDlg, nRet);
1018 return TRUE;
1019
1020
1021 case IDC_BROWSE:
1022 if(HandleBrowse(hDlg, szURL))
1023 {
1024 SetDlgItemText(hDlg, IDC_URL_EDIT, szURL);
1025 }
1026
1027 default:
1028 return (TRUE);
1029 }
1030 break;
1031
1032 case WM_DESTROY:
1033 SetWindowLong(hDlg, DWL_USER, 0);
1034 break;
1035
1036 }
1037 return (FALSE);
1038
1039
1040 }
1041
1042
1043 extern HINSTANCE g_hInstance;
1044 BOOL HandleBrowse(HWND hwndOwner, WCHAR *szURL)
1045 {
1046
1047 OPENFILENAME ofn;
1048 WCHAR wchFilter[MAX_PATH];
1049 WCHAR wchFile[MAX_PATH+8];
1050 int cbLen;
1051
1052
1053 // Initialize ofn struct
1054 memset(&ofn, 0, sizeof(ofn));
1055 ofn.lStructSize = sizeof(ofn);
1056 ofn.hwndOwner = hwndOwner;
1057 ofn.Flags = OFN_FILEMUSTEXIST |
1058 OFN_PATHMUSTEXIST |
1059 OFN_OVERWRITEPROMPT |
1060 OFN_HIDEREADONLY;
1061
1062 cbLen = LoadString(g_hInstance, IDS_BROWSEFILTER,
1063 wchFilter, MAX_PATH-2);
1064
1065 if(cbLen>0)
1066 {
1067 for (; cbLen >= 0; cbLen--)
1068 {
1069 if(wchFilter[cbLen]== L‘@‘)
1070 {
1071 wchFilter[cbLen] = 0;
1072 }
1073 }
1074 }
1075 else
1076 {
1077 return FALSE;
1078 }
1079
1080
1081 ofn.lpstrFilter = wchFilter;
1082 ofn.nFilterIndex = 1;
1083 wcscpy(wchFile, L"file://");
1084
1085 ofn.lpstrFile = wchFile+wcslen(wchFile); // prefix the string with "file://"
1086 ofn.nMaxFile = MAX_PATH;
1087 if(GetOpenFileName(&ofn))
1088 {
1089 wcsncpy(szURL, wchFile, MAX_URL-1);
1090 return TRUE;
1091 }
1092
1093 return FALSE;
1094
1095 }
时间： 2024-10-11 00:31:11