2 * Implementation of hyperlinking (hlink.dll)
4 * Copyright 2005 Aric Stewart for CodeWeavers
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 #include "hlink_private.h"
27 #include "wine/debug.h"
29 WINE_DEFAULT_DEBUG_CHANNEL(hlink);
31 static HINSTANCE instance;
33 typedef HRESULT (*LPFNCREATEINSTANCE)(IUnknown*, REFIID, LPVOID*);
37 IClassFactory IClassFactory_iface;
38 LPFNCREATEINSTANCE lpfnCI;
41 static inline CFImpl *impl_from_IClassFactory(IClassFactory *iface)
43 return CONTAINING_RECORD(iface, CFImpl, IClassFactory_iface);
46 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
48 TRACE("%p %d %p\n", hinstDLL, fdwReason, lpvReserved);
52 case DLL_PROCESS_ATTACH:
54 DisableThreadLibraryCalls(hinstDLL);
56 case DLL_PROCESS_DETACH:
62 /***********************************************************************
63 * DllCanUnloadNow (HLINK.@)
65 HRESULT WINAPI DllCanUnloadNow( void )
70 /***********************************************************************
71 * HlinkCreateFromMoniker (HLINK.@)
73 HRESULT WINAPI HlinkCreateFromMoniker( IMoniker *pimkTrgt, LPCWSTR pwzLocation,
74 LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
75 IUnknown* piunkOuter, REFIID riid, void** ppvObj)
80 TRACE("%p %s %s %p %i %p %s %p\n", pimkTrgt, debugstr_w(pwzLocation),
81 debugstr_w(pwzFriendlyName), pihlsite, dwSiteData, piunkOuter,
82 debugstr_guid(riid), ppvObj);
84 r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
88 IHlink_SetMonikerReference(hl, HLINKSETF_LOCATION | HLINKSETF_TARGET, pimkTrgt, pwzLocation);
91 IHlink_SetFriendlyName(hl, pwzFriendlyName);
93 IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
97 TRACE("Returning %i\n",r);
102 /***********************************************************************
103 * HlinkCreateFromString (HLINK.@)
105 HRESULT WINAPI HlinkCreateFromString( LPCWSTR pwzTarget, LPCWSTR pwzLocation,
106 LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
107 IUnknown* piunkOuter, REFIID riid, void** ppvObj)
114 TRACE("%s %s %s %p %i %p %s %p\n", debugstr_w(pwzTarget),
115 debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), pihlsite,
116 dwSiteData, piunkOuter, debugstr_guid(riid), ppvObj);
118 r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
124 hash = strchrW(pwzTarget, '#');
127 if (hash == pwzTarget)
131 int tgt_len = hash - pwzTarget;
132 tgt = heap_alloc((tgt_len + 1) * sizeof(WCHAR));
134 return E_OUTOFMEMORY;
135 memcpy(tgt, pwzTarget, tgt_len * sizeof(WCHAR));
145 tgt = hlink_strdupW(pwzTarget);
147 return E_OUTOFMEMORY;
157 IHlink_SetStringReference(hl, HLINKSETF_TARGET | HLINKSETF_LOCATION, tgt, loc);
162 IHlink_SetFriendlyName(hl, pwzFriendlyName);
165 IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
167 TRACE("Returning %i\n",r);
174 /***********************************************************************
175 * HlinkCreateBrowseContext (HLINK.@)
177 HRESULT WINAPI HlinkCreateBrowseContext( IUnknown* piunkOuter, REFIID riid, void** ppvObj)
179 TRACE("%p %s %p\n", piunkOuter, debugstr_guid(riid), ppvObj);
180 return CoCreateInstance(&CLSID_StdHlinkBrowseContext, piunkOuter, CLSCTX_INPROC_SERVER, riid, ppvObj);
183 /***********************************************************************
184 * HlinkNavigate (HLINK.@)
186 HRESULT WINAPI HlinkNavigate(IHlink *phl, IHlinkFrame *phlFrame,
187 DWORD grfHLNF, LPBC pbc, IBindStatusCallback *pbsc,
188 IHlinkBrowseContext *phlbc)
192 TRACE("%p %p %i %p %p %p\n", phl, phlFrame, grfHLNF, pbc, pbsc, phlbc);
195 r = IHlinkFrame_Navigate(phlFrame, grfHLNF, pbc, pbsc, phl);
197 r = IHlink_Navigate(phl, grfHLNF, pbc, pbsc, phlbc);
202 /***********************************************************************
203 * HlinkOnNavigate (HLINK.@)
205 HRESULT WINAPI HlinkOnNavigate( IHlinkFrame *phlFrame,
206 IHlinkBrowseContext* phlbc, DWORD grfHLNF, IMoniker *pmkTarget,
207 LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, ULONG* puHLID)
211 TRACE("%p %p %i %p %s %s %p\n",phlFrame, phlbc, grfHLNF, pmkTarget,
212 debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), puHLID);
214 r = IHlinkBrowseContext_OnNavigateHlink(phlbc, grfHLNF, pmkTarget,
215 pwzLocation, pwzFriendlyName, puHLID);
218 r = IHlinkFrame_OnNavigate(phlFrame,grfHLNF,pmkTarget, pwzLocation,
224 /***********************************************************************
225 * HlinkCreateFromData (HLINK.@)
227 HRESULT WINAPI HlinkCreateFromData(IDataObject *piDataObj,
228 IHlinkSite *pihlsite, DWORD dwSiteData, IUnknown *piunkOuter,
229 REFIID riid, void **ppvObj)
231 FIXME("%p %p %d %p %p %p\n",
232 piDataObj, pihlsite, dwSiteData, piunkOuter, riid, ppvObj);
237 /***********************************************************************
238 * HlinkQueryCreateFromData (HLINK.@)
240 HRESULT WINAPI HlinkQueryCreateFromData(IDataObject* piDataObj)
242 FIXME("%p\n", piDataObj);
246 /***********************************************************************
247 * HlinkNavigateToStringReference (HLINK.@)
249 HRESULT WINAPI HlinkNavigateToStringReference( LPCWSTR pwzTarget,
250 LPCWSTR pwzLocation, IHlinkSite *pihlsite, DWORD dwSiteData,
251 IHlinkFrame *pihlframe, DWORD grfHLNF, LPBC pibc,
252 IBindStatusCallback *pibsc, IHlinkBrowseContext *pihlbc)
255 IHlink *hlink = NULL;
257 TRACE("%s %s %p %08x %p %08x %p %p %p\n",
258 debugstr_w(pwzTarget), debugstr_w(pwzLocation), pihlsite,
259 dwSiteData, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
261 r = HlinkCreateFromString( pwzTarget, pwzLocation, NULL, pihlsite,
262 dwSiteData, NULL, &IID_IHlink, (LPVOID*) &hlink );
264 r = HlinkNavigate(hlink, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
265 IHlink_Release(hlink);
271 /***********************************************************************
272 * HlinkIsShortcut (HLINK.@)
274 HRESULT WINAPI HlinkIsShortcut(LPCWSTR pwzFileName)
278 static const WCHAR url_ext[] = {'.','u','r','l',0};
280 TRACE("(%s)\n", debugstr_w(pwzFileName));
285 len = strlenW(pwzFileName)-4;
289 return strcmpiW(pwzFileName+len, url_ext) ? S_FALSE : S_OK;
292 /***********************************************************************
293 * HlinkGetSpecialReference (HLINK.@)
295 HRESULT WINAPI HlinkGetSpecialReference(ULONG uReference, LPWSTR *ppwzReference)
297 DWORD res, type, size = 100;
302 static const WCHAR start_pageW[] = {'S','t','a','r','t',' ','P','a','g','e',0};
303 static const WCHAR search_pageW[] = {'S','e','a','r','c','h',' ','P','a','g','e',0};
305 static const WCHAR ie_main_keyW[] =
306 {'S','o','f','t','w','a','r','e',
307 '\\','M','i','c','r','o','s','o','f','t','\\',
308 'I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r',
309 '\\','M','a','i','n',0};
311 TRACE("(%u %p)\n", uReference, ppwzReference);
313 *ppwzReference = NULL;
317 value_name = start_pageW;
319 case HLSR_SEARCHPAGE:
320 value_name = search_pageW;
322 case HLSR_HISTORYFOLDER:
328 res = RegOpenKeyW(HKEY_CURRENT_USER, ie_main_keyW, &hkey);
329 if(res != ERROR_SUCCESS) {
330 WARN("Could not open key: %u\n", res);
331 return HRESULT_FROM_WIN32(res);
334 buf = CoTaskMemAlloc(size);
335 res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
336 buf = CoTaskMemRealloc(buf, size);
337 if(res == ERROR_MORE_DATA)
338 res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
340 if(res != ERROR_SUCCESS) {
341 WARN("Could not query value %s: %u\n", debugstr_w(value_name), res);
343 return HRESULT_FROM_WIN32(res);
346 *ppwzReference = buf;
350 /***********************************************************************
351 * HlinkTranslateURL (HLINK.@)
353 HRESULT WINAPI HlinkTranslateURL(LPCWSTR pwzURL, DWORD grfFlags, LPWSTR *ppwzTranslatedURL)
355 FIXME("(%s %08x %p)\n", debugstr_w(pwzURL), grfFlags, ppwzTranslatedURL);
359 /***********************************************************************
360 * HlinkUpdateStackItem (HLINK.@)
362 HRESULT WINAPI HlinkUpdateStackItem(IHlinkFrame *frame, IHlinkBrowseContext *bc,
363 ULONG hlid, IMoniker *target, LPCWSTR location, LPCWSTR friendly_name)
367 TRACE("(%p %p 0x%x %p %s %s)\n", frame, bc, hlid, target, debugstr_w(location), debugstr_w(friendly_name));
369 if (!frame && !bc) return E_INVALIDARG;
372 hr = IHlinkFrame_UpdateHlink(frame, hlid, target, location, friendly_name);
374 hr = IHlinkBrowseContext_UpdateHlink(bc, hlid, target, location, friendly_name);
379 /***********************************************************************
380 * HlinkParseDisplayName (HLINK.@)
382 HRESULT WINAPI HlinkParseDisplayName(LPBC pibc, LPCWSTR pwzDisplayName, BOOL fNoForceAbs,
383 ULONG *pcchEaten, IMoniker **ppimk)
387 TRACE("(%p %s %x %p %p)\n", pibc, debugstr_w(pwzDisplayName), fNoForceAbs, pcchEaten, ppimk);
390 FIXME("Unsupported fNoForceAbs\n");
392 hres = MkParseDisplayNameEx(pibc, pwzDisplayName, pcchEaten, ppimk);
396 hres = MkParseDisplayName(pibc, pwzDisplayName, pcchEaten, ppimk);
400 hres = CreateFileMoniker(pwzDisplayName, ppimk);
402 *pcchEaten = strlenW(pwzDisplayName);
407 /***********************************************************************
408 * HlinkResolveMonikerForData (HLINK.@)
410 HRESULT WINAPI HlinkResolveMonikerForData(LPMONIKER pimkReference, DWORD reserved, LPBC pibc,
411 ULONG cFmtetc, FORMATETC *rgFmtetc, IBindStatusCallback *pibsc, LPMONIKER pimkBase)
413 LPOLESTR name = NULL;
419 TRACE("(%p %x %p %d %p %p %p)\n", pimkReference, reserved, pibc, cFmtetc, rgFmtetc, pibsc, pimkBase);
421 if(cFmtetc || rgFmtetc || pimkBase)
422 FIXME("Unsupported args\n");
424 hres = RegisterBindStatusCallback(pibc, pibsc, NULL /* FIXME */, 0);
428 hres = IMoniker_IsSystemMoniker(pimkReference, &mksys);
429 if(SUCCEEDED(hres) && mksys != MKSYS_URLMONIKER)
430 WARN("sysmk = %x\n", mksys);
432 /* FIXME: What is it for? */
433 CreateBindCtx(0, &bctx);
434 hres = IMoniker_GetDisplayName(pimkReference, bctx, NULL, &name);
435 IBindCtx_Release(bctx);
436 if(SUCCEEDED(hres)) {
437 TRACE("got display name %s\n", debugstr_w(name));
441 return IMoniker_BindToStorage(pimkReference, pibc, NULL, &IID_IUnknown, &obj);
444 /***********************************************************************
445 * HlinkClone (HLINK.@)
447 HRESULT WINAPI HlinkClone(IHlink *hlink, REFIID riid, IHlinkSite *hls,
448 DWORD site_data, void **obj)
450 IMoniker *mk, *clone_mk = NULL;
451 WCHAR *loc, *name = NULL;
454 if(!hlink || !riid || !obj)
459 hres = IHlink_GetMonikerReference(hlink, HLINKGETREF_DEFAULT, &mk, &loc);
467 hres = CreateStreamOnHGlobal(NULL, TRUE, &strm);
469 IMoniker_Release(mk);
473 hres = OleSaveToStream((IPersistStream*)mk, strm);
475 IStream_Release(strm);
476 IMoniker_Release(mk);
479 IMoniker_Release(mk);
482 hres = IStream_Seek(strm, lgint, STREAM_SEEK_SET, NULL);
484 IStream_Release(strm);
488 hres = OleLoadFromStream(strm, &IID_IMoniker, (void**)&clone_mk);
489 IStream_Release(strm);
494 hres = IHlink_GetFriendlyName(hlink, HLFNAMEF_DEFAULT, &name);
498 hres = HlinkCreateFromMoniker(clone_mk, loc, name, hls, site_data, NULL,
503 IMoniker_Release(clone_mk);
509 static HRESULT WINAPI HLinkCF_fnQueryInterface ( LPCLASSFACTORY iface,
510 REFIID riid, LPVOID *ppvObj)
512 CFImpl *This = impl_from_IClassFactory(iface);
514 TRACE("(%p)->(%s)\n",This,debugstr_guid(riid));
518 if (IsEqualIID(riid, &IID_IUnknown) ||
519 IsEqualIID(riid, &IID_IClassFactory))
525 TRACE("-- E_NOINTERFACE\n");
526 return E_NOINTERFACE;
529 static ULONG WINAPI HLinkCF_fnAddRef (LPCLASSFACTORY iface)
534 static ULONG WINAPI HLinkCF_fnRelease(LPCLASSFACTORY iface)
539 static HRESULT WINAPI HLinkCF_fnCreateInstance( LPCLASSFACTORY iface,
540 LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
542 CFImpl *This = impl_from_IClassFactory(iface);
544 TRACE("%p->(%p,%s,%p)\n", This, pUnkOuter, debugstr_guid(riid), ppvObject);
548 return This->lpfnCI(pUnkOuter, riid, ppvObject);
551 static HRESULT WINAPI HLinkCF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
553 FIXME("%p %d\n", iface, fLock);
557 static const IClassFactoryVtbl hlcfvt =
559 HLinkCF_fnQueryInterface,
562 HLinkCF_fnCreateInstance,
566 static CFImpl HLink_cf = { { &hlcfvt }, HLink_Constructor };
567 static CFImpl HLinkBrowseContext_cf = { { &hlcfvt }, HLinkBrowseContext_Constructor };
569 /***********************************************************************
570 * DllGetClassObject (HLINK.@)
572 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
574 IClassFactory *pcf = NULL;
576 TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
582 if (IsEqualIID(rclsid, &CLSID_StdHlink))
583 pcf = &HLink_cf.IClassFactory_iface;
584 else if (IsEqualIID(rclsid, &CLSID_StdHlinkBrowseContext))
585 pcf = &HLinkBrowseContext_cf.IClassFactory_iface;
587 return CLASS_E_CLASSNOTAVAILABLE;
589 return IClassFactory_QueryInterface(pcf, iid, ppv);
592 /***********************************************************************
593 * DllRegisterServer (HLINK.@)
595 HRESULT WINAPI DllRegisterServer(void)
597 return __wine_register_resources( instance );
600 /***********************************************************************
601 * DllUnregisterServer (HLINK.@)
603 HRESULT WINAPI DllUnregisterServer(void)
605 return __wine_unregister_resources( instance );