dlls/hlink/hlink_main.c

   1 /*
   2  * Implementation of hyperlinking (hlink.dll)
   3  *
   4  * Copyright 2005 Aric Stewart for CodeWeavers
   5  *
   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.
  10  *
  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.
  15  *
  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
  19  */
  20
  21 #include "hlink_private.h"
  22
  23 #include "winreg.h"
  24 #include "hlguids.h"
  25
  26 #include "wine/debug.h"
  27
  28 WINE_DEFAULT_DEBUG_CHANNEL(hlink);
  29
  30 typedef HRESULT (CALLBACK *LPFNCREATEINSTANCE)(IUnknown*, REFIID, LPVOID*);
  31
  32 typedef struct
  33 {
  34     const IClassFactoryVtbl *lpVtbl;
  35     LPFNCREATEINSTANCE      lpfnCI;
  36 } CFImpl;
  37
  38 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
  39 {
  40     TRACE("%p %d %p\n", hinstDLL, fdwReason, lpvReserved);
  41
  42     switch (fdwReason)
  43     {
  44     case DLL_WINE_PREATTACH:
  45         return FALSE;  /* prefer native version */
  46     case DLL_PROCESS_ATTACH:
  47         DisableThreadLibraryCalls(hinstDLL);
  48         break;
  49     case DLL_PROCESS_DETACH:
  50         break;
  51     }
  52     return TRUE;
  53 }
  54
  55 /***********************************************************************
  56  *             DllCanUnloadNow (HLINK.@)
  57  */
  58 HRESULT WINAPI DllCanUnloadNow( void )
  59 {
  60     FIXME("\n");
  61     return S_OK;
  62 }
  63
  64 /***********************************************************************
  65  *             HlinkCreateFromMoniker (HLINK.@)
  66  */
  67 HRESULT WINAPI HlinkCreateFromMoniker( IMoniker *pimkTrgt, LPCWSTR pwzLocation,
  68         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
  69         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
  70 {
  71     IHlink *hl = NULL;
  72     HRESULT r = S_OK;
  73
  74     TRACE("%p %s %s %p %i %p %s %p\n", pimkTrgt, debugstr_w(pwzLocation),
  75             debugstr_w(pwzFriendlyName), pihlsite, dwSiteData, piunkOuter,
  76             debugstr_guid(riid), ppvObj);
  77
  78     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
  79     if (FAILED(r))
  80         return r;
  81
  82     if (pwzLocation)
  83         IHlink_SetStringReference(hl, HLINKSETF_LOCATION, NULL, pwzLocation);
  84     if (pwzFriendlyName)
  85         IHlink_SetFriendlyName(hl, pwzFriendlyName);
  86     if (pihlsite)
  87         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
  88     if (pimkTrgt)
  89         IHlink_SetMonikerReference(hl, 0, pimkTrgt, pwzLocation);
  90
  91     *ppvObj = hl;
  92
  93     TRACE("Returning %i\n",r);
  94
  95     return r;
  96 }
  97
  98 /***********************************************************************
  99  *             HlinkCreateFromString (HLINK.@)
 100  */
 101 HRESULT WINAPI HlinkCreateFromString( LPCWSTR pwzTarget, LPCWSTR pwzLocation,
 102         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
 103         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
 104 {
 105     IHlink *hl = NULL;
 106     HRESULT r = S_OK;
 107
 108     TRACE("%s %s %s %p %i %p %s %p\n", debugstr_w(pwzTarget),
 109             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), pihlsite,
 110             dwSiteData, piunkOuter, debugstr_guid(riid), ppvObj);
 111
 112     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
 113     if (FAILED(r))
 114         return r;
 115
 116     if (pwzLocation)
 117         IHlink_SetStringReference(hl, HLINKSETF_LOCATION, NULL, pwzLocation);
 118
 119     if (pwzTarget)
 120     {
 121         IMoniker *pTgtMk = NULL;
 122         IBindCtx *pbc = NULL;
 123         ULONG eaten;
 124
 125         CreateBindCtx(0, &pbc);
 126         r = MkParseDisplayName(pbc, pwzTarget, &eaten, &pTgtMk);
 127         IBindCtx_Release(pbc);
 128
 129         if (FAILED(r))
 130         {
 131             LPCWSTR p = strchrW(pwzTarget, ':');
 132             if (p && (p - pwzTarget > 1))
 133                 r = CreateURLMoniker(NULL, pwzTarget, &pTgtMk);
 134             else
 135                 r = CreateFileMoniker(pwzTarget,&pTgtMk);
 136         }
 137
 138         if (FAILED(r))
 139         {
 140             ERR("couldn't create moniker for %s, failed with error 0x%08x\n",
 141                 debugstr_w(pwzTarget), r);
 142             return r;
 143         }
 144
 145         IHlink_SetMonikerReference(hl, 0, pTgtMk, pwzLocation);
 146         IMoniker_Release(pTgtMk);
 147
 148         IHlink_SetStringReference(hl, HLINKSETF_TARGET, pwzTarget, NULL);
 149     }
 150
 151     if (pwzFriendlyName)
 152         IHlink_SetFriendlyName(hl, pwzFriendlyName);
 153     if (pihlsite)
 154         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
 155
 156     TRACE("Returning %i\n",r);
 157     *ppvObj = hl;
 158
 159     return r;
 160 }
 161
 162
 163 /***********************************************************************
 164  *             HlinkNavigate (HLINK.@)
 165  */
 166 HRESULT WINAPI HlinkCreateBrowseContext( IUnknown* piunkOuter, REFIID riid, void** ppvObj)
 167 {
 168     HRESULT r = S_OK;
 169
 170     TRACE("%p %s %p\n", piunkOuter, debugstr_guid(riid), ppvObj);
 171
 172     r = CoCreateInstance(&CLSID_StdHlinkBrowseContext, piunkOuter, CLSCTX_INPROC_SERVER, riid, ppvObj);
 173
 174     TRACE("returning %i\n",r);
 175
 176     return r;
 177 }
 178
 179 /***********************************************************************
 180  *             HlinkNavigate (HLINK.@)
 181  */
 182 HRESULT WINAPI HlinkNavigate(IHlink *phl, IHlinkFrame *phlFrame,
 183         DWORD grfHLNF, LPBC pbc, IBindStatusCallback *pbsc,
 184         IHlinkBrowseContext *phlbc)
 185 {
 186     HRESULT r = S_OK;
 187
 188     TRACE("%p %p %i %p %p %p\n", phl, phlFrame, grfHLNF, pbc, pbsc, phlbc);
 189
 190     if (phlFrame)
 191         r = IHlinkFrame_Navigate(phlFrame, grfHLNF, pbc, pbsc, phl);
 192     else if (phl)
 193         r = IHlink_Navigate(phl, grfHLNF, pbc, pbsc, phlbc);
 194
 195     return r;
 196 }
 197
 198 /***********************************************************************
 199  *             HlinkOnNavigate (HLINK.@)
 200  */
 201 HRESULT WINAPI HlinkOnNavigate( IHlinkFrame *phlFrame,
 202         IHlinkBrowseContext* phlbc, DWORD grfHLNF, IMoniker *pmkTarget,
 203         LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, ULONG* puHLID)
 204 {
 205     HRESULT r = S_OK;
 206
 207     TRACE("%p %p %i %p %s %s %p\n",phlFrame, phlbc, grfHLNF, pmkTarget,
 208             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), puHLID);
 209
 210     r = IHlinkBrowseContext_OnNavigateHlink(phlbc, grfHLNF, pmkTarget,
 211             pwzLocation, pwzFriendlyName, puHLID);
 212
 213     if (phlFrame)
 214         r = IHlinkFrame_OnNavigate(phlFrame,grfHLNF,pmkTarget, pwzLocation,
 215                 pwzFriendlyName, 0);
 216
 217     return r;
 218 }
 219
 220 /***********************************************************************
 221  *             HlinkCreateFromData (HLINK.@)
 222  */
 223 HRESULT WINAPI HlinkCreateFromData(IDataObject *piDataObj,
 224         IHlinkSite *pihlsite, DWORD dwSiteData, IUnknown *piunkOuter,
 225         REFIID riid, void **ppvObj)
 226 {
 227     FIXME("%p %p %d %p %p %p\n",
 228           piDataObj, pihlsite, dwSiteData, piunkOuter, riid, ppvObj);
 229     *ppvObj = NULL;
 230     return E_NOTIMPL;
 231 }
 232
 233 /***********************************************************************
 234  *             HlinkQueryCreateFromData (HLINK.@)
 235  */
 236 HRESULT WINAPI HlinkQueryCreateFromData(IDataObject* piDataObj)
 237 {
 238     FIXME("%p\n", piDataObj);
 239     return E_NOTIMPL;
 240 }
 241
 242 /***********************************************************************
 243  *             HlinkNavigateToStringReference (HLINK.@)
 244  */
 245 HRESULT WINAPI HlinkNavigateToStringReference( LPCWSTR pwzTarget,
 246         LPCWSTR pwzLocation, IHlinkSite *pihlsite, DWORD dwSiteData,
 247         IHlinkFrame *pihlframe, DWORD grfHLNF, LPBC pibc,
 248         IBindStatusCallback *pibsc, IHlinkBrowseContext *pihlbc)
 249 {
 250     HRESULT r;
 251     IHlink *hlink = NULL;
 252
 253     FIXME("%s %s %p %08x %p %08x %p %p %p\n",
 254           debugstr_w(pwzTarget), debugstr_w(pwzLocation), pihlsite,
 255           dwSiteData, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
 256
 257     r = HlinkCreateFromString( pwzTarget, pwzLocation, NULL, pihlsite,
 258                                dwSiteData, NULL, &IID_IHlink, (LPVOID*) &hlink );
 259     if (SUCCEEDED(r))
 260         r = HlinkNavigate(hlink, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
 261
 262     return r;
 263 }
 264
 265 /***********************************************************************
 266  *             HlinkIsShortcut (HLINK.@)
 267  */
 268 HRESULT WINAPI HlinkIsShortcut(LPCWSTR pwzFileName)
 269 {
 270     int len;
 271
 272     static const WCHAR url_ext[] = {'.','u','r','l',0};
 273
 274     TRACE("(%s)\n", debugstr_w(pwzFileName));
 275
 276     if(!pwzFileName)
 277         return E_INVALIDARG;
 278
 279     len = strlenW(pwzFileName)-4;
 280     if(len < 0)
 281         return S_FALSE;
 282
 283     return strcmpiW(pwzFileName+len, url_ext) ? S_FALSE : S_OK;
 284 }
 285
 286 /***********************************************************************
 287  *             HlinkGetSpecialReference (HLINK.@)
 288  */
 289 HRESULT WINAPI HlinkGetSpecialReference(ULONG uReference, LPWSTR *ppwzReference)
 290 {
 291     DWORD res, type, size = 100;
 292     LPCWSTR value_name;
 293     WCHAR *buf;
 294     HKEY hkey;
 295
 296     static const WCHAR start_pageW[] = {'S','t','a','r','t',' ','P','a','g','e',0};
 297     static const WCHAR search_pageW[] = {'S','e','a','r','c','h',' ','P','a','g','e',0};
 298
 299     static const WCHAR ie_main_keyW[] =
 300         {'S','o','f','t','w','a','r','e',
 301          '\\','M','i','c','r','o','s','o','f','t','\\',
 302          'I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r',
 303          '\\','M','a','i','n',0};
 304
 305     TRACE("(%u %p)\n", uReference, ppwzReference);
 306
 307     *ppwzReference = NULL;
 308
 309     switch(uReference) {
 310     case HLSR_HOME:
 311         value_name = start_pageW;
 312         break;
 313     case HLSR_SEARCHPAGE:
 314         value_name = search_pageW;
 315         break;
 316     case HLSR_HISTORYFOLDER:
 317         return E_NOTIMPL;
 318     default:
 319         return E_INVALIDARG;
 320     }
 321
 322     res = RegOpenKeyW(HKEY_CURRENT_USER, ie_main_keyW, &hkey);
 323     if(res != ERROR_SUCCESS) {
 324         WARN("Could not open key: %u\n", res);
 325         return HRESULT_FROM_WIN32(res);
 326     }
 327
 328     buf = CoTaskMemAlloc(size);
 329     res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
 330     buf = CoTaskMemRealloc(buf, size);
 331     if(res == ERROR_MORE_DATA)
 332         res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
 333     RegCloseKey(hkey);
 334     if(res != ERROR_SUCCESS) {
 335         WARN("Could not query value %s: %u\n", debugstr_w(value_name), res);
 336         CoTaskMemFree(buf);
 337         return HRESULT_FROM_WIN32(res);
 338     }
 339
 340     *ppwzReference = buf;
 341     return S_OK;
 342 }
 343
 344 /***********************************************************************
 345  *             HlinkTranslateURL (HLINK.@)
 346  */
 347 HRESULT WINAPI HlinkTranslateURL(LPCWSTR pwzURL, DWORD grfFlags, LPWSTR *ppwzTranslatedURL)
 348 {
 349     FIXME("(%s %08x %p)\n", debugstr_w(pwzURL), grfFlags, ppwzTranslatedURL);
 350     return E_NOTIMPL;
 351 }
 352
 353 /***********************************************************************
 354  *             HlinkUpdateStackItem (HLINK.@)
 355  */
 356 HRESULT WINAPI HlinkUpdateStackItem(IHlinkFrame *pihlframe, IHlinkBrowseContext *pihlbc,
 357         ULONG uHLID, IMoniker *pimkTrgt, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName)
 358 {
 359     FIXME("(%p %p %u %p %s %s)\n", pihlframe, pihlbc, uHLID, pimkTrgt, debugstr_w(pwzLocation),
 360           debugstr_w(pwzFriendlyName));
 361     return E_NOTIMPL;
 362 }
 363
 364 /***********************************************************************
 365  *             HlinkParseDisplayName (HLINK.@)
 366  */
 367 HRESULT WINAPI HlinkParseDisplayName(LPBC pibc, LPCWSTR pwzDisplayName, BOOL fNoForceAbs,
 368         ULONG *pcchEaten, IMoniker **ppimk)
 369 {
 370     HRESULT hres;
 371
 372     TRACE("(%p %s %x %p %p)\n", pibc, debugstr_w(pwzDisplayName), fNoForceAbs, pcchEaten, ppimk);
 373
 374     if(fNoForceAbs)
 375         FIXME("Unsupported fNoForceAbs\n");
 376
 377     hres = MkParseDisplayNameEx(pibc, pwzDisplayName, pcchEaten, ppimk);
 378     if(SUCCEEDED(hres))
 379         return hres;
 380
 381     hres = MkParseDisplayName(pibc, pwzDisplayName, pcchEaten, ppimk);
 382     if(SUCCEEDED(hres))
 383         return hres;
 384
 385     hres = CreateFileMoniker(pwzDisplayName, ppimk);
 386     if(SUCCEEDED(hres))
 387         *pcchEaten = strlenW(pwzDisplayName);
 388
 389     return hres;
 390 }
 391
 392 /***********************************************************************
 393  *             HlinkResolveMonikerForData (HLINK.@)
 394  */
 395 HRESULT WINAPI HlinkResolveMonikerForData(LPMONIKER pimkReference, DWORD reserved, LPBC pibc,
 396         ULONG cFmtetc, FORMATETC *rgFmtetc, IBindStatusCallback *pibsc, LPMONIKER pimkBase)
 397 {
 398     LPOLESTR name = NULL;
 399     IBindCtx *bctx;
 400     DWORD mksys = 0;
 401     void *obj = NULL;
 402     HRESULT hres;
 403
 404     TRACE("(%p %x %p %d %p %p %p)\n", pimkReference, reserved, pibc, cFmtetc, rgFmtetc, pibsc, pimkBase);
 405
 406     if(cFmtetc || rgFmtetc || pimkBase)
 407         FIXME("Unsupported args\n");
 408
 409     hres = RegisterBindStatusCallback(pibc, pibsc, NULL /* FIXME */, 0);
 410     if(FAILED(hres))
 411         return hres;
 412
 413     hres = IMoniker_IsSystemMoniker(pimkReference, &mksys);
 414     if(SUCCEEDED(hres) && mksys != MKSYS_URLMONIKER)
 415         WARN("sysmk = %x\n", mksys);
 416
 417     /* FIXME: What is it for? */
 418     CreateBindCtx(0, &bctx);
 419     hres = IMoniker_GetDisplayName(pimkReference, bctx, NULL, &name);
 420     IBindCtx_Release(bctx);
 421     if(SUCCEEDED(hres)) {
 422         TRACE("got display name %s\n", debugstr_w(name));
 423         CoTaskMemFree(name);
 424     }
 425
 426     return IMoniker_BindToStorage(pimkReference, pibc, NULL, &IID_IUnknown, &obj);
 427 }
 428
 429 static HRESULT WINAPI HLinkCF_fnQueryInterface ( LPCLASSFACTORY iface,
 430         REFIID riid, LPVOID *ppvObj)
 431 {
 432     CFImpl *This = (CFImpl *)iface;
 433
 434     TRACE("(%p)->(%s)\n",This,debugstr_guid(riid));
 435
 436     *ppvObj = NULL;
 437
 438     if (IsEqualIID(riid, &IID_IUnknown) ||
 439         IsEqualIID(riid, &IID_IClassFactory))
 440     {
 441         *ppvObj = This;
 442         return S_OK;
 443     }
 444
 445     TRACE("-- E_NOINTERFACE\n");
 446     return E_NOINTERFACE;
 447 }
 448
 449 static ULONG WINAPI HLinkCF_fnAddRef (LPCLASSFACTORY iface)
 450 {
 451     return 2;
 452 }
 453
 454 static ULONG WINAPI HLinkCF_fnRelease(LPCLASSFACTORY iface)
 455 {
 456     return 1;
 457 }
 458
 459 static HRESULT WINAPI HLinkCF_fnCreateInstance( LPCLASSFACTORY iface,
 460         LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
 461 {
 462     CFImpl *This = (CFImpl *)iface;
 463
 464     TRACE("%p->(%p,%s,%p)\n", This, pUnkOuter, debugstr_guid(riid), ppvObject);
 465
 466     *ppvObject = NULL;
 467
 468     return This->lpfnCI(pUnkOuter, riid, ppvObject);
 469 }
 470
 471 static HRESULT WINAPI HLinkCF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
 472 {
 473     FIXME("%p %d\n", iface, fLock);
 474     return E_NOTIMPL;
 475 }
 476
 477 static const IClassFactoryVtbl hlcfvt =
 478 {
 479     HLinkCF_fnQueryInterface,
 480     HLinkCF_fnAddRef,
 481     HLinkCF_fnRelease,
 482     HLinkCF_fnCreateInstance,
 483     HLinkCF_fnLockServer
 484 };
 485
 486 static CFImpl HLink_cf = { &hlcfvt, &HLink_Constructor };
 487 static CFImpl HLinkBrowseContext_cf = { &hlcfvt, &HLinkBrowseContext_Constructor };
 488
 489 /***********************************************************************
 490  *             DllGetClassObject (HLINK.@)
 491  */
 492 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
 493 {
 494     IClassFactory   *pcf = NULL;
 495
 496     TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
 497
 498     if (!ppv)
 499         return E_INVALIDARG;
 500     *ppv = NULL;
 501
 502     if (IsEqualIID(rclsid, &CLSID_StdHlink))
 503         pcf = (IClassFactory*) &HLink_cf;
 504     else if (IsEqualIID(rclsid, &CLSID_StdHlinkBrowseContext))
 505         pcf = (IClassFactory*) &HLinkBrowseContext_cf;
 506     else
 507         return CLASS_E_CLASSNOTAVAILABLE;
 508
 509     return IClassFactory_QueryInterface(pcf, iid, ppv);
 510 }
 511
 512 static HRESULT register_clsid(LPCGUID guid)
 513 {
 514     static const WCHAR clsid[] =
 515         {'C','L','S','I','D','\\',0};
 516     static const WCHAR ips[] =
 517         {'\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0};
 518     static const WCHAR hlink[] =
 519         {'h','l','i','n','k','.','d','l','l',0};
 520     static const WCHAR threading_model[] =
 521         {'T','h','r','e','a','d','i','n','g','M','o','d','e','l',0};
 522     static const WCHAR apartment[] =
 523         {'A','p','a','r','t','m','e','n','t',0};
 524     WCHAR path[80];
 525     HKEY key = NULL;
 526     LONG r;
 527
 528     lstrcpyW(path, clsid);
 529     StringFromGUID2(guid, &path[6], 80);
 530     lstrcatW(path, ips);
 531     r = RegCreateKeyW(HKEY_CLASSES_ROOT, path, &key);
 532     if (r != ERROR_SUCCESS)
 533         return E_FAIL;
 534
 535     RegSetValueExW(key, NULL, 0, REG_SZ, (const BYTE *)hlink, sizeof hlink);
 536     RegSetValueExW(key, threading_model, 0, REG_SZ, (const BYTE *)apartment, sizeof apartment);
 537     RegCloseKey(key);
 538
 539     return S_OK;
 540 }
 541
 542 /***********************************************************************
 543  *             DllRegisterServer (HLINK.@)
 544  */
 545 HRESULT WINAPI DllRegisterServer(void)
 546 {
 547     HRESULT r;
 548
 549     r = register_clsid(&CLSID_StdHlink);
 550     if (SUCCEEDED(r))
 551         r = register_clsid(&CLSID_StdHlinkBrowseContext);
 552
 553     return S_OK;
 554 }