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