dlls/oleaut32/regsvr.c

   1 /*
   2  *      self-registerable dll functions for oleaut32.dll
   3  *
   4  * Copyright (C) 2003 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 <stdarg.h>
  22 #include <string.h>
  23
  24 #include "windef.h"
  25 #include "winbase.h"
  26 #include "winuser.h"
  27 #include "winreg.h"
  28 #include "winerror.h"
  29
  30 #include "ole2.h"
  31 #include "olectl.h"
  32 #include "oleauto.h"
  33 #include "initguid.h"
  34 #include "typelib.h"
  35
  36 #include "wine/debug.h"
  37
  38 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  39
  40 /*
  41  * Near the bottom of this file are the exported DllRegisterServer and
  42  * DllUnregisterServer, which make all this worthwhile.
  43  */
  44
  45 /***********************************************************************
  46  *              interface for self-registering
  47  */
  48 struct regsvr_interface
  49 {
  50     IID const *iid;             /* NULL for end of list */
  51     LPCSTR name;                /* can be NULL to omit */
  52     IID const *base_iid;        /* can be NULL to omit */
  53     int num_methods;            /* can be <0 to omit */
  54     CLSID const *ps_clsid;      /* can be NULL to omit */
  55     CLSID const *ps_clsid32;    /* can be NULL to omit */
  56 };
  57
  58 static HRESULT register_interfaces(struct regsvr_interface const *list);
  59 static HRESULT unregister_interfaces(struct regsvr_interface const *list);
  60
  61 struct regsvr_coclass
  62 {
  63     CLSID const *clsid;         /* NULL for end of list */
  64     LPCSTR name;                /* can be NULL to omit */
  65     LPCSTR ips;                 /* can be NULL to omit */
  66     LPCSTR ips32;               /* can be NULL to omit */
  67     LPCSTR ips32_tmodel;        /* can be NULL to omit */
  68     LPCSTR clsid_str;           /* can be NULL to omit */
  69     LPCSTR progid;              /* can be NULL to omit */
  70 };
  71
  72 static HRESULT register_coclasses(struct regsvr_coclass const *list);
  73 static HRESULT unregister_coclasses(struct regsvr_coclass const *list);
  74
  75 /***********************************************************************
  76  *              static string constants
  77  */
  78 static WCHAR const interface_keyname[10] = {
  79     'I', 'n', 't', 'e', 'r', 'f', 'a', 'c', 'e', 0 };
  80 static WCHAR const base_ifa_keyname[14] = {
  81     'B', 'a', 's', 'e', 'I', 'n', 't', 'e', 'r', 'f', 'a', 'c',
  82     'e', 0 };
  83 static WCHAR const num_methods_keyname[11] = {
  84     'N', 'u', 'm', 'M', 'e', 't', 'h', 'o', 'd', 's', 0 };
  85 static WCHAR const ps_clsid_keyname[15] = {
  86     'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
  87     'i', 'd', 0 };
  88 static WCHAR const ps_clsid32_keyname[17] = {
  89     'P', 'r', 'o', 'x', 'y', 'S', 't', 'u', 'b', 'C', 'l', 's',
  90     'i', 'd', '3', '2', 0 };
  91 static WCHAR const clsid_keyname[6] = {
  92     'C', 'L', 'S', 'I', 'D', 0 };
  93 static WCHAR const ips_keyname[13] = {
  94     'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
  95     0 };
  96 static WCHAR const ips32_keyname[15] = {
  97     'I', 'n', 'P', 'r', 'o', 'c', 'S', 'e', 'r', 'v', 'e', 'r',
  98     '3', '2', 0 };
  99 static WCHAR const progid_keyname[7] = {
 100     'P', 'r', 'o', 'g', 'I', 'D', 0 };
 101 static char const tmodel_valuename[] = "ThreadingModel";
 102
 103 /***********************************************************************
 104  *              static helper functions
 105  */
 106 static LONG register_key_guid(HKEY base, WCHAR const *name, GUID const *guid);
 107 static LONG register_key_defvalueW(HKEY base, WCHAR const *name,
 108                                    WCHAR const *value);
 109 static LONG register_key_defvalueA(HKEY base, WCHAR const *name,
 110                                    char const *value);
 111 static LONG recursive_delete_key(HKEY key);
 112 static LONG recursive_delete_keyA(HKEY base, char const *name);
 113 static LONG recursive_delete_keyW(HKEY base, WCHAR const *name);
 114
 115 /***********************************************************************
 116  *              register_interfaces
 117  */
 118 static HRESULT register_interfaces(struct regsvr_interface const *list)
 119 {
 120     LONG res = ERROR_SUCCESS;
 121     HKEY interface_key;
 122
 123     res = RegCreateKeyExW(HKEY_CLASSES_ROOT, interface_keyname, 0, NULL, 0,
 124                           KEY_READ | KEY_WRITE, NULL, &interface_key, NULL);
 125     if (res != ERROR_SUCCESS) goto error_return;
 126
 127     for (; res == ERROR_SUCCESS && list->iid; ++list) {
 128         WCHAR buf[39];
 129         HKEY iid_key;
 130
 131         StringFromGUID2(list->iid, buf, 39);
 132         res = RegCreateKeyExW(interface_key, buf, 0, NULL, 0,
 133                               KEY_READ | KEY_WRITE, NULL, &iid_key, NULL);
 134         if (res != ERROR_SUCCESS) goto error_close_interface_key;
 135
 136         if (list->name) {
 137             res = RegSetValueExA(iid_key, NULL, 0, REG_SZ,
 138                                  (CONST BYTE*)(list->name),
 139                                  strlen(list->name) + 1);
 140             if (res != ERROR_SUCCESS) goto error_close_iid_key;
 141         }
 142
 143         if (list->base_iid) {
 144             res = register_key_guid(iid_key, base_ifa_keyname, list->base_iid);
 145             if (res != ERROR_SUCCESS) goto error_close_iid_key;
 146         }
 147
 148         if (0 <= list->num_methods) {
 149             static WCHAR const fmt[3] = { '%', 'd', 0 };
 150             HKEY key;
 151
 152             res = RegCreateKeyExW(iid_key, num_methods_keyname, 0, NULL, 0,
 153                                   KEY_READ | KEY_WRITE, NULL, &key, NULL);
 154             if (res != ERROR_SUCCESS) goto error_close_iid_key;
 155
 156             wsprintfW(buf, fmt, list->num_methods);
 157             res = RegSetValueExW(key, NULL, 0, REG_SZ,
 158                                  (CONST BYTE*)buf,
 159                                  (lstrlenW(buf) + 1) * sizeof(WCHAR));
 160             RegCloseKey(key);
 161
 162             if (res != ERROR_SUCCESS) goto error_close_iid_key;
 163         }
 164
 165         if (list->ps_clsid) {
 166             res = register_key_guid(iid_key, ps_clsid_keyname, list->ps_clsid);
 167             if (res != ERROR_SUCCESS) goto error_close_iid_key;
 168         }
 169
 170         if (list->ps_clsid32) {
 171             res = register_key_guid(iid_key, ps_clsid32_keyname, list->ps_clsid32);
 172             if (res != ERROR_SUCCESS) goto error_close_iid_key;
 173         }
 174
 175     error_close_iid_key:
 176         RegCloseKey(iid_key);
 177     }
 178
 179 error_close_interface_key:
 180     RegCloseKey(interface_key);
 181 error_return:
 182     return res != ERROR_SUCCESS ? HRESULT_FROM_WIN32(res) : S_OK;
 183 }
 184
 185 /***********************************************************************
 186  *              unregister_interfaces
 187  */
 188 static HRESULT unregister_interfaces(struct regsvr_interface const *list)
 189 {
 190     LONG res = ERROR_SUCCESS;
 191     HKEY interface_key;
 192
 193     res = RegOpenKeyExW(HKEY_CLASSES_ROOT, interface_keyname, 0,
 194                         KEY_READ | KEY_WRITE, &interface_key);
 195     if (res == ERROR_FILE_NOT_FOUND) return S_OK;
 196     if (res != ERROR_SUCCESS) goto error_return;
 197
 198     for (; res == ERROR_SUCCESS && list->iid; ++list) {
 199         WCHAR buf[39];
 200
 201         StringFromGUID2(list->iid, buf, 39);
 202         res = recursive_delete_keyW(interface_key, buf);
 203     }
 204
 205     RegCloseKey(interface_key);
 206 error_return:
 207     return res != ERROR_SUCCESS ? HRESULT_FROM_WIN32(res) : S_OK;
 208 }
 209
 210 /***********************************************************************
 211  *              register_coclasses
 212  */
 213 static HRESULT register_coclasses(struct regsvr_coclass const *list)
 214 {
 215     LONG res = ERROR_SUCCESS;
 216     HKEY coclass_key;
 217
 218     res = RegCreateKeyExW(HKEY_CLASSES_ROOT, clsid_keyname, 0, NULL, 0,
 219                           KEY_READ | KEY_WRITE, NULL, &coclass_key, NULL);
 220     if (res != ERROR_SUCCESS) goto error_return;
 221
 222     for (; res == ERROR_SUCCESS && list->clsid; ++list) {
 223         WCHAR buf[39];
 224         HKEY clsid_key;
 225
 226         StringFromGUID2(list->clsid, buf, 39);
 227         res = RegCreateKeyExW(coclass_key, buf, 0, NULL, 0,
 228                               KEY_READ | KEY_WRITE, NULL, &clsid_key, NULL);
 229         if (res != ERROR_SUCCESS) goto error_close_coclass_key;
 230
 231         if (list->name) {
 232             res = RegSetValueExA(clsid_key, NULL, 0, REG_SZ,
 233                                  (CONST BYTE*)(list->name),
 234                                  strlen(list->name) + 1);
 235             if (res != ERROR_SUCCESS) goto error_close_clsid_key;
 236         }
 237
 238         if (list->ips) {
 239             res = register_key_defvalueA(clsid_key, ips_keyname, list->ips);
 240             if (res != ERROR_SUCCESS) goto error_close_clsid_key;
 241         }
 242
 243         if (list->ips32) {
 244             HKEY ips32_key;
 245
 246             res = RegCreateKeyExW(clsid_key, ips32_keyname, 0, NULL, 0,
 247                                   KEY_READ | KEY_WRITE, NULL,
 248                                   &ips32_key, NULL);
 249             if (res != ERROR_SUCCESS) goto error_close_clsid_key;
 250
 251             res = RegSetValueExA(ips32_key, NULL, 0, REG_SZ,
 252                                  (CONST BYTE*)list->ips32,
 253                                  lstrlenA(list->ips32) + 1);
 254             if (res == ERROR_SUCCESS && list->ips32_tmodel)
 255                 res = RegSetValueExA(ips32_key, tmodel_valuename, 0, REG_SZ,
 256                                      (CONST BYTE*)list->ips32_tmodel,
 257                                      strlen(list->ips32_tmodel) + 1);
 258             RegCloseKey(ips32_key);
 259             if (res != ERROR_SUCCESS) goto error_close_clsid_key;
 260         }
 261
 262         if (list->clsid_str) {
 263             res = register_key_defvalueA(clsid_key, clsid_keyname,
 264                                          list->clsid_str);
 265             if (res != ERROR_SUCCESS) goto error_close_clsid_key;
 266         }
 267
 268         if (list->progid) {
 269             HKEY progid_key;
 270
 271             res = register_key_defvalueA(clsid_key, progid_keyname,
 272                                          list->progid);
 273             if (res != ERROR_SUCCESS) goto error_close_clsid_key;
 274
 275             res = RegCreateKeyExA(HKEY_CLASSES_ROOT, list->progid, 0,
 276                                   NULL, 0, KEY_READ | KEY_WRITE, NULL,
 277                                   &progid_key, NULL);
 278             if (res != ERROR_SUCCESS) goto error_close_clsid_key;
 279
 280             res = register_key_defvalueW(progid_key, clsid_keyname, buf);
 281             RegCloseKey(progid_key);
 282             if (res != ERROR_SUCCESS) goto error_close_clsid_key;
 283         }
 284
 285     error_close_clsid_key:
 286         RegCloseKey(clsid_key);
 287     }
 288
 289 error_close_coclass_key:
 290     RegCloseKey(coclass_key);
 291 error_return:
 292     return res != ERROR_SUCCESS ? HRESULT_FROM_WIN32(res) : S_OK;
 293 }
 294
 295 /***********************************************************************
 296  *              unregister_coclasses
 297  */
 298 static HRESULT unregister_coclasses(struct regsvr_coclass const *list)
 299 {
 300     LONG res = ERROR_SUCCESS;
 301     HKEY coclass_key;
 302
 303     res = RegOpenKeyExW(HKEY_CLASSES_ROOT, clsid_keyname, 0,
 304                         KEY_READ | KEY_WRITE, &coclass_key);
 305     if (res == ERROR_FILE_NOT_FOUND) return S_OK;
 306     if (res != ERROR_SUCCESS) goto error_return;
 307
 308     for (; res == ERROR_SUCCESS && list->clsid; ++list) {
 309         WCHAR buf[39];
 310
 311         StringFromGUID2(list->clsid, buf, 39);
 312         res = recursive_delete_keyW(coclass_key, buf);
 313         if (res != ERROR_SUCCESS) goto error_close_coclass_key;
 314
 315         if (list->progid) {
 316             res = recursive_delete_keyA(HKEY_CLASSES_ROOT, list->progid);
 317             if (res != ERROR_SUCCESS) goto error_close_coclass_key;
 318         }
 319     }
 320
 321 error_close_coclass_key:
 322     RegCloseKey(coclass_key);
 323 error_return:
 324     return res != ERROR_SUCCESS ? HRESULT_FROM_WIN32(res) : S_OK;
 325 }
 326
 327 /***********************************************************************
 328  *              regsvr_key_guid
 329  */
 330 static LONG register_key_guid(HKEY base, WCHAR const *name, GUID const *guid)
 331 {
 332     WCHAR buf[39];
 333
 334     StringFromGUID2(guid, buf, 39);
 335     return register_key_defvalueW(base, name, buf);
 336 }
 337
 338 /***********************************************************************
 339  *              regsvr_key_defvalueW
 340  */
 341 static LONG register_key_defvalueW(
 342     HKEY base,
 343     WCHAR const *name,
 344     WCHAR const *value)
 345 {
 346     LONG res;
 347     HKEY key;
 348
 349     res = RegCreateKeyExW(base, name, 0, NULL, 0,
 350                           KEY_READ | KEY_WRITE, NULL, &key, NULL);
 351     if (res != ERROR_SUCCESS) return res;
 352     res = RegSetValueExW(key, NULL, 0, REG_SZ, (CONST BYTE*)value,
 353                          (lstrlenW(value) + 1) * sizeof(WCHAR));
 354     RegCloseKey(key);
 355     return res;
 356 }
 357
 358 /***********************************************************************
 359  *              regsvr_key_defvalueA
 360  */
 361 static LONG register_key_defvalueA(
 362     HKEY base,
 363     WCHAR const *name,
 364     char const *value)
 365 {
 366     LONG res;
 367     HKEY key;
 368
 369     res = RegCreateKeyExW(base, name, 0, NULL, 0,
 370                           KEY_READ | KEY_WRITE, NULL, &key, NULL);
 371     if (res != ERROR_SUCCESS) return res;
 372     res = RegSetValueExA(key, NULL, 0, REG_SZ, (CONST BYTE*)value,
 373                          lstrlenA(value) + 1);
 374     RegCloseKey(key);
 375     return res;
 376 }
 377
 378 /***********************************************************************
 379  *              recursive_delete_key
 380  */
 381 static LONG recursive_delete_key(HKEY key)
 382 {
 383     LONG res;
 384     WCHAR subkey_name[MAX_PATH];
 385     DWORD cName;
 386     HKEY subkey;
 387
 388     for (;;) {
 389         cName = sizeof(subkey_name) / sizeof(WCHAR);
 390         res = RegEnumKeyExW(key, 0, subkey_name, &cName,
 391                             NULL, NULL, NULL, NULL);
 392         if (res != ERROR_SUCCESS && res != ERROR_MORE_DATA) {
 393             res = ERROR_SUCCESS; /* presumably we're done enumerating */
 394             break;
 395         }
 396         res = RegOpenKeyExW(key, subkey_name, 0,
 397                             KEY_READ | KEY_WRITE, &subkey);
 398         if (res == ERROR_FILE_NOT_FOUND) continue;
 399         if (res != ERROR_SUCCESS) break;
 400
 401         res = recursive_delete_key(subkey);
 402         RegCloseKey(subkey);
 403         if (res != ERROR_SUCCESS) break;
 404     }
 405
 406     if (res == ERROR_SUCCESS) res = RegDeleteKeyW(key, 0);
 407     return res;
 408 }
 409
 410 /***********************************************************************
 411  *              recursive_delete_keyA
 412  */
 413 static LONG recursive_delete_keyA(HKEY base, char const *name)
 414 {
 415     LONG res;
 416     HKEY key;
 417
 418     res = RegOpenKeyExA(base, name, 0, KEY_READ | KEY_WRITE, &key);
 419     if (res == ERROR_FILE_NOT_FOUND) return ERROR_SUCCESS;
 420     if (res != ERROR_SUCCESS) return res;
 421     res = recursive_delete_key(key);
 422     RegCloseKey(key);
 423     return res;
 424 }
 425
 426 /***********************************************************************
 427  *              recursive_delete_keyW
 428  */
 429 static LONG recursive_delete_keyW(HKEY base, WCHAR const *name)
 430 {
 431     LONG res;
 432     HKEY key;
 433
 434     res = RegOpenKeyExW(base, name, 0, KEY_READ | KEY_WRITE, &key);
 435     if (res == ERROR_FILE_NOT_FOUND) return ERROR_SUCCESS;
 436     if (res != ERROR_SUCCESS) return res;
 437     res = recursive_delete_key(key);
 438     RegCloseKey(key);
 439     return res;
 440 }
 441
 442 /***********************************************************************
 443  *              coclass list
 444  */
 445 static GUID const CLSID_RecordInfo = {
 446     0x0000002F, 0x0000, 0x0000, {0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x46} };
 447
 448 static GUID const CLSID_OldFont = {
 449     0x46763EE0, 0xCAB2, 0x11CE, {0x8C,0x20,0x00,0xAA,0x00,0x51,0xE5,0xD4} };
 450
 451 static struct regsvr_coclass const coclass_list[] = {
 452     {   &CLSID_RecordInfo,
 453         "CLSID_RecordInfo",
 454         NULL,
 455         "oleaut32.dll",
 456         "Both"
 457     },
 458     {   &CLSID_PSDispatch,
 459         "PSDispatch",
 460         "ole2disp.dll",
 461         "oleaut32.dll",
 462         "Both"
 463     },
 464     {   &CLSID_StdFont,
 465         "CLSID_StdFont",
 466         NULL,
 467         "oleaut32.dll",
 468         "Both",
 469         "Standard Font",
 470         "StdFont"
 471     },
 472     {   &CLSID_StdPicture,
 473         "CLSID_StdPict",
 474         NULL,
 475         "oleaut32.dll",
 476         "Apartment",
 477         "Standard Picture",
 478         "StdPicture"
 479     },
 480     {   &CLSID_PSEnumVariant,
 481         "PSEnumVariant",
 482         "ole2disp.dll",
 483         "oleaut32.dll",
 484         "Both"
 485     },
 486     {   &CLSID_PSTypeInfo,
 487         "PSTypeInfo",
 488         "ole2disp.dll",
 489         "oleaut32.dll",
 490         "Both"
 491     },
 492     {   &CLSID_PSTypeLib,
 493         "PSTypeLib",
 494         "ole2disp.dll",
 495         "oleaut32.dll",
 496         "Both"
 497     },
 498     {   &CLSID_PSOAInterface,
 499         "PSOAInterface",
 500         "ole2disp.dll",
 501         "oleaut32.dll",
 502         "Both"
 503     },
 504     {   &CLSID_PSTypeComp,
 505         "PSTypeComp",
 506         "ole2disp.dll",
 507         "oleaut32.dll",
 508         "Both"
 509     },
 510     {   &CLSID_OldFont,
 511         "Obsolete Font",
 512         NULL,
 513         "oleaut32.dll",
 514         NULL,
 515         "Obsolete Font",
 516         "OldFont"
 517     },
 518     {   &CLSID_PSFactoryBuffer,
 519         "PSFactoryBuffer",
 520         NULL,
 521         "oleaut32.dll",
 522         "Both"
 523     },
 524     { NULL }                    /* list terminator */
 525 };
 526
 527 /***********************************************************************
 528  *              interface list
 529  */
 530 static struct regsvr_interface const interface_list[] = {
 531     {   &IID_IDispatch,
 532         "IDispatch",
 533         NULL,
 534         7,
 535         &CLSID_PSDispatch,
 536         &CLSID_PSDispatch
 537     },
 538     {   &IID_ITypeInfo,
 539         "ITypeInfo",
 540         NULL,
 541         22,
 542         &CLSID_PSTypeInfo,
 543         &CLSID_PSTypeInfo
 544     },
 545     {   &IID_ITypeLib,
 546         "ITypeLib",
 547         NULL,
 548         13,
 549         &CLSID_PSTypeLib,
 550         &CLSID_PSTypeLib
 551     },
 552     {   &IID_ITypeComp,
 553         "ITypeComp",
 554         NULL,
 555         5,
 556         &CLSID_PSTypeComp,
 557         &CLSID_PSTypeComp
 558     },
 559     {   &IID_IEnumVARIANT,
 560         "IEnumVARIANT",
 561         NULL,
 562         15,
 563         &CLSID_PSEnumVariant,
 564         &CLSID_PSEnumVariant
 565     },
 566     {   &IID_ICreateTypeInfo,
 567         "ICreateTypeInfo",
 568         NULL,
 569         26,
 570         NULL,
 571         NULL
 572     },
 573     {   &IID_ICreateTypeLib,
 574         "ICreateTypeLib",
 575         NULL,
 576         13,
 577         NULL,
 578         NULL
 579     },
 580     {   &IID_ITypeInfo2,
 581         "ITypeInfo2",
 582         NULL,
 583         32,
 584         NULL,
 585         &CLSID_PSDispatch
 586     },
 587     {   &IID_ITypeLib2,
 588         "ITypeLib2",
 589         NULL,
 590         16,
 591         NULL,
 592         &CLSID_PSDispatch
 593     },
 594     {   &IID_IPropertyPage2,
 595         "IPropertyPage2",
 596         NULL,
 597         15,
 598         NULL,
 599         &CLSID_PSFactoryBuffer
 600     },
 601     {   &IID_IErrorInfo,
 602         "IErrorInfo",
 603         NULL,
 604         8,
 605         NULL,
 606         &CLSID_PSFactoryBuffer
 607     },
 608     {   &IID_ICreateErrorInfo,
 609         "ICreateErrorInfo",
 610         NULL,
 611         8,
 612         NULL,
 613         &CLSID_PSFactoryBuffer
 614     },
 615     {   &IID_IPersistPropertyBag2,
 616         "IPersistPropertyBag2",
 617         NULL,
 618         8,
 619         NULL,
 620         &CLSID_PSFactoryBuffer
 621     },
 622     {   &IID_IPropertyBag2,
 623         "IPropertyBag2",
 624         NULL,
 625         8,
 626         NULL,
 627         &CLSID_PSFactoryBuffer
 628     },
 629     {   &IID_IErrorLog,
 630         "IErrorLog",
 631         NULL,
 632         4,
 633         NULL,
 634         &CLSID_PSFactoryBuffer
 635     },
 636     {   &IID_IPerPropertyBrowsing,
 637         "IPerPropertyBrowsing",
 638         NULL,
 639         7,
 640         NULL,
 641         &CLSID_PSFactoryBuffer
 642     },
 643     {   &IID_IPersistPropertyBag,
 644         "IPersistPropertyBag",
 645         NULL,
 646         7,
 647         NULL,
 648         &CLSID_PSFactoryBuffer
 649     },
 650     {   &IID_IAdviseSinkEx,
 651         "IAdviseSinkEx",
 652         NULL,
 653         9,
 654         NULL,
 655         &CLSID_PSFactoryBuffer
 656     },
 657     {   &IID_IFontEventsDisp,
 658         "IFontEventsDisp",
 659         NULL,
 660         7,
 661         NULL,
 662         &CLSID_PSFactoryBuffer
 663     },
 664     {   &IID_IPropertyBag,
 665         "IPropertyBag",
 666         NULL,
 667         5,
 668         NULL,
 669         &CLSID_PSFactoryBuffer
 670     },
 671     {   &IID_IPointerInactive,
 672         "IPointerInactive",
 673         NULL,
 674         6,
 675         NULL,
 676         &CLSID_PSFactoryBuffer
 677     },
 678     {   &IID_ISimpleFrameSite,
 679         "ISimpleFrameSite",
 680         NULL,
 681         5,
 682         NULL,
 683         &CLSID_PSFactoryBuffer
 684     },
 685     {   &IID_IPicture,
 686         "IPicture",
 687         NULL,
 688         17,
 689         NULL,
 690         &CLSID_PSFactoryBuffer
 691     },
 692     {   &IID_IPictureDisp,
 693         "IPictureDisp",
 694         NULL,
 695         7,
 696         NULL,
 697         &CLSID_PSFactoryBuffer
 698     },
 699     {   &IID_IPersistStreamInit,
 700         "IPersistStreamInit",
 701         NULL,
 702         9,
 703         NULL,
 704         &CLSID_PSFactoryBuffer
 705     },
 706     {   &IID_IOleUndoUnit,
 707         "IOleUndoUnit",
 708         NULL,
 709         7,
 710         NULL,
 711         &CLSID_PSFactoryBuffer
 712     },
 713     {   &IID_IPropertyNotifySink,
 714         "IPropertyNotifySink",
 715         NULL,
 716         5,
 717         NULL,
 718         &CLSID_PSFactoryBuffer
 719     },
 720     {   &IID_IOleInPlaceSiteEx,
 721         "IOleInPlaceSiteEx",
 722         NULL,
 723         18,
 724         NULL,
 725         &CLSID_PSFactoryBuffer
 726     },
 727     {   &IID_IOleParentUndoUnit,
 728         "IOleParentUndoUnit",
 729         NULL,
 730         12,
 731         NULL,
 732         &CLSID_PSFactoryBuffer
 733     },
 734     {   &IID_IProvideClassInfo2,
 735         "IProvideClassInfo2",
 736         NULL,
 737         5,
 738         NULL,
 739         &CLSID_PSFactoryBuffer
 740     },
 741     {   &IID_IProvideMultipleClassInfo,
 742         "IProvideMultipleClassInfo",
 743         NULL,
 744         7,
 745         NULL,
 746         &CLSID_PSFactoryBuffer
 747     },
 748     {   &IID_IProvideClassInfo,
 749         "IProvideClassInfo",
 750         NULL,
 751         4,
 752         NULL,
 753         &CLSID_PSFactoryBuffer
 754     },
 755     {   &IID_IConnectionPointContainer,
 756         "IConnectionPointContainer",
 757         NULL,
 758         5,
 759         NULL,
 760         &CLSID_PSFactoryBuffer
 761     },
 762     {   &IID_IEnumConnectionPoints,
 763         "IEnumConnectionPoints",
 764         NULL,
 765         7,
 766         NULL,
 767         &CLSID_PSFactoryBuffer
 768     },
 769     {   &IID_IConnectionPoint,
 770         "IConnectionPoint",
 771         NULL,
 772         8,
 773         NULL,
 774         &CLSID_PSFactoryBuffer
 775     },
 776     {   &IID_IEnumConnections,
 777         "IEnumConnections",
 778         NULL,
 779         7,
 780         NULL,
 781         &CLSID_PSFactoryBuffer
 782     },
 783     {   &IID_IOleControl,
 784         "IOleControl",
 785         NULL,
 786         7,
 787         NULL,
 788         &CLSID_PSFactoryBuffer
 789     },
 790     {   &IID_IOleControlSite,
 791         "IOleControlSite",
 792         NULL,
 793         10,
 794         NULL,
 795         &CLSID_PSFactoryBuffer
 796     },
 797     {   &IID_ISpecifyPropertyPages,
 798         "ISpecifyPropertyPages",
 799         NULL,
 800         4,
 801         NULL,
 802         &CLSID_PSFactoryBuffer
 803     },
 804     {   &IID_IPropertyPageSite,
 805         "IPropertyPageSite",
 806         NULL,
 807         7,
 808         NULL,
 809         &CLSID_PSFactoryBuffer
 810     },
 811     {   &IID_IPropertyPage,
 812         "IPropertyPage",
 813         NULL,
 814         14,
 815         NULL,
 816         &CLSID_PSFactoryBuffer
 817     },
 818     {   &IID_IClassFactory2,
 819         "IClassFactory2",
 820         NULL,
 821         8,
 822         NULL,
 823         &CLSID_PSFactoryBuffer
 824     },
 825     {   &IID_IEnumOleUndoUnits,
 826         "IEnumOleUndoUnits",
 827         NULL,
 828         7,
 829         NULL,
 830         &CLSID_PSFactoryBuffer
 831     },
 832     {   &IID_IPersistMemory,
 833         "IPersistMemory",
 834         NULL,
 835         9,
 836         NULL,
 837         &CLSID_PSFactoryBuffer
 838     },
 839     {   &IID_IFont,
 840         "IFont",
 841         NULL,
 842         27,
 843         NULL,
 844         &CLSID_PSFactoryBuffer
 845     },
 846     {   &IID_IFontDisp,
 847         "IFontDisp",
 848         NULL,
 849         7,
 850         NULL,
 851         &CLSID_PSFactoryBuffer
 852     },
 853     {   &IID_IQuickActivate,
 854         "IQuickActivate",
 855         NULL,
 856         6,
 857         NULL,
 858         &CLSID_PSFactoryBuffer
 859     },
 860     {   &IID_IOleUndoManager,
 861         "IOleUndoManager",
 862         NULL,
 863         15,
 864         NULL,
 865         &CLSID_PSFactoryBuffer
 866     },
 867     {   &IID_IObjectWithSite,
 868         "IObjectWithSite",
 869         NULL,
 870         5,
 871         NULL,
 872         &CLSID_PSFactoryBuffer
 873     },
 874     { NULL }                    /* list terminator */
 875 };
 876
 877 /***********************************************************************
 878  *              DllRegisterServer (OLEAUT32.@)
 879  */
 880 HRESULT WINAPI DllRegisterServer(void)
 881 {
 882     HRESULT hr;
 883
 884     TRACE("\n");
 885
 886     hr = register_coclasses(coclass_list);
 887     if (SUCCEEDED(hr))
 888         hr = register_interfaces(interface_list);
 889     return hr;
 890 }
 891
 892 /***********************************************************************
 893  *              DllUnregisterServer (OLEAUT32.@)
 894  */
 895 HRESULT WINAPI DllUnregisterServer(void)
 896 {
 897     HRESULT hr;
 898
 899     TRACE("\n");
 900
 901     hr = unregister_coclasses(coclass_list);
 902     if (SUCCEEDED(hr))
 903         hr = unregister_interfaces(interface_list);
 904     return hr;
 905 }