explorer: Implement Application property.

dlls/shell32/tests/shelldispatch.c

@@ -546,11 +546,9 @@ todo_wine
         ok(hr == S_OK, "got 0x%08x\n", hr);
 
         hr = IWebBrowser2_get_Application(wb, &app);
-todo_wine {
         ok(hr == S_OK, "got 0x%08x\n", hr);
         ok(disp == app, "got %p, %p\n", app, disp);
-}
-        if (hr == S_OK) IDispatch_Release(app);
+        IDispatch_Release(app);
 
         hr = IWebBrowser2_get_Document(wb, &doc);
 todo_wine

programs/explorer/desktop.c

@@ -1430,8 +1430,13 @@ static HRESULT WINAPI webbrowser_Stop(IWebBrowser2 *iface)
 static HRESULT WINAPI webbrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
 {
     struct shellbrowserwindow *This = impl_from_IWebBrowser2(iface);
-    FIXME("(%p)->(%p)\n", This, ppDisp);
-    return E_NOTIMPL;
+
+    TRACE("(%p)->(%p)\n", This, ppDisp);
+
+    *ppDisp = (IDispatch*)iface;
+    IDispatch_AddRef(*ppDisp);
+
+    return S_OK;
 }
 
 static HRESULT WINAPI webbrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)