dlls/ole32/comcat.c

   1 /*
   2  * Comcat implementation
   3  *
   4  * Copyright (C) 2002 John K. Hohm
   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 <string.h>
  22 #include <stdarg.h>
  23
  24 #define COBJMACROS
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winuser.h"
  29 #include "winreg.h"
  30 #include "winerror.h"
  31
  32 #include "ole2.h"
  33 #include "comcat.h"
  34 #include "compobj_private.h"
  35
  36 #include "wine/unicode.h"
  37 #include "wine/debug.h"
  38
  39 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  40
  41 static const ICatRegisterVtbl COMCAT_ICatRegister_Vtbl;
  42 static const ICatInformationVtbl COMCAT_ICatInformation_Vtbl;
  43
  44 typedef struct
  45 {
  46     ICatRegister ICatRegister_iface;
  47     ICatInformation ICatInformation_iface;
  48 } ComCatMgrImpl;
  49
  50 /* static ComCatMgr instance */
  51 static ComCatMgrImpl COMCAT_ComCatMgr =
  52 {
  53     { &COMCAT_ICatRegister_Vtbl },
  54     { &COMCAT_ICatInformation_Vtbl }
  55 };
  56
  57 struct class_categories
  58 {
  59     ULONG   size;        /* total length, including structure itself */
  60     ULONG   impl_offset;
  61     ULONG   req_offset;
  62 };
  63
  64 static HRESULT EnumCATEGORYINFO_Construct(LCID lcid, IEnumCATEGORYINFO **ret);
  65 static HRESULT CLSIDEnumGUID_Construct(struct class_categories *class_categories, IEnumCLSID **ret);
  66 static HRESULT CATIDEnumGUID_Construct(REFCLSID rclsid, LPCWSTR impl_req, IEnumCATID **ret);
  67
  68 /**********************************************************************
  69  * File-scope string constants
  70  */
  71 static const WCHAR comcat_keyname[] = {
  72     'C','o','m','p','o','n','e','n','t',' ','C','a','t','e','g','o','r','i','e','s',0 };
  73 static const WCHAR impl_keyname[] = {
  74     'I','m','p','l','e','m','e','n','t','e','d',' ','C','a','t','e','g','o','r','i','e','s',0 };
  75 static const WCHAR req_keyname[] = {
  76     'R','e','q','u','i','r','e','d',' ','C','a','t','e','g','o','r','i','e','s',0 };
  77 static const WCHAR clsid_keyname[] = { 'C','L','S','I','D',0 };
  78
  79
  80 /**********************************************************************
  81  * COMCAT_RegisterClassCategories
  82  */
  83 static HRESULT COMCAT_RegisterClassCategories(
  84     REFCLSID rclsid,
  85     LPCWSTR type,
  86     ULONG cCategories,
  87     const CATID *rgcatid)
  88 {
  89     WCHAR keyname[CHARS_IN_GUID];
  90     HRESULT res;
  91     HKEY clsid_key, class_key, type_key;
  92
  93     if (cCategories && rgcatid == NULL) return E_POINTER;
  94
  95     /* Format the class key name. */
  96     res = StringFromGUID2(rclsid, keyname, CHARS_IN_GUID);
  97     if (FAILED(res)) return res;
  98
  99     /* Create (or open) the CLSID key. */
 100     res = create_classes_key(HKEY_CLASSES_ROOT, clsid_keyname, KEY_READ|KEY_WRITE, &clsid_key);
 101     if (res != ERROR_SUCCESS) return E_FAIL;
 102
 103     /* Create (or open) the class key. */
 104     res = create_classes_key(clsid_key, keyname, KEY_READ|KEY_WRITE, &class_key);
 105     if (res == ERROR_SUCCESS) {
 106         /* Create (or open) the category type key. */
 107         res = create_classes_key(class_key, type, KEY_READ|KEY_WRITE, &type_key);
 108         if (res == ERROR_SUCCESS) {
 109             for (; cCategories; --cCategories, ++rgcatid) {
 110                 HKEY key;
 111
 112                 /* Format the category key name. */
 113                 res = StringFromGUID2(rgcatid, keyname, CHARS_IN_GUID);
 114                 if (FAILED(res)) continue;
 115
 116                 /* Do the register. */
 117                 res = create_classes_key(type_key, keyname, KEY_READ|KEY_WRITE, &key);
 118                 if (res == ERROR_SUCCESS) RegCloseKey(key);
 119             }
 120             res = S_OK;
 121         } else res = E_FAIL;
 122         RegCloseKey(class_key);
 123     } else res = E_FAIL;
 124     RegCloseKey(clsid_key);
 125
 126     return res;
 127 }
 128
 129 /**********************************************************************
 130  * COMCAT_UnRegisterClassCategories
 131  */
 132 static HRESULT COMCAT_UnRegisterClassCategories(
 133     REFCLSID rclsid,
 134     LPCWSTR type,
 135     ULONG cCategories,
 136     const CATID *rgcatid)
 137 {
 138     WCHAR keyname[68] = { 'C', 'L', 'S', 'I', 'D', '\\' };
 139     HRESULT res;
 140     HKEY type_key;
 141
 142     if (cCategories && rgcatid == NULL) return E_POINTER;
 143
 144     /* Format the class category type key name. */
 145     res = StringFromGUID2(rclsid, keyname + 6, CHARS_IN_GUID);
 146     if (FAILED(res)) return res;
 147     keyname[44] = '\\';
 148     lstrcpyW(keyname + 45, type);
 149
 150     /* Open the class category type key. */
 151     res = open_classes_key(HKEY_CLASSES_ROOT, keyname, KEY_READ|KEY_WRITE, &type_key);
 152     if (res != ERROR_SUCCESS) return E_FAIL;
 153
 154     for (; cCategories; --cCategories, ++rgcatid) {
 155         /* Format the category key name. */
 156         res = StringFromGUID2(rgcatid, keyname, CHARS_IN_GUID);
 157         if (FAILED(res)) continue;
 158
 159         /* Do the unregister. */
 160         RegDeleteKeyW(type_key, keyname);
 161     }
 162     RegCloseKey(type_key);
 163
 164     return S_OK;
 165 }
 166
 167 /**********************************************************************
 168  * COMCAT_GetCategoryDesc
 169  */
 170 static HRESULT COMCAT_GetCategoryDesc(HKEY key, LCID lcid, PWCHAR pszDesc,
 171                                       ULONG buf_wchars)
 172 {
 173     static const WCHAR fmt[] = { '%', 'l', 'X', 0 };
 174     WCHAR valname[5];
 175     HRESULT res;
 176     DWORD type, size = (buf_wchars - 1) * sizeof(WCHAR);
 177
 178     if (pszDesc == NULL) return E_INVALIDARG;
 179
 180     /* FIXME: lcid comparisons are more complex than this! */
 181     wsprintfW(valname, fmt, lcid);
 182     res = RegQueryValueExW(key, valname, 0, &type, (LPBYTE)pszDesc, &size);
 183     if (res != ERROR_SUCCESS || type != REG_SZ) {
 184         FIXME("Simplified lcid comparison\n");
 185         return CAT_E_NODESCRIPTION;
 186     }
 187     pszDesc[size / sizeof(WCHAR)] = 0;
 188
 189     return S_OK;
 190 }
 191
 192 /**********************************************************************
 193  * COMCAT_PrepareClassCategories
 194  */
 195 static struct class_categories *COMCAT_PrepareClassCategories(
 196     ULONG impl_count, const CATID *impl_catids, ULONG req_count, const CATID *req_catids)
 197 {
 198     struct class_categories *categories;
 199     WCHAR *strings;
 200     ULONG size;
 201
 202     size = sizeof(struct class_categories) + ((impl_count + req_count)*CHARS_IN_GUID + 2)*sizeof(WCHAR);
 203     categories = HeapAlloc(GetProcessHeap(), 0, size);
 204     if (categories == NULL) return categories;
 205
 206     categories->size = size;
 207     categories->impl_offset = sizeof(struct class_categories);
 208     categories->req_offset = categories->impl_offset + (impl_count*CHARS_IN_GUID + 1)*sizeof(WCHAR);
 209
 210     strings = (WCHAR *)(categories + 1);
 211     while (impl_count--) {
 212         StringFromGUID2(impl_catids++, strings, CHARS_IN_GUID);
 213         strings += CHARS_IN_GUID;
 214     }
 215     *strings++ = 0;
 216
 217     while (req_count--) {
 218         StringFromGUID2(req_catids++, strings, CHARS_IN_GUID);
 219         strings += CHARS_IN_GUID;
 220     }
 221     *strings++ = 0;
 222
 223     return categories;
 224 }
 225
 226 /**********************************************************************
 227  * COMCAT_IsClassOfCategories
 228  */
 229 static HRESULT COMCAT_IsClassOfCategories(
 230     HKEY key,
 231     struct class_categories const* categories)
 232 {
 233     const WCHAR *impl_strings, *req_strings;
 234     HKEY subkey;
 235     HRESULT res;
 236     DWORD index;
 237     LPCWSTR string;
 238
 239     impl_strings = (WCHAR*)((BYTE*)categories + categories->impl_offset);
 240     req_strings  = (WCHAR*)((BYTE*)categories + categories->req_offset);
 241
 242     /* Check that every given category is implemented by class. */
 243     if (*impl_strings) {
 244         res = open_classes_key(key, impl_keyname, KEY_READ, &subkey);
 245         if (res != ERROR_SUCCESS) return S_FALSE;
 246         for (string = impl_strings; *string; string += CHARS_IN_GUID) {
 247             HKEY catkey;
 248             res = open_classes_key(subkey, string, 0, &catkey);
 249             if (res != ERROR_SUCCESS) {
 250                 RegCloseKey(subkey);
 251                 return S_FALSE;
 252             }
 253             RegCloseKey(catkey);
 254         }
 255         RegCloseKey(subkey);
 256     }
 257
 258     /* Check that all categories required by class are given. */
 259     res = open_classes_key(key, req_keyname, KEY_READ, &subkey);
 260     if (res == ERROR_SUCCESS) {
 261         for (index = 0; ; ++index) {
 262             WCHAR keyname[CHARS_IN_GUID];
 263             DWORD size = CHARS_IN_GUID;
 264
 265             res = RegEnumKeyExW(subkey, index, keyname, &size,
 266                                 NULL, NULL, NULL, NULL);
 267             if (res != ERROR_SUCCESS && res != ERROR_MORE_DATA) break;
 268             if (size != CHARS_IN_GUID-1) continue; /* bogus catid in registry */
 269             for (string = req_strings; *string; string += CHARS_IN_GUID)
 270                 if (!strcmpiW(string, keyname)) break;
 271             if (!*string) {
 272                 RegCloseKey(subkey);
 273                 return S_FALSE;
 274             }
 275         }
 276         RegCloseKey(subkey);
 277     }
 278
 279     return S_OK;
 280 }
 281
 282 /**********************************************************************
 283  * COMCAT_ICatRegister_QueryInterface
 284  */
 285 static HRESULT WINAPI COMCAT_ICatRegister_QueryInterface(
 286     LPCATREGISTER iface,
 287     REFIID riid,
 288     LPVOID *ppvObj)
 289 {
 290     TRACE("%s\n",debugstr_guid(riid));
 291
 292     if (ppvObj == NULL) return E_POINTER;
 293
 294     if (IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_ICatRegister)) {
 295         *ppvObj = iface;
 296         ICatRegister_AddRef(iface);
 297         return S_OK;
 298     }
 299
 300     if (IsEqualGUID(riid, &IID_ICatInformation)) {
 301         *ppvObj = &COMCAT_ComCatMgr.ICatInformation_iface;
 302         ICatRegister_AddRef(iface);
 303         return S_OK;
 304     }
 305
 306     return E_NOINTERFACE;
 307 }
 308
 309 /**********************************************************************
 310  * COMCAT_ICatRegister_AddRef
 311  */
 312 static ULONG WINAPI COMCAT_ICatRegister_AddRef(LPCATREGISTER iface)
 313 {
 314     return 2; /* non-heap based object */
 315 }
 316
 317 /**********************************************************************
 318  * COMCAT_ICatRegister_Release
 319  */
 320 static ULONG WINAPI COMCAT_ICatRegister_Release(LPCATREGISTER iface)
 321 {
 322     return 1; /* non-heap based object */
 323 }
 324
 325 /**********************************************************************
 326  * COMCAT_ICatRegister_RegisterCategories
 327  */
 328 static HRESULT WINAPI COMCAT_ICatRegister_RegisterCategories(
 329     LPCATREGISTER iface,
 330     ULONG cCategories,
 331     CATEGORYINFO *rgci)
 332 {
 333     HKEY comcat_key;
 334     HRESULT res;
 335
 336     TRACE("\n");
 337
 338     if (cCategories && rgci == NULL)
 339         return E_POINTER;
 340
 341     /* Create (or open) the component categories key. */
 342     res = create_classes_key(HKEY_CLASSES_ROOT, comcat_keyname, KEY_READ|KEY_WRITE, &comcat_key);
 343     if (res != ERROR_SUCCESS) return E_FAIL;
 344
 345     for (; cCategories; --cCategories, ++rgci) {
 346         static const WCHAR fmt[] = { '%', 'l', 'X', 0 };
 347         WCHAR keyname[CHARS_IN_GUID];
 348         WCHAR valname[9];
 349         HKEY cat_key;
 350
 351         /* Create (or open) the key for this category. */
 352         if (!StringFromGUID2(&rgci->catid, keyname, CHARS_IN_GUID)) continue;
 353         res = create_classes_key(comcat_key, keyname, KEY_READ|KEY_WRITE, &cat_key);
 354         if (res != ERROR_SUCCESS) continue;
 355
 356         /* Set the value for this locale's description. */
 357         wsprintfW(valname, fmt, rgci->lcid);
 358         RegSetValueExW(cat_key, valname, 0, REG_SZ, (const BYTE*)rgci->szDescription,
 359                        (lstrlenW(rgci->szDescription) + 1) * sizeof(WCHAR));
 360
 361         RegCloseKey(cat_key);
 362     }
 363
 364     RegCloseKey(comcat_key);
 365     return S_OK;
 366 }
 367
 368 /**********************************************************************
 369  * COMCAT_ICatRegister_UnRegisterCategories
 370  */
 371 static HRESULT WINAPI COMCAT_ICatRegister_UnRegisterCategories(
 372     LPCATREGISTER iface,
 373     ULONG cCategories,
 374     CATID *rgcatid)
 375 {
 376     HKEY comcat_key;
 377     HRESULT res;
 378
 379     TRACE("\n");
 380
 381     if (cCategories && rgcatid == NULL)
 382         return E_POINTER;
 383
 384     /* Open the component categories key. */
 385     res = open_classes_key(HKEY_CLASSES_ROOT, comcat_keyname, KEY_READ|KEY_WRITE, &comcat_key);
 386     if (res != ERROR_SUCCESS) return E_FAIL;
 387
 388     for (; cCategories; --cCategories, ++rgcatid) {
 389         WCHAR keyname[CHARS_IN_GUID];
 390
 391         /* Delete the key for this category. */
 392         if (!StringFromGUID2(rgcatid, keyname, CHARS_IN_GUID)) continue;
 393         RegDeleteKeyW(comcat_key, keyname);
 394     }
 395
 396     RegCloseKey(comcat_key);
 397     return S_OK;
 398 }
 399
 400 /**********************************************************************
 401  * COMCAT_ICatRegister_RegisterClassImplCategories
 402  */
 403 static HRESULT WINAPI COMCAT_ICatRegister_RegisterClassImplCategories(
 404     LPCATREGISTER iface,
 405     REFCLSID rclsid,
 406     ULONG cCategories,
 407     CATID *rgcatid)
 408 {
 409     TRACE("\n");
 410
 411     return COMCAT_RegisterClassCategories(
 412         rclsid, impl_keyname, cCategories, rgcatid);
 413 }
 414
 415 /**********************************************************************
 416  * COMCAT_ICatRegister_UnRegisterClassImplCategories
 417  */
 418 static HRESULT WINAPI COMCAT_ICatRegister_UnRegisterClassImplCategories(
 419     LPCATREGISTER iface,
 420     REFCLSID rclsid,
 421     ULONG cCategories,
 422     CATID *rgcatid)
 423 {
 424     TRACE("\n");
 425
 426     return COMCAT_UnRegisterClassCategories(
 427         rclsid, impl_keyname, cCategories, rgcatid);
 428 }
 429
 430 /**********************************************************************
 431  * COMCAT_ICatRegister_RegisterClassReqCategories
 432  */
 433 static HRESULT WINAPI COMCAT_ICatRegister_RegisterClassReqCategories(
 434     LPCATREGISTER iface,
 435     REFCLSID rclsid,
 436     ULONG cCategories,
 437     CATID *rgcatid)
 438 {
 439     TRACE("\n");
 440
 441     return COMCAT_RegisterClassCategories(
 442         rclsid, req_keyname, cCategories, rgcatid);
 443 }
 444
 445 /**********************************************************************
 446  * COMCAT_ICatRegister_UnRegisterClassReqCategories
 447  */
 448 static HRESULT WINAPI COMCAT_ICatRegister_UnRegisterClassReqCategories(
 449     LPCATREGISTER iface,
 450     REFCLSID rclsid,
 451     ULONG cCategories,
 452     CATID *rgcatid)
 453 {
 454     TRACE("\n");
 455
 456     return COMCAT_UnRegisterClassCategories(
 457         rclsid, req_keyname, cCategories, rgcatid);
 458 }
 459
 460 /**********************************************************************
 461  * COMCAT_ICatInformation_QueryInterface
 462  */
 463 static HRESULT WINAPI COMCAT_ICatInformation_QueryInterface(
 464     LPCATINFORMATION iface,
 465     REFIID riid,
 466     LPVOID *ppvObj)
 467 {
 468     return ICatRegister_QueryInterface(&COMCAT_ComCatMgr.ICatRegister_iface, riid, ppvObj);
 469 }
 470
 471 /**********************************************************************
 472  * COMCAT_ICatInformation_AddRef
 473  */
 474 static ULONG WINAPI COMCAT_ICatInformation_AddRef(LPCATINFORMATION iface)
 475 {
 476     return ICatRegister_AddRef(&COMCAT_ComCatMgr.ICatRegister_iface);
 477 }
 478
 479 /**********************************************************************
 480  * COMCAT_ICatInformation_Release
 481  */
 482 static ULONG WINAPI COMCAT_ICatInformation_Release(LPCATINFORMATION iface)
 483 {
 484     return ICatRegister_Release(&COMCAT_ComCatMgr.ICatRegister_iface);
 485 }
 486
 487 /**********************************************************************
 488  * COMCAT_ICatInformation_EnumCategories
 489  */
 490 static HRESULT WINAPI COMCAT_ICatInformation_EnumCategories(
 491     LPCATINFORMATION iface,
 492     LCID lcid,
 493     IEnumCATEGORYINFO **ppenumCatInfo)
 494 {
 495     TRACE("\n");
 496
 497     if (ppenumCatInfo == NULL) return E_POINTER;
 498
 499     return EnumCATEGORYINFO_Construct(lcid, ppenumCatInfo);
 500 }
 501
 502 /**********************************************************************
 503  * COMCAT_ICatInformation_GetCategoryDesc
 504  */
 505 static HRESULT WINAPI COMCAT_ICatInformation_GetCategoryDesc(
 506     LPCATINFORMATION iface,
 507     REFCATID rcatid,
 508     LCID lcid,
 509     PWCHAR *ppszDesc)
 510 {
 511     WCHAR keyname[60] = { 'C', 'o', 'm', 'p', 'o', 'n', 'e', 'n',
 512                           't', ' ', 'C', 'a', 't', 'e', 'g', 'o',
 513                           'r', 'i', 'e', 's', '\\', 0 };
 514     HKEY key;
 515     HRESULT res;
 516
 517     TRACE("CATID: %s LCID: %x\n",debugstr_guid(rcatid), lcid);
 518
 519     if (rcatid == NULL || ppszDesc == NULL) return E_INVALIDARG;
 520
 521     /* Open the key for this category. */
 522     if (!StringFromGUID2(rcatid, keyname + 21, CHARS_IN_GUID)) return E_FAIL;
 523     res = open_classes_key(HKEY_CLASSES_ROOT, keyname, KEY_READ, &key);
 524     if (res != ERROR_SUCCESS) return CAT_E_CATIDNOEXIST;
 525
 526     /* Allocate a sensible amount of memory for the description. */
 527     *ppszDesc = CoTaskMemAlloc(128 * sizeof(WCHAR));
 528     if (*ppszDesc == NULL) {
 529         RegCloseKey(key);
 530         return E_OUTOFMEMORY;
 531     }
 532
 533     /* Get the description, and make sure it's null terminated. */
 534     res = COMCAT_GetCategoryDesc(key, lcid, *ppszDesc, 128);
 535     RegCloseKey(key);
 536     if (FAILED(res)) {
 537         CoTaskMemFree(*ppszDesc);
 538         return res;
 539     }
 540
 541     return S_OK;
 542 }
 543
 544 /**********************************************************************
 545  * COMCAT_ICatInformation_EnumClassesOfCategories
 546  */
 547 static HRESULT WINAPI COMCAT_ICatInformation_EnumClassesOfCategories(
 548     LPCATINFORMATION iface,
 549     ULONG cImplemented,
 550     CATID *rgcatidImpl,
 551     ULONG cRequired,
 552     CATID *rgcatidReq,
 553     LPENUMCLSID *ppenumCLSID)
 554 {
 555     struct class_categories *categories;
 556     HRESULT hr;
 557
 558     TRACE("\n");
 559
 560         if (cImplemented == (ULONG)-1)
 561                 cImplemented = 0;
 562         if (cRequired == (ULONG)-1)
 563                 cRequired = 0;
 564
 565     if (ppenumCLSID == NULL ||
 566         (cImplemented && rgcatidImpl == NULL) ||
 567         (cRequired && rgcatidReq == NULL)) return E_POINTER;
 568
 569     categories = COMCAT_PrepareClassCategories(cImplemented, rgcatidImpl,
 570                                                cRequired, rgcatidReq);
 571     if (categories == NULL) return E_OUTOFMEMORY;
 572
 573     hr = CLSIDEnumGUID_Construct(categories, ppenumCLSID);
 574     if (FAILED(hr))
 575     {
 576         HeapFree(GetProcessHeap(), 0, categories);
 577         return hr;
 578     }
 579
 580     return hr;
 581 }
 582
 583 /**********************************************************************
 584  * COMCAT_ICatInformation_IsClassOfCategories
 585  */
 586 static HRESULT WINAPI COMCAT_ICatInformation_IsClassOfCategories(
 587     LPCATINFORMATION iface,
 588     REFCLSID rclsid,
 589     ULONG cImplemented,
 590     CATID *rgcatidImpl,
 591     ULONG cRequired,
 592     CATID *rgcatidReq)
 593 {
 594     WCHAR keyname[45] = { 'C', 'L', 'S', 'I', 'D', '\\', 0 };
 595     HRESULT res;
 596     struct class_categories *categories;
 597     HKEY key;
 598
 599     if (TRACE_ON(ole)) {
 600         ULONG count;
 601         TRACE("CLSID: %s Implemented %u\n",debugstr_guid(rclsid),cImplemented);
 602         for (count = 0; count < cImplemented; ++count)
 603             TRACE("    %s\n",debugstr_guid(&rgcatidImpl[count]));
 604         TRACE("Required %u\n",cRequired);
 605         for (count = 0; count < cRequired; ++count)
 606             TRACE("    %s\n",debugstr_guid(&rgcatidReq[count]));
 607     }
 608
 609     if ((cImplemented && rgcatidImpl == NULL) ||
 610         (cRequired && rgcatidReq == NULL)) return E_POINTER;
 611
 612     res = StringFromGUID2(rclsid, keyname + 6, CHARS_IN_GUID);
 613     if (FAILED(res)) return res;
 614
 615     categories = COMCAT_PrepareClassCategories(cImplemented, rgcatidImpl,
 616                                                cRequired, rgcatidReq);
 617     if (categories == NULL) return E_OUTOFMEMORY;
 618
 619     res = open_classes_key(HKEY_CLASSES_ROOT, keyname, KEY_READ, &key);
 620     if (res == ERROR_SUCCESS) {
 621         res = COMCAT_IsClassOfCategories(key, categories);
 622         RegCloseKey(key);
 623     } else res = S_FALSE;
 624
 625     HeapFree(GetProcessHeap(), 0, categories);
 626
 627     return res;
 628 }
 629
 630 /**********************************************************************
 631  * COMCAT_ICatInformation_EnumImplCategoriesOfClass
 632  */
 633 static HRESULT WINAPI COMCAT_ICatInformation_EnumImplCategoriesOfClass(
 634     LPCATINFORMATION iface,
 635     REFCLSID rclsid,
 636     LPENUMCATID *ppenumCATID)
 637 {
 638     static const WCHAR postfix[] = { '\\', 'I', 'm', 'p', 'l', 'e', 'm', 'e',
 639                           'n', 't', 'e', 'd', ' ', 'C', 'a', 't',
 640                           'e', 'g', 'o', 'r', 'i', 'e', 's', 0 };
 641
 642     TRACE("%s\n",debugstr_guid(rclsid));
 643
 644     if (rclsid == NULL || ppenumCATID == NULL)
 645         return E_POINTER;
 646
 647     return CATIDEnumGUID_Construct(rclsid, postfix, ppenumCATID);
 648 }
 649
 650 /**********************************************************************
 651  * COMCAT_ICatInformation_EnumReqCategoriesOfClass
 652  */
 653 static HRESULT WINAPI COMCAT_ICatInformation_EnumReqCategoriesOfClass(
 654     LPCATINFORMATION iface,
 655     REFCLSID rclsid,
 656     LPENUMCATID *ppenumCATID)
 657 {
 658     static const WCHAR postfix[] = { '\\', 'R', 'e', 'q', 'u', 'i', 'r', 'e',
 659                           'd', ' ', 'C', 'a', 't', 'e', 'g', 'o',
 660                           'r', 'i', 'e', 's', 0 };
 661
 662     TRACE("%s\n",debugstr_guid(rclsid));
 663
 664     if (rclsid == NULL || ppenumCATID == NULL)
 665         return E_POINTER;
 666
 667     return CATIDEnumGUID_Construct(rclsid, postfix, ppenumCATID);
 668 }
 669
 670 /**********************************************************************
 671  * COMCAT_ICatRegister_Vtbl
 672  */
 673 static const ICatRegisterVtbl COMCAT_ICatRegister_Vtbl =
 674 {
 675     COMCAT_ICatRegister_QueryInterface,
 676     COMCAT_ICatRegister_AddRef,
 677     COMCAT_ICatRegister_Release,
 678     COMCAT_ICatRegister_RegisterCategories,
 679     COMCAT_ICatRegister_UnRegisterCategories,
 680     COMCAT_ICatRegister_RegisterClassImplCategories,
 681     COMCAT_ICatRegister_UnRegisterClassImplCategories,
 682     COMCAT_ICatRegister_RegisterClassReqCategories,
 683     COMCAT_ICatRegister_UnRegisterClassReqCategories
 684 };
 685
 686
 687 /**********************************************************************
 688  * COMCAT_ICatInformation_Vtbl
 689  */
 690 static const ICatInformationVtbl COMCAT_ICatInformation_Vtbl =
 691 {
 692     COMCAT_ICatInformation_QueryInterface,
 693     COMCAT_ICatInformation_AddRef,
 694     COMCAT_ICatInformation_Release,
 695     COMCAT_ICatInformation_EnumCategories,
 696     COMCAT_ICatInformation_GetCategoryDesc,
 697     COMCAT_ICatInformation_EnumClassesOfCategories,
 698     COMCAT_ICatInformation_IsClassOfCategories,
 699     COMCAT_ICatInformation_EnumImplCategoriesOfClass,
 700     COMCAT_ICatInformation_EnumReqCategoriesOfClass
 701 };
 702
 703 /**********************************************************************
 704  * COMCAT_IClassFactory_QueryInterface (also IUnknown)
 705  */
 706 static HRESULT WINAPI COMCAT_IClassFactory_QueryInterface(
 707     LPCLASSFACTORY iface,
 708     REFIID riid,
 709     LPVOID *ppvObj)
 710 {
 711     TRACE("%s\n",debugstr_guid(riid));
 712
 713     if (ppvObj == NULL) return E_POINTER;
 714
 715     if (IsEqualGUID(riid, &IID_IUnknown) ||
 716         IsEqualGUID(riid, &IID_IClassFactory))
 717     {
 718         *ppvObj = iface;
 719         IClassFactory_AddRef(iface);
 720         return S_OK;
 721     }
 722
 723     return E_NOINTERFACE;
 724 }
 725
 726 /**********************************************************************
 727  * COMCAT_IClassFactory_AddRef (also IUnknown)
 728  */
 729 static ULONG WINAPI COMCAT_IClassFactory_AddRef(LPCLASSFACTORY iface)
 730 {
 731     return 2; /* non-heap based object */
 732 }
 733
 734 /**********************************************************************
 735  * COMCAT_IClassFactory_Release (also IUnknown)
 736  */
 737 static ULONG WINAPI COMCAT_IClassFactory_Release(LPCLASSFACTORY iface)
 738 {
 739     return 1; /* non-heap based object */
 740 }
 741
 742 /**********************************************************************
 743  * COMCAT_IClassFactory_CreateInstance
 744  */
 745 static HRESULT WINAPI COMCAT_IClassFactory_CreateInstance(
 746     LPCLASSFACTORY iface,
 747     LPUNKNOWN pUnkOuter,
 748     REFIID riid,
 749     LPVOID *ppvObj)
 750 {
 751     HRESULT res;
 752     TRACE("%s\n",debugstr_guid(riid));
 753
 754     if (ppvObj == NULL) return E_POINTER;
 755
 756     /* Don't support aggregation (Windows doesn't) */
 757     if (pUnkOuter != NULL) return CLASS_E_NOAGGREGATION;
 758
 759     res = ICatRegister_QueryInterface(&COMCAT_ComCatMgr.ICatRegister_iface, riid, ppvObj);
 760     if (SUCCEEDED(res)) {
 761         return res;
 762     }
 763
 764     return CLASS_E_CLASSNOTAVAILABLE;
 765 }
 766
 767 /**********************************************************************
 768  * COMCAT_IClassFactory_LockServer
 769  */
 770 static HRESULT WINAPI COMCAT_IClassFactory_LockServer(
 771     LPCLASSFACTORY iface,
 772     BOOL fLock)
 773 {
 774     FIXME("(%d), stub!\n",fLock);
 775     return S_OK;
 776 }
 777
 778 /**********************************************************************
 779  * static ClassFactory instance
 780  */
 781 static const IClassFactoryVtbl ComCatCFVtbl =
 782 {
 783     COMCAT_IClassFactory_QueryInterface,
 784     COMCAT_IClassFactory_AddRef,
 785     COMCAT_IClassFactory_Release,
 786     COMCAT_IClassFactory_CreateInstance,
 787     COMCAT_IClassFactory_LockServer
 788 };
 789
 790 static const IClassFactoryVtbl *ComCatCF = &ComCatCFVtbl;
 791
 792 HRESULT ComCatCF_Create(REFIID riid, LPVOID *ppv)
 793 {
 794     return IClassFactory_QueryInterface((IClassFactory *)&ComCatCF, riid, ppv);
 795 }
 796
 797 /**********************************************************************
 798  * IEnumCATEGORYINFO implementation
 799  *
 800  * This implementation is not thread-safe.  The manager itself is, but
 801  * I can't imagine a valid use of an enumerator in several threads.
 802  */
 803 typedef struct
 804 {
 805     IEnumCATEGORYINFO IEnumCATEGORYINFO_iface;
 806     LONG  ref;
 807     LCID  lcid;
 808     HKEY  key;
 809     DWORD next_index;
 810 } IEnumCATEGORYINFOImpl;
 811
 812 static inline IEnumCATEGORYINFOImpl *impl_from_IEnumCATEGORYINFO(IEnumCATEGORYINFO *iface)
 813 {
 814     return CONTAINING_RECORD(iface, IEnumCATEGORYINFOImpl, IEnumCATEGORYINFO_iface);
 815 }
 816
 817 static ULONG WINAPI COMCAT_IEnumCATEGORYINFO_AddRef(IEnumCATEGORYINFO *iface)
 818 {
 819     IEnumCATEGORYINFOImpl *This = impl_from_IEnumCATEGORYINFO(iface);
 820
 821     TRACE("\n");
 822
 823     return InterlockedIncrement(&This->ref);
 824 }
 825
 826 static HRESULT WINAPI COMCAT_IEnumCATEGORYINFO_QueryInterface(
 827     IEnumCATEGORYINFO *iface,
 828     REFIID riid,
 829     LPVOID *ppvObj)
 830 {
 831     TRACE("%s\n",debugstr_guid(riid));
 832
 833     if (ppvObj == NULL) return E_POINTER;
 834
 835     if (IsEqualGUID(riid, &IID_IUnknown) ||
 836         IsEqualGUID(riid, &IID_IEnumCATEGORYINFO))
 837     {
 838         *ppvObj = iface;
 839         COMCAT_IEnumCATEGORYINFO_AddRef(iface);
 840         return S_OK;
 841     }
 842
 843     return E_NOINTERFACE;
 844 }
 845
 846 static ULONG WINAPI COMCAT_IEnumCATEGORYINFO_Release(IEnumCATEGORYINFO *iface)
 847 {
 848     IEnumCATEGORYINFOImpl *This = impl_from_IEnumCATEGORYINFO(iface);
 849     ULONG ref;
 850
 851     TRACE("\n");
 852
 853     ref = InterlockedDecrement(&This->ref);
 854     if (ref == 0) {
 855         if (This->key) RegCloseKey(This->key);
 856         HeapFree(GetProcessHeap(), 0, This);
 857         return 0;
 858     }
 859     return ref;
 860 }
 861
 862 static HRESULT WINAPI COMCAT_IEnumCATEGORYINFO_Next(
 863     IEnumCATEGORYINFO *iface,
 864     ULONG celt,
 865     CATEGORYINFO *rgelt,
 866     ULONG *pceltFetched)
 867 {
 868     IEnumCATEGORYINFOImpl *This = impl_from_IEnumCATEGORYINFO(iface);
 869     ULONG fetched = 0;
 870
 871     TRACE("\n");
 872
 873     if (rgelt == NULL) return E_POINTER;
 874
 875     if (This->key) while (fetched < celt) {
 876         LSTATUS res;
 877         HRESULT hr;
 878         WCHAR catid[CHARS_IN_GUID];
 879         DWORD cName = CHARS_IN_GUID;
 880         HKEY subkey;
 881
 882         res = RegEnumKeyExW(This->key, This->next_index, catid, &cName,
 883                             NULL, NULL, NULL, NULL);
 884         if (res != ERROR_SUCCESS && res != ERROR_MORE_DATA) break;
 885         ++(This->next_index);
 886
 887         hr = CLSIDFromString(catid, &rgelt->catid);
 888         if (FAILED(hr)) continue;
 889
 890         res = open_classes_key(This->key, catid, KEY_READ, &subkey);
 891         if (res != ERROR_SUCCESS) continue;
 892
 893         hr = COMCAT_GetCategoryDesc(subkey, This->lcid,
 894                                     rgelt->szDescription, 128);
 895         RegCloseKey(subkey);
 896         if (FAILED(hr)) continue;
 897
 898         rgelt->lcid = This->lcid;
 899         ++fetched;
 900         ++rgelt;
 901     }
 902
 903     if (pceltFetched) *pceltFetched = fetched;
 904     return fetched == celt ? S_OK : S_FALSE;
 905 }
 906
 907 static HRESULT WINAPI COMCAT_IEnumCATEGORYINFO_Skip(
 908     IEnumCATEGORYINFO *iface,
 909     ULONG celt)
 910 {
 911     IEnumCATEGORYINFOImpl *This = impl_from_IEnumCATEGORYINFO(iface);
 912
 913     TRACE("\n");
 914
 915     This->next_index += celt;
 916     /* This should return S_FALSE when there aren't celt elems to skip. */
 917     return S_OK;
 918 }
 919
 920 static HRESULT WINAPI COMCAT_IEnumCATEGORYINFO_Reset(IEnumCATEGORYINFO *iface)
 921 {
 922     IEnumCATEGORYINFOImpl *This = impl_from_IEnumCATEGORYINFO(iface);
 923
 924     TRACE("\n");
 925
 926     This->next_index = 0;
 927     return S_OK;
 928 }
 929
 930 static HRESULT WINAPI COMCAT_IEnumCATEGORYINFO_Clone(
 931     IEnumCATEGORYINFO *iface,
 932     IEnumCATEGORYINFO **ppenum)
 933 {
 934     IEnumCATEGORYINFOImpl *This = impl_from_IEnumCATEGORYINFO(iface);
 935     static const WCHAR keyname[] = { 'C', 'o', 'm', 'p', 'o', 'n', 'e', 'n',
 936                                      't', ' ', 'C', 'a', 't', 'e', 'g', 'o',
 937                                      'r', 'i', 'e', 's', 0 };
 938     IEnumCATEGORYINFOImpl *new_this;
 939
 940     TRACE("\n");
 941
 942     if (ppenum == NULL) return E_POINTER;
 943
 944     new_this = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IEnumCATEGORYINFOImpl));
 945     if (new_this == NULL) return E_OUTOFMEMORY;
 946
 947     new_this->IEnumCATEGORYINFO_iface = This->IEnumCATEGORYINFO_iface;
 948     new_this->ref = 1;
 949     new_this->lcid = This->lcid;
 950     /* FIXME: could we more efficiently use DuplicateHandle? */
 951     open_classes_key(HKEY_CLASSES_ROOT, keyname, KEY_READ, &new_this->key);
 952     new_this->next_index = This->next_index;
 953
 954     *ppenum = &new_this->IEnumCATEGORYINFO_iface;
 955     return S_OK;
 956 }
 957
 958 static const IEnumCATEGORYINFOVtbl COMCAT_IEnumCATEGORYINFO_Vtbl =
 959 {
 960     COMCAT_IEnumCATEGORYINFO_QueryInterface,
 961     COMCAT_IEnumCATEGORYINFO_AddRef,
 962     COMCAT_IEnumCATEGORYINFO_Release,
 963     COMCAT_IEnumCATEGORYINFO_Next,
 964     COMCAT_IEnumCATEGORYINFO_Skip,
 965     COMCAT_IEnumCATEGORYINFO_Reset,
 966     COMCAT_IEnumCATEGORYINFO_Clone
 967 };
 968
 969 static HRESULT EnumCATEGORYINFO_Construct(LCID lcid, IEnumCATEGORYINFO **ret)
 970 {
 971     static const WCHAR keyname[] = {'C','o','m','p','o','n','e','n','t',' ','C','a','t','e','g','o','r','i','e','s',0};
 972     IEnumCATEGORYINFOImpl *This;
 973
 974     *ret = NULL;
 975
 976     This = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IEnumCATEGORYINFOImpl));
 977     if (!This) return E_OUTOFMEMORY;
 978
 979     This->IEnumCATEGORYINFO_iface.lpVtbl = &COMCAT_IEnumCATEGORYINFO_Vtbl;
 980     This->ref = 1;
 981     This->lcid = lcid;
 982     open_classes_key(HKEY_CLASSES_ROOT, keyname, KEY_READ, &This->key);
 983
 984     *ret = &This->IEnumCATEGORYINFO_iface;
 985     return S_OK;
 986 }
 987
 988 /**********************************************************************
 989  * ClassesOfCategories IEnumCLSID (IEnumGUID) implementation
 990  *
 991  * This implementation is not thread-safe.  The manager itself is, but
 992  * I can't imagine a valid use of an enumerator in several threads.
 993  */
 994 typedef struct
 995 {
 996     IEnumGUID IEnumGUID_iface;
 997     LONG  ref;
 998     struct class_categories *categories;
 999     HKEY  key;
1000     DWORD next_index;
1001 } CLSID_IEnumGUIDImpl;
1002
1003 static inline CLSID_IEnumGUIDImpl *impl_from_IEnumCLSID(IEnumGUID *iface)
1004 {
1005     return CONTAINING_RECORD(iface, CLSID_IEnumGUIDImpl, IEnumGUID_iface);
1006 }
1007
1008 static HRESULT WINAPI CLSIDEnumGUID_QueryInterface(
1009     IEnumGUID *iface,
1010     REFIID riid,
1011     LPVOID *ppvObj)
1012 {
1013     TRACE("%s\n",debugstr_guid(riid));
1014
1015     if (ppvObj == NULL) return E_POINTER;
1016
1017     if (IsEqualGUID(riid, &IID_IUnknown) ||
1018         IsEqualGUID(riid, &IID_IEnumGUID))
1019     {
1020         *ppvObj = iface;
1021         IEnumGUID_AddRef(iface);
1022         return S_OK;
1023     }
1024
1025     return E_NOINTERFACE;
1026 }
1027
1028 static ULONG WINAPI CLSIDEnumGUID_AddRef(IEnumGUID *iface)
1029 {
1030     CLSID_IEnumGUIDImpl *This = impl_from_IEnumCLSID(iface);
1031     TRACE("\n");
1032
1033     return InterlockedIncrement(&This->ref);
1034 }
1035
1036 static ULONG WINAPI CLSIDEnumGUID_Release(IEnumGUID *iface)
1037 {
1038     CLSID_IEnumGUIDImpl *This = impl_from_IEnumCLSID(iface);
1039     ULONG ref;
1040
1041     TRACE("\n");
1042
1043     ref = InterlockedDecrement(&This->ref);
1044     if (ref == 0) {
1045         if (This->key) RegCloseKey(This->key);
1046         HeapFree(GetProcessHeap(), 0, This->categories);
1047         HeapFree(GetProcessHeap(), 0, This);
1048         return 0;
1049     }
1050     return ref;
1051 }
1052
1053 static HRESULT WINAPI CLSIDEnumGUID_Next(
1054     IEnumGUID *iface,
1055     ULONG celt,
1056     GUID *rgelt,
1057     ULONG *pceltFetched)
1058 {
1059     CLSID_IEnumGUIDImpl *This = impl_from_IEnumCLSID(iface);
1060     ULONG fetched = 0;
1061
1062     TRACE("\n");
1063
1064     if (rgelt == NULL) return E_POINTER;
1065
1066     if (This->key) while (fetched < celt) {
1067         LSTATUS res;
1068         HRESULT hr;
1069         WCHAR clsid[CHARS_IN_GUID];
1070         DWORD cName = CHARS_IN_GUID;
1071         HKEY subkey;
1072
1073         res = RegEnumKeyExW(This->key, This->next_index, clsid, &cName,
1074                             NULL, NULL, NULL, NULL);
1075         if (res != ERROR_SUCCESS && res != ERROR_MORE_DATA) break;
1076         ++(This->next_index);
1077
1078         hr = CLSIDFromString(clsid, rgelt);
1079         if (FAILED(hr)) continue;
1080
1081         res = open_classes_key(This->key, clsid, KEY_READ, &subkey);
1082         if (res != ERROR_SUCCESS) continue;
1083
1084         hr = COMCAT_IsClassOfCategories(subkey, This->categories);
1085         RegCloseKey(subkey);
1086         if (hr != S_OK) continue;
1087
1088         ++fetched;
1089         ++rgelt;
1090     }
1091
1092     if (pceltFetched) *pceltFetched = fetched;
1093     return fetched == celt ? S_OK : S_FALSE;
1094 }
1095
1096 static HRESULT WINAPI CLSIDEnumGUID_Skip(
1097     IEnumGUID *iface,
1098     ULONG celt)
1099 {
1100     CLSID_IEnumGUIDImpl *This = impl_from_IEnumCLSID(iface);
1101
1102     TRACE("\n");
1103
1104     This->next_index += celt;
1105     FIXME("Never returns S_FALSE\n");
1106     return S_OK;
1107 }
1108
1109 static HRESULT WINAPI CLSIDEnumGUID_Reset(IEnumGUID *iface)
1110 {
1111     CLSID_IEnumGUIDImpl *This = impl_from_IEnumCLSID(iface);
1112
1113     TRACE("\n");
1114
1115     This->next_index = 0;
1116     return S_OK;
1117 }
1118
1119 static HRESULT WINAPI CLSIDEnumGUID_Clone(
1120     IEnumGUID *iface,
1121     IEnumGUID **ppenum)
1122 {
1123     static const WCHAR keynameW[] = {'C','L','S','I','D',0};
1124     CLSID_IEnumGUIDImpl *This = impl_from_IEnumCLSID(iface);
1125     CLSID_IEnumGUIDImpl *cloned;
1126
1127     TRACE("(%p)->(%p)\n", This, ppenum);
1128
1129     if (ppenum == NULL) return E_POINTER;
1130
1131     *ppenum = NULL;
1132
1133     cloned = HeapAlloc(GetProcessHeap(), 0, sizeof(CLSID_IEnumGUIDImpl));
1134     if (cloned == NULL) return E_OUTOFMEMORY;
1135
1136     cloned->IEnumGUID_iface.lpVtbl = This->IEnumGUID_iface.lpVtbl;
1137     cloned->ref = 1;
1138
1139     cloned->categories = HeapAlloc(GetProcessHeap(), 0, This->categories->size);
1140     if (cloned->categories == NULL) {
1141         HeapFree(GetProcessHeap(), 0, cloned);
1142         return E_OUTOFMEMORY;
1143     }
1144     memcpy(cloned->categories, This->categories, This->categories->size);
1145
1146     cloned->key = NULL;
1147     open_classes_key(HKEY_CLASSES_ROOT, keynameW, KEY_READ, &cloned->key);
1148     cloned->next_index = This->next_index;
1149
1150     *ppenum = &cloned->IEnumGUID_iface;
1151     return S_OK;
1152 }
1153
1154 static const IEnumGUIDVtbl CLSIDEnumGUIDVtbl =
1155 {
1156     CLSIDEnumGUID_QueryInterface,
1157     CLSIDEnumGUID_AddRef,
1158     CLSIDEnumGUID_Release,
1159     CLSIDEnumGUID_Next,
1160     CLSIDEnumGUID_Skip,
1161     CLSIDEnumGUID_Reset,
1162     CLSIDEnumGUID_Clone
1163 };
1164
1165 static HRESULT CLSIDEnumGUID_Construct(struct class_categories *categories, IEnumCLSID **ret)
1166 {
1167     static const WCHAR keyname[] = {'C','L','S','I','D',0};
1168     CLSID_IEnumGUIDImpl *This;
1169
1170     *ret = NULL;
1171
1172     This = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(CLSID_IEnumGUIDImpl));
1173     if (!This) return E_OUTOFMEMORY;
1174
1175     This->IEnumGUID_iface.lpVtbl = &CLSIDEnumGUIDVtbl;
1176     This->ref = 1;
1177     This->categories = categories;
1178     open_classes_key(HKEY_CLASSES_ROOT, keyname, KEY_READ, &This->key);
1179
1180     *ret = &This->IEnumGUID_iface;
1181
1182     return S_OK;
1183 }
1184
1185 /**********************************************************************
1186  * CategoriesOfClass IEnumCATID (IEnumGUID) implementation
1187  *
1188  * This implementation is not thread-safe.  The manager itself is, but
1189  * I can't imagine a valid use of an enumerator in several threads.
1190  */
1191 typedef struct
1192 {
1193     IEnumGUID IEnumGUID_iface;
1194     LONG  ref;
1195     WCHAR keyname[68];
1196     HKEY  key;
1197     DWORD next_index;
1198 } CATID_IEnumGUIDImpl;
1199
1200 static inline CATID_IEnumGUIDImpl *impl_from_IEnumCATID(IEnumGUID *iface)
1201 {
1202     return CONTAINING_RECORD(iface, CATID_IEnumGUIDImpl, IEnumGUID_iface);
1203 }
1204
1205 static HRESULT WINAPI CATIDEnumGUID_QueryInterface(
1206     IEnumGUID *iface,
1207     REFIID riid,
1208     LPVOID *ppvObj)
1209 {
1210     TRACE("%s\n",debugstr_guid(riid));
1211
1212     if (ppvObj == NULL) return E_POINTER;
1213
1214     if (IsEqualGUID(riid, &IID_IUnknown) ||
1215         IsEqualGUID(riid, &IID_IEnumGUID))
1216     {
1217         *ppvObj = iface;
1218         IEnumGUID_AddRef(iface);
1219         return S_OK;
1220     }
1221
1222     return E_NOINTERFACE;
1223 }
1224
1225 static ULONG WINAPI CATIDEnumGUID_AddRef(IEnumGUID *iface)
1226 {
1227     CATID_IEnumGUIDImpl *This = impl_from_IEnumCATID(iface);
1228     TRACE("\n");
1229
1230     return InterlockedIncrement(&This->ref);
1231 }
1232
1233 static ULONG WINAPI CATIDEnumGUID_Release(IEnumGUID *iface)
1234 {
1235     CATID_IEnumGUIDImpl *This = impl_from_IEnumCATID(iface);
1236     ULONG ref;
1237
1238     TRACE("\n");
1239
1240     ref = InterlockedDecrement(&This->ref);
1241     if (ref == 0) {
1242         if (This->key) RegCloseKey(This->key);
1243         HeapFree(GetProcessHeap(), 0, This);
1244         return 0;
1245     }
1246     return ref;
1247 }
1248
1249 static HRESULT WINAPI CATIDEnumGUID_Next(
1250     IEnumGUID *iface,
1251     ULONG celt,
1252     GUID *rgelt,
1253     ULONG *pceltFetched)
1254 {
1255     CATID_IEnumGUIDImpl *This = impl_from_IEnumCATID(iface);
1256     ULONG fetched = 0;
1257
1258     TRACE("\n");
1259
1260     if (rgelt == NULL) return E_POINTER;
1261
1262     if (This->key) while (fetched < celt) {
1263         LSTATUS res;
1264         HRESULT hr;
1265         WCHAR catid[CHARS_IN_GUID];
1266         DWORD cName = CHARS_IN_GUID;
1267
1268         res = RegEnumKeyExW(This->key, This->next_index, catid, &cName,
1269                             NULL, NULL, NULL, NULL);
1270         if (res != ERROR_SUCCESS && res != ERROR_MORE_DATA) break;
1271         ++(This->next_index);
1272
1273         hr = CLSIDFromString(catid, rgelt);
1274         if (FAILED(hr)) continue;
1275
1276         ++fetched;
1277         ++rgelt;
1278     }
1279
1280     if (pceltFetched) *pceltFetched = fetched;
1281     return fetched == celt ? S_OK : S_FALSE;
1282 }
1283
1284 static HRESULT WINAPI CATIDEnumGUID_Skip(
1285     IEnumGUID *iface,
1286     ULONG celt)
1287 {
1288     CATID_IEnumGUIDImpl *This = impl_from_IEnumCATID(iface);
1289
1290     TRACE("\n");
1291
1292     This->next_index += celt;
1293     FIXME("Never returns S_FALSE\n");
1294     return S_OK;
1295 }
1296
1297 static HRESULT WINAPI CATIDEnumGUID_Reset(IEnumGUID *iface)
1298 {
1299     CATID_IEnumGUIDImpl *This = impl_from_IEnumCATID(iface);
1300
1301     TRACE("\n");
1302
1303     This->next_index = 0;
1304     return S_OK;
1305 }
1306
1307 static HRESULT WINAPI CATIDEnumGUID_Clone(
1308     IEnumGUID *iface,
1309     IEnumGUID **ppenum)
1310 {
1311     CATID_IEnumGUIDImpl *This = impl_from_IEnumCATID(iface);
1312     CATID_IEnumGUIDImpl *new_this;
1313
1314     TRACE("\n");
1315
1316     if (ppenum == NULL) return E_POINTER;
1317
1318     new_this = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(CATID_IEnumGUIDImpl));
1319     if (new_this == NULL) return E_OUTOFMEMORY;
1320
1321     new_this->IEnumGUID_iface.lpVtbl = This->IEnumGUID_iface.lpVtbl;
1322     new_this->ref = 1;
1323     lstrcpyW(new_this->keyname, This->keyname);
1324     /* FIXME: could we more efficiently use DuplicateHandle? */
1325     open_classes_key(HKEY_CLASSES_ROOT, new_this->keyname, KEY_READ, &new_this->key);
1326     new_this->next_index = This->next_index;
1327
1328     *ppenum = &new_this->IEnumGUID_iface;
1329     return S_OK;
1330 }
1331
1332 static const IEnumGUIDVtbl CATIDEnumGUIDVtbl =
1333 {
1334     CATIDEnumGUID_QueryInterface,
1335     CATIDEnumGUID_AddRef,
1336     CATIDEnumGUID_Release,
1337     CATIDEnumGUID_Next,
1338     CATIDEnumGUID_Skip,
1339     CATIDEnumGUID_Reset,
1340     CATIDEnumGUID_Clone
1341 };
1342
1343 static HRESULT CATIDEnumGUID_Construct(REFCLSID rclsid, LPCWSTR postfix, IEnumGUID **ret)
1344 {
1345     static const WCHAR prefixW[] = {'C','L','S','I','D','\\',0};
1346     WCHAR keyname[100], clsidW[CHARS_IN_GUID];
1347     CATID_IEnumGUIDImpl *This;
1348
1349     *ret = NULL;
1350
1351     This = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(CATID_IEnumGUIDImpl));
1352     if (!This) return E_OUTOFMEMORY;
1353
1354     StringFromGUID2(rclsid, clsidW, CHARS_IN_GUID);
1355
1356     This->IEnumGUID_iface.lpVtbl = &CATIDEnumGUIDVtbl;
1357     This->ref = 1;
1358     strcpyW(keyname, prefixW);
1359     strcatW(keyname, clsidW);
1360     strcatW(keyname, postfix);
1361
1362     open_classes_key(HKEY_CLASSES_ROOT, keyname, KEY_READ, &This->key);
1363
1364     *ret = &This->IEnumGUID_iface;
1365     return S_OK;
1366 }