git.oblomov.eu Git - wine/blob - 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 <stdarg.h>
  22
  23 #define COBJMACROS
  24
  25 #include "winerror.h"
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winuser.h"
  29 #include "winreg.h"
  30 #include "ole2.h"
  31 #include "unknwn.h"
  32
  33 #include "wine/debug.h"
  34 #include "wine/unicode.h"
  35 #include "hlink.h"
  36 #include "hlguids.h"
  37
  38 WINE_DEFAULT_DEBUG_CHANNEL(hlink);
  39
  40 extern HRESULT WINAPI HLink_Constructor(IUnknown *, REFIID, LPVOID*);
  41 extern HRESULT WINAPI HLinkBrowseContext_Constructor(IUnknown *, REFIID, LPVOID*);
  42
  43 typedef HRESULT (CALLBACK *LPFNCREATEINSTANCE)(IUnknown*, REFIID, LPVOID*);
  44
  45 typedef struct
  46 {
  47     const IClassFactoryVtbl *lpVtbl;
  48     LPFNCREATEINSTANCE      lpfnCI;
  49 } CFImpl;
  50
  51 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
  52 {
  53     TRACE("%p %d %p\n", hinstDLL, fdwReason, lpvReserved);
  54
  55     switch (fdwReason)
  56     {
  57     case DLL_WINE_PREATTACH:
  58         return FALSE;  /* prefer native version */
  59     case DLL_PROCESS_ATTACH:
  60         DisableThreadLibraryCalls(hinstDLL);
  61         break;
  62     case DLL_PROCESS_DETACH:
  63         break;
  64     }
  65     return TRUE;
  66 }
  67
  68 HRESULT WINAPI DllCanUnloadNow( void )
  69 {
  70     FIXME("\n");
  71     return S_OK;
  72 }
  73
  74 HRESULT WINAPI HlinkCreateFromMoniker( IMoniker *pimkTrgt, LPCWSTR pwzLocation,
  75         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
  76         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
  77 {
  78     IHlink *hl = NULL;
  79     HRESULT r = S_OK;
  80
  81     TRACE("%p %s %s %p %i %p %s %p\n", pimkTrgt, debugstr_w(pwzLocation),
  82             debugstr_w(pwzFriendlyName), pihlsite, dwSiteData, piunkOuter,
  83             debugstr_guid(riid), ppvObj);
  84
  85     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
  86     if (FAILED(r))
  87         return r;
  88
  89     if (pwzLocation)
  90         IHlink_SetStringReference(hl, HLINKSETF_LOCATION, NULL, pwzLocation);
  91     if (pwzFriendlyName)
  92         IHlink_SetFriendlyName(hl, pwzFriendlyName);
  93     if (pihlsite)
  94         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
  95     if (pimkTrgt)
  96         IHlink_SetMonikerReference(hl, 0, pimkTrgt, pwzLocation);
  97
  98     *ppvObj = hl;
  99
 100     TRACE("Returning %i\n",r);
 101
 102     return r;
 103 }
 104
 105 HRESULT WINAPI HlinkCreateFromString( LPCWSTR pwzTarget, LPCWSTR pwzLocation,
 106         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
 107         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
 108 {
 109     IHlink *hl = NULL;
 110     HRESULT r = S_OK;
 111
 112     TRACE("%s %s %s %p %i %p %s %p\n", debugstr_w(pwzTarget),
 113             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), pihlsite,
 114             dwSiteData, piunkOuter, debugstr_guid(riid), ppvObj);
 115
 116     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
 117     if (FAILED(r))
 118         return r;
 119
 120     if (pwzLocation)
 121         IHlink_SetStringReference(hl, HLINKSETF_LOCATION, NULL, pwzLocation);
 122
 123     if (pwzTarget)
 124     {
 125         IMoniker *pTgtMk = NULL;
 126         IBindCtx *pbc = NULL;
 127         ULONG eaten;
 128
 129         CreateBindCtx(0, &pbc);
 130         r = MkParseDisplayName(pbc, pwzTarget, &eaten, &pTgtMk);
 131         IBindCtx_Release(pbc);
 132
 133         if (FAILED(r))
 134         {
 135             LPCWSTR p = strchrW(pwzTarget, ':');
 136             if (p && (p - pwzTarget > 1))
 137                 r = CreateURLMoniker(NULL, pwzTarget, &pTgtMk);
 138             else
 139                 r = CreateFileMoniker(pwzTarget,&pTgtMk);
 140         }
 141
 142         if (FAILED(r))
 143         {
 144             ERR("couldn't create moniker for %s, failed with error 0x%08x\n",
 145                 debugstr_w(pwzTarget), r);
 146             return r;
 147         }
 148
 149         IHlink_SetMonikerReference(hl, 0, pTgtMk, pwzLocation);
 150         IMoniker_Release(pTgtMk);
 151
 152         IHlink_SetStringReference(hl, HLINKSETF_TARGET, pwzTarget, NULL);
 153     }
 154
 155     if (pwzFriendlyName)
 156         IHlink_SetFriendlyName(hl, pwzFriendlyName);
 157     if (pihlsite)
 158         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
 159
 160     TRACE("Returning %i\n",r);
 161     *ppvObj = hl;
 162
 163     return r;
 164 }
 165
 166
 167 HRESULT WINAPI HlinkCreateBrowseContext( IUnknown* piunkOuter, REFIID riid, void** ppvObj)
 168 {
 169     HRESULT r = S_OK;
 170
 171     TRACE("%p %s %p\n", piunkOuter, debugstr_guid(riid), ppvObj);
 172
 173     r = CoCreateInstance(&CLSID_StdHlinkBrowseContext, piunkOuter, CLSCTX_INPROC_SERVER, riid, ppvObj);
 174
 175     TRACE("returning %i\n",r);
 176
 177     return r;
 178 }
 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 HRESULT WINAPI HlinkOnNavigate( IHlinkFrame *phlFrame,
 197         IHlinkBrowseContext* phlbc, DWORD grfHLNF, IMoniker *pmkTarget,
 198         LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, ULONG* puHLID)
 199 {
 200     HRESULT r = S_OK;
 201
 202     TRACE("%p %p %i %p %s %s %p\n",phlFrame, phlbc, grfHLNF, pmkTarget,
 203             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), puHLID);
 204
 205     r = IHlinkBrowseContext_OnNavigateHlink(phlbc, grfHLNF, pmkTarget,
 206             pwzLocation, pwzFriendlyName, puHLID);
 207
 208     if (phlFrame)
 209         r = IHlinkFrame_OnNavigate(phlFrame,grfHLNF,pmkTarget, pwzLocation,
 210                 pwzFriendlyName, 0);
 211
 212     return r;
 213 }
 214
 215 HRESULT WINAPI HlinkCreateFromData(IDataObject *piDataObj,
 216         IHlinkSite *pihlsite, DWORD dwSiteData, IUnknown *piunkOuter,
 217         REFIID riid, void **ppvObj)
 218 {
 219     FIXME("%p %p %d %p %p %p\n",
 220           piDataObj, pihlsite, dwSiteData, piunkOuter, riid, ppvObj);
 221     *ppvObj = NULL;
 222     return E_NOTIMPL;
 223 }
 224
 225 HRESULT WINAPI HlinkQueryCreateFromData(IDataObject* piDataObj)
 226 {
 227     FIXME("%p\n", piDataObj);
 228     return E_NOTIMPL;
 229 }
 230
 231 HRESULT WINAPI HlinkCreateExtensionServices(LPCWSTR pwzAdditionalHeaders,
 232         HWND phwnd, LPCWSTR pszUsername, LPCWSTR pszPassword,
 233         IUnknown *punkOuter, REFIID riid, void** ppvObj)
 234 {
 235     FIXME("%s %p %s %s %p %s %p\n",debugstr_w(pwzAdditionalHeaders),
 236             phwnd, debugstr_w(pszUsername), debugstr_w(pszPassword),
 237             punkOuter, debugstr_guid(riid), ppvObj);
 238     return E_NOTIMPL;
 239 }
 240
 241 HRESULT WINAPI HlinkNavigateToStringReference( LPCWSTR pwzTarget,
 242         LPCWSTR pwzLocation, IHlinkSite *pihlsite, DWORD dwSiteData,
 243         IHlinkFrame *pihlframe, DWORD grfHLNF, LPBC pibc,
 244         IBindStatusCallback *pibsc, IHlinkBrowseContext *pihlbc)
 245 {
 246     HRESULT r;
 247     IHlink *hlink = NULL;
 248
 249     FIXME("%s %s %p %08x %p %08x %p %p %p\n",
 250           debugstr_w(pwzTarget), debugstr_w(pwzLocation), pihlsite,
 251           dwSiteData, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
 252
 253     r = HlinkCreateFromString( pwzTarget, pwzLocation, NULL, pihlsite,
 254                                dwSiteData, NULL, &IID_IHlink, (LPVOID*) &hlink );
 255     if (SUCCEEDED(r))
 256         r = HlinkNavigate(hlink, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
 257
 258     return r;
 259 }
 260
 261 HRESULT WINAPI HlinkIsShortcut(LPCWSTR pwzFileName)
 262 {
 263     int len;
 264
 265     static const WCHAR url_ext[] = {'.','u','r','l',0};
 266
 267     TRACE("(%s)\n", debugstr_w(pwzFileName));
 268
 269     if(!pwzFileName)
 270         return E_INVALIDARG;
 271
 272     len = strlenW(pwzFileName)-4;
 273     if(len < 0)
 274         return S_FALSE;
 275
 276     return strcmpiW(pwzFileName+len, url_ext) ? S_FALSE : S_OK;
 277 }
 278
 279 HRESULT WINAPI HlinkGetSpecialReference(ULONG uReference, LPWSTR *ppwzReference)
 280 {
 281     DWORD res, type, size = 100;
 282     LPCWSTR value_name;
 283     WCHAR *buf;
 284     HKEY hkey;
 285
 286     static const WCHAR start_pageW[] = {'S','t','a','r','t',' ','P','a','g','e',0};
 287     static const WCHAR search_pageW[] = {'S','e','a','r','c','h',' ','P','a','g','e',0};
 288
 289     static const WCHAR ie_main_keyW[] =
 290         {'S','o','f','t','w','a','r','e',
 291          '\\','M','i','c','r','o','s','o','f','t','\\',
 292          'I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r',
 293          '\\','M','a','i','n',0};
 294
 295     TRACE("(%u %p)\n", uReference, ppwzReference);
 296
 297     *ppwzReference = NULL;
 298
 299     switch(uReference) {
 300     case HLSR_HOME:
 301         value_name = start_pageW;
 302         break;
 303     case HLSR_SEARCHPAGE:
 304         value_name = search_pageW;
 305         break;
 306     case HLSR_HISTORYFOLDER:
 307         return E_NOTIMPL;
 308     default:
 309         return E_INVALIDARG;
 310     }
 311
 312     res = RegOpenKeyW(HKEY_CURRENT_USER, ie_main_keyW, &hkey);
 313     if(res != ERROR_SUCCESS) {
 314         WARN("Could not open key: %u\n", res);
 315         return HRESULT_FROM_WIN32(res);
 316     }
 317
 318     buf = CoTaskMemAlloc(size);
 319     res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
 320     buf = CoTaskMemRealloc(buf, size);
 321     if(res == ERROR_MORE_DATA)
 322         res = RegQueryValueExW(hkey, value_name, NULL, &type, (PBYTE)buf, &size);
 323     RegCloseKey(hkey);
 324     if(res != ERROR_SUCCESS) {
 325         WARN("Could not query value %s: %u\n", debugstr_w(value_name), res);
 326         CoTaskMemFree(buf);
 327         return HRESULT_FROM_WIN32(res);
 328     }
 329
 330     *ppwzReference = buf;
 331     return S_OK;
 332 }
 333
 334 HRESULT WINAPI HlinkTranslateURL(LPCWSTR pwzURL, DWORD grfFlags, LPWSTR *ppwzTranslatedURL)
 335 {
 336     FIXME("(%s %08x %p)\n", debugstr_w(pwzURL), grfFlags, ppwzTranslatedURL);
 337     return E_NOTIMPL;
 338 }
 339
 340 static HRESULT WINAPI HLinkCF_fnQueryInterface ( LPCLASSFACTORY iface,
 341         REFIID riid, LPVOID *ppvObj)
 342 {
 343     CFImpl *This = (CFImpl *)iface;
 344
 345     TRACE("(%p)->(%s)\n",This,debugstr_guid(riid));
 346
 347     *ppvObj = NULL;
 348
 349     if (IsEqualIID(riid, &IID_IUnknown) ||
 350         IsEqualIID(riid, &IID_IClassFactory))
 351     {
 352         *ppvObj = This;
 353         return S_OK;
 354     }
 355
 356     TRACE("-- E_NOINTERFACE\n");
 357     return E_NOINTERFACE;
 358 }
 359
 360 static ULONG WINAPI HLinkCF_fnAddRef (LPCLASSFACTORY iface)
 361 {
 362     return 2;
 363 }
 364
 365 static ULONG WINAPI HLinkCF_fnRelease(LPCLASSFACTORY iface)
 366 {
 367     return 1;
 368 }
 369
 370 static HRESULT WINAPI HLinkCF_fnCreateInstance( LPCLASSFACTORY iface,
 371         LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
 372 {
 373     CFImpl *This = (CFImpl *)iface;
 374
 375     TRACE("%p->(%p,%s,%p)\n", This, pUnkOuter, debugstr_guid(riid), ppvObject);
 376
 377     *ppvObject = NULL;
 378
 379     return This->lpfnCI(pUnkOuter, riid, ppvObject);
 380 }
 381
 382 static HRESULT WINAPI HLinkCF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
 383 {
 384     FIXME("%p %d\n", iface, fLock);
 385     return E_NOTIMPL;
 386 }
 387
 388 static const IClassFactoryVtbl hlcfvt =
 389 {
 390     HLinkCF_fnQueryInterface,
 391     HLinkCF_fnAddRef,
 392     HLinkCF_fnRelease,
 393     HLinkCF_fnCreateInstance,
 394     HLinkCF_fnLockServer
 395 };
 396
 397 static CFImpl HLink_cf = { &hlcfvt, &HLink_Constructor };
 398 static CFImpl HLinkBrowseContext_cf = { &hlcfvt, &HLinkBrowseContext_Constructor };
 399
 400 /***********************************************************************
 401  *             DllGetClassObject (HLINK.@)
 402  */
 403 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
 404 {
 405     IClassFactory   *pcf = NULL;
 406
 407     TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
 408
 409     if (!ppv)
 410         return E_INVALIDARG;
 411     *ppv = NULL;
 412
 413     if (IsEqualIID(rclsid, &CLSID_StdHlink))
 414         pcf = (IClassFactory*) &HLink_cf;
 415     else if (IsEqualIID(rclsid, &CLSID_StdHlinkBrowseContext))
 416         pcf = (IClassFactory*) &HLinkBrowseContext_cf;
 417     else
 418         return CLASS_E_CLASSNOTAVAILABLE;
 419
 420     return IClassFactory_QueryInterface(pcf, iid, ppv);
 421 }
 422
 423 static HRESULT register_clsid(LPCGUID guid)
 424 {
 425     static const WCHAR clsid[] =
 426         {'C','L','S','I','D','\\',0};
 427     static const WCHAR ips[] =
 428         {'\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0};
 429     static const WCHAR hlink[] =
 430         {'h','l','i','n','k','.','d','l','l',0};
 431     static const WCHAR threading_model[] =
 432         {'T','h','r','e','a','d','i','n','g','M','o','d','e','l',0};
 433     static const WCHAR apartment[] =
 434         {'A','p','a','r','t','m','e','n','t',0};
 435     WCHAR path[80];
 436     HKEY key = NULL;
 437     LONG r;
 438
 439     lstrcpyW(path, clsid);
 440     StringFromGUID2(guid, &path[6], 80);
 441     lstrcatW(path, ips);
 442     r = RegCreateKeyW(HKEY_CLASSES_ROOT, path, &key);
 443     if (r != ERROR_SUCCESS)
 444         return E_FAIL;
 445
 446     RegSetValueExW(key, NULL, 0, REG_SZ, (const BYTE *)hlink, sizeof hlink);
 447     RegSetValueExW(key, threading_model, 0, REG_SZ, (const BYTE *)apartment, sizeof apartment);
 448     RegCloseKey(key);
 449
 450     return S_OK;
 451 }
 452
 453 HRESULT WINAPI DllRegisterServer(void)
 454 {
 455     HRESULT r;
 456
 457     r = register_clsid(&CLSID_StdHlink);
 458     if (SUCCEEDED(r))
 459         r = register_clsid(&CLSID_StdHlinkBrowseContext);
 460
 461     return S_OK;
 462 }