git.oblomov.eu Git - wine/blob - dlls/msi/source.c

   1 /*
   2  * Implementation of the Microsoft Installer (msi.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 #define NONAMELESSUNION
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winreg.h"
  29 #include "winnls.h"
  30 #include "shlwapi.h"
  31 #include "wine/debug.h"
  32 #include "msi.h"
  33 #include "msiquery.h"
  34 #include "msipriv.h"
  35 #include "wincrypt.h"
  36 #include "winver.h"
  37 #include "winuser.h"
  38 #include "wine/unicode.h"
  39 #include "sddl.h"
  40
  41 WINE_DEFAULT_DEBUG_CHANNEL(msi);
  42
  43 /*
  44  * These apis are defined in MSI 3.0
  45  */
  46
  47 typedef struct tagMediaInfo
  48 {
  49     struct list entry;
  50     LPWSTR  path;
  51     WCHAR   szIndex[10];
  52     DWORD   index;
  53 } media_info;
  54
  55 static UINT OpenSourceKey(LPCWSTR szProduct, HKEY* key, DWORD dwOptions,
  56                           MSIINSTALLCONTEXT context, BOOL create)
  57 {
  58     HKEY rootkey = 0;
  59     UINT rc = ERROR_FUNCTION_FAILED;
  60
  61     if (context == MSIINSTALLCONTEXT_USERUNMANAGED)
  62     {
  63         if (dwOptions & MSICODE_PATCH)
  64             rc = MSIREG_OpenUserPatchesKey(szProduct, &rootkey, create);
  65         else
  66             rc = MSIREG_OpenProductKey(szProduct, NULL, context,
  67                                        &rootkey, create);
  68     }
  69     else if (context == MSIINSTALLCONTEXT_USERMANAGED)
  70     {
  71         if (dwOptions & MSICODE_PATCH)
  72             rc = MSIREG_OpenUserPatchesKey(szProduct, &rootkey, create);
  73         else
  74             rc = MSIREG_OpenProductKey(szProduct, NULL, context,
  75                                        &rootkey, create);
  76     }
  77     else if (context == MSIINSTALLCONTEXT_MACHINE)
  78     {
  79         if (dwOptions & MSICODE_PATCH)
  80             rc = MSIREG_OpenPatchesKey(szProduct, &rootkey, create);
  81         else
  82             rc = MSIREG_OpenProductKey(szProduct, NULL, context,
  83                                        &rootkey, create);
  84     }
  85
  86     if (rc != ERROR_SUCCESS)
  87     {
  88         if (dwOptions & MSICODE_PATCH)
  89             return ERROR_UNKNOWN_PATCH;
  90         else
  91             return ERROR_UNKNOWN_PRODUCT;
  92     }
  93
  94     if (create)
  95         rc = RegCreateKeyW(rootkey, szSourceList, key);
  96     else
  97     {
  98         rc = RegOpenKeyW(rootkey,szSourceList, key);
  99         if (rc != ERROR_SUCCESS)
 100             rc = ERROR_BAD_CONFIGURATION;
 101     }
 102
 103     return rc;
 104 }
 105
 106 static UINT OpenMediaSubkey(HKEY rootkey, HKEY *key, BOOL create)
 107 {
 108     UINT rc;
 109     static const WCHAR media[] = {'M','e','d','i','a',0};
 110
 111     if (create)
 112         rc = RegCreateKeyW(rootkey, media, key);
 113     else
 114         rc = RegOpenKeyW(rootkey,media, key);
 115
 116     return rc;
 117 }
 118
 119 static UINT OpenNetworkSubkey(HKEY rootkey, HKEY *key, BOOL create)
 120 {
 121     UINT rc;
 122     static const WCHAR net[] = {'N','e','t',0};
 123
 124     if (create)
 125         rc = RegCreateKeyW(rootkey, net, key);
 126     else
 127         rc = RegOpenKeyW(rootkey, net, key);
 128
 129     return rc;
 130 }
 131
 132 static UINT OpenURLSubkey(HKEY rootkey, HKEY *key, BOOL create)
 133 {
 134     UINT rc;
 135     static const WCHAR URL[] = {'U','R','L',0};
 136
 137     if (create)
 138         rc = RegCreateKeyW(rootkey, URL, key);
 139     else
 140         rc = RegOpenKeyW(rootkey, URL, key);
 141
 142     return rc;
 143 }
 144
 145 /******************************************************************
 146  *  MsiSourceListEnumMediaDisksA   (MSI.@)
 147  */
 148 UINT WINAPI MsiSourceListEnumMediaDisksA(LPCSTR szProductCodeOrPatchCode,
 149                                          LPCSTR szUserSid, MSIINSTALLCONTEXT dwContext,
 150                                          DWORD dwOptions, DWORD dwIndex, LPDWORD pdwDiskId,
 151                                          LPSTR szVolumeLabel, LPDWORD pcchVolumeLabel,
 152                                          LPSTR szDiskPrompt, LPDWORD pcchDiskPrompt)
 153 {
 154     LPWSTR product = NULL;
 155     LPWSTR usersid = NULL;
 156     LPWSTR volume = NULL;
 157     LPWSTR prompt = NULL;
 158     UINT r = ERROR_INVALID_PARAMETER;
 159
 160     TRACE("(%s, %s, %d, %d, %d, %p, %p, %p, %p, %p)\n", debugstr_a(szProductCodeOrPatchCode),
 161           debugstr_a(szUserSid), dwContext, dwOptions, dwIndex, pdwDiskId,
 162           szVolumeLabel, pcchVolumeLabel, szDiskPrompt, pcchDiskPrompt);
 163
 164     if (szDiskPrompt && !pcchDiskPrompt)
 165         return ERROR_INVALID_PARAMETER;
 166
 167     if (szProductCodeOrPatchCode) product = strdupAtoW(szProductCodeOrPatchCode);
 168     if (szUserSid) usersid = strdupAtoW(szUserSid);
 169
 170     /* FIXME: add tests for an invalid format */
 171
 172     if (pcchVolumeLabel)
 173         volume = msi_alloc(*pcchVolumeLabel * sizeof(WCHAR));
 174
 175     if (pcchDiskPrompt)
 176         prompt = msi_alloc(*pcchDiskPrompt * sizeof(WCHAR));
 177
 178     if (volume) *volume = '\0';
 179     if (prompt) *prompt = '\0';
 180     r = MsiSourceListEnumMediaDisksW(product, usersid, dwContext, dwOptions,
 181                                      dwIndex, pdwDiskId, volume, pcchVolumeLabel,
 182                                      prompt, pcchDiskPrompt);
 183     if (r != ERROR_SUCCESS)
 184         goto done;
 185
 186     if (szVolumeLabel && pcchVolumeLabel)
 187         WideCharToMultiByte(CP_ACP, 0, volume, -1, szVolumeLabel,
 188                             *pcchVolumeLabel + 1, NULL, NULL);
 189
 190     if (szDiskPrompt)
 191         WideCharToMultiByte(CP_ACP, 0, prompt, -1, szDiskPrompt,
 192                             *pcchDiskPrompt + 1, NULL, NULL);
 193
 194 done:
 195     msi_free(product);
 196     msi_free(usersid);
 197     msi_free(volume);
 198     msi_free(prompt);
 199
 200     return r;
 201 }
 202
 203 /******************************************************************
 204  *  MsiSourceListEnumMediaDisksW   (MSI.@)
 205  */
 206 UINT WINAPI MsiSourceListEnumMediaDisksW(LPCWSTR szProductCodeOrPatchCode,
 207                                          LPCWSTR szUserSid, MSIINSTALLCONTEXT dwContext,
 208                                          DWORD dwOptions, DWORD dwIndex, LPDWORD pdwDiskId,
 209                                          LPWSTR szVolumeLabel, LPDWORD pcchVolumeLabel,
 210                                          LPWSTR szDiskPrompt, LPDWORD pcchDiskPrompt)
 211 {
 212     WCHAR squished_pc[GUID_SIZE];
 213     WCHAR convert[11];
 214     LPWSTR value = NULL;
 215     LPWSTR data = NULL;
 216     LPWSTR ptr, ptr2;
 217     HKEY source, media;
 218     DWORD valuesz, datasz = 0;
 219     DWORD type;
 220     DWORD numvals, size;
 221     LONG res;
 222     UINT r;
 223     static DWORD index = 0;
 224
 225     static const WCHAR fmt[] = {'#','%','d',0};
 226
 227     TRACE("(%s, %s, %d, %d, %d, %p, %p, %p, %p)\n", debugstr_w(szProductCodeOrPatchCode),
 228           debugstr_w(szUserSid), dwContext, dwOptions, dwIndex, szVolumeLabel,
 229           pcchVolumeLabel, szDiskPrompt, pcchDiskPrompt);
 230
 231     if (!szProductCodeOrPatchCode ||
 232         !squash_guid(szProductCodeOrPatchCode, squished_pc))
 233         return ERROR_INVALID_PARAMETER;
 234
 235     if (dwContext == MSIINSTALLCONTEXT_MACHINE && szUserSid)
 236         return ERROR_INVALID_PARAMETER;
 237
 238     if (dwOptions != MSICODE_PRODUCT && dwOptions != MSICODE_PATCH)
 239         return ERROR_INVALID_PARAMETER;
 240
 241     if (szDiskPrompt && !pcchDiskPrompt)
 242         return ERROR_INVALID_PARAMETER;
 243
 244     if (dwIndex == 0)
 245         index = 0;
 246
 247     if (dwIndex != index)
 248         return ERROR_INVALID_PARAMETER;
 249
 250     r = OpenSourceKey(szProductCodeOrPatchCode, &source,
 251                       dwOptions, dwContext, FALSE);
 252     if (r != ERROR_SUCCESS)
 253         return r;
 254
 255     r = OpenMediaSubkey(source, &media, FALSE);
 256     if (r != ERROR_SUCCESS)
 257     {
 258         RegCloseKey(source);
 259         return ERROR_NO_MORE_ITEMS;
 260     }
 261
 262     if (!pcchVolumeLabel && !pcchDiskPrompt)
 263     {
 264         r = RegEnumValueW(media, dwIndex, NULL, NULL, NULL,
 265                           &type, NULL, NULL);
 266         goto done;
 267     }
 268
 269     res = RegQueryInfoKeyW(media, NULL, NULL, NULL, NULL, NULL,
 270                            NULL, &numvals, &valuesz, &datasz, NULL, NULL);
 271     if (res != ERROR_SUCCESS)
 272     {
 273         r = ERROR_BAD_CONFIGURATION;
 274         goto done;
 275     }
 276
 277     value = msi_alloc(++valuesz * sizeof(WCHAR));
 278     data = msi_alloc(++datasz * sizeof(WCHAR));
 279     if (!value || !data)
 280     {
 281         r = ERROR_OUTOFMEMORY;
 282         goto done;
 283     }
 284
 285     r = RegEnumValueW(media, dwIndex, value, &valuesz,
 286                       NULL, &type, (LPBYTE)data, &datasz);
 287     if (r != ERROR_SUCCESS)
 288         goto done;
 289
 290     if (pdwDiskId)
 291         *pdwDiskId = atolW(value);
 292
 293     ptr2 = data;
 294     ptr = strchrW(data, ';');
 295     if (!ptr)
 296         ptr = data;
 297     else
 298         *ptr = '\0';
 299
 300     if (pcchVolumeLabel)
 301     {
 302         if (type == REG_DWORD)
 303         {
 304             sprintfW(convert, fmt, *data);
 305             size = lstrlenW(convert);
 306             ptr2 = convert;
 307         }
 308         else
 309             size = lstrlenW(data);
 310
 311         if (size >= *pcchVolumeLabel)
 312             r = ERROR_MORE_DATA;
 313         else if (szVolumeLabel)
 314             lstrcpyW(szVolumeLabel, ptr2);
 315
 316         *pcchVolumeLabel = size;
 317     }
 318
 319     if (pcchDiskPrompt)
 320     {
 321         if (!*ptr)
 322             ptr++;
 323
 324         if (type == REG_DWORD)
 325         {
 326             sprintfW(convert, fmt, *ptr);
 327             size = lstrlenW(convert);
 328             ptr = convert;
 329         }
 330         else
 331             size = lstrlenW(ptr);
 332
 333         size = lstrlenW(ptr);
 334         if (size >= *pcchDiskPrompt)
 335             r = ERROR_MORE_DATA;
 336         else if (szDiskPrompt)
 337             lstrcpyW(szDiskPrompt, ptr);
 338
 339         *pcchDiskPrompt = size;
 340     }
 341
 342     index++;
 343
 344 done:
 345     msi_free(value);
 346     msi_free(data);
 347     RegCloseKey(source);
 348
 349     return r;
 350 }
 351
 352 /******************************************************************
 353  *  MsiSourceListEnumSourcesA   (MSI.@)
 354  */
 355 UINT WINAPI MsiSourceListEnumSourcesA(LPCSTR szProductCodeOrPatch, LPCSTR szUserSid,
 356                                       MSIINSTALLCONTEXT dwContext,
 357                                       DWORD dwOptions, DWORD dwIndex,
 358                                       LPSTR szSource, LPDWORD pcchSource)
 359 {
 360     LPWSTR product = NULL;
 361     LPWSTR usersid = NULL;
 362     LPWSTR source = NULL;
 363     DWORD len = 0;
 364     UINT r = ERROR_INVALID_PARAMETER;
 365     static DWORD index = 0;
 366
 367     TRACE("(%s, %s, %d, %d, %d, %p, %p)\n", debugstr_a(szProductCodeOrPatch),
 368           debugstr_a(szUserSid), dwContext, dwOptions, dwIndex, szSource, pcchSource);
 369
 370     if (dwIndex == 0)
 371         index = 0;
 372
 373     if (szSource && !pcchSource)
 374         goto done;
 375
 376     if (dwIndex != index)
 377         goto done;
 378
 379     if (szProductCodeOrPatch) product = strdupAtoW(szProductCodeOrPatch);
 380     if (szUserSid) usersid = strdupAtoW(szUserSid);
 381
 382     r = MsiSourceListEnumSourcesW(product, usersid, dwContext, dwOptions,
 383                                   dwIndex, NULL, &len);
 384     if (r != ERROR_SUCCESS)
 385         goto done;
 386
 387     source = msi_alloc(++len * sizeof(WCHAR));
 388     if (!source)
 389     {
 390         r = ERROR_OUTOFMEMORY;
 391         goto done;
 392     }
 393
 394     *source = '\0';
 395     r = MsiSourceListEnumSourcesW(product, usersid, dwContext, dwOptions,
 396                                   dwIndex, source, &len);
 397     if (r != ERROR_SUCCESS)
 398         goto done;
 399
 400     len = WideCharToMultiByte(CP_ACP, 0, source, -1, NULL, 0, NULL, NULL);
 401     if (pcchSource && *pcchSource >= len)
 402         WideCharToMultiByte(CP_ACP, 0, source, -1, szSource, len, NULL, NULL);
 403     else if (szSource)
 404         r = ERROR_MORE_DATA;
 405
 406     if (pcchSource)
 407         *pcchSource = len - 1;
 408
 409 done:
 410     msi_free(product);
 411     msi_free(usersid);
 412     msi_free(source);
 413
 414     if (r == ERROR_SUCCESS)
 415     {
 416         if (szSource || !pcchSource) index++;
 417     }
 418     else if (dwIndex > index)
 419         index = 0;
 420
 421     return r;
 422 }
 423
 424 /******************************************************************
 425  *  MsiSourceListEnumSourcesW   (MSI.@)
 426  */
 427 UINT WINAPI MsiSourceListEnumSourcesW(LPCWSTR szProductCodeOrPatch, LPCWSTR szUserSid,
 428                                       MSIINSTALLCONTEXT dwContext,
 429                                       DWORD dwOptions, DWORD dwIndex,
 430                                       LPWSTR szSource, LPDWORD pcchSource)
 431 {
 432     WCHAR squished_pc[GUID_SIZE];
 433     WCHAR name[32];
 434     HKEY source = NULL;
 435     HKEY subkey = NULL;
 436     LONG res;
 437     UINT r = ERROR_INVALID_PARAMETER;
 438     static DWORD index = 0;
 439
 440     static const WCHAR format[] = {'%','d',0};
 441
 442     TRACE("(%s, %s, %d, %d, %d, %p, %p)\n", debugstr_w(szProductCodeOrPatch),
 443           debugstr_w(szUserSid), dwContext, dwOptions, dwIndex, szSource, pcchSource);
 444
 445     if (dwIndex == 0)
 446         index = 0;
 447
 448     if (!szProductCodeOrPatch || !squash_guid(szProductCodeOrPatch, squished_pc))
 449         goto done;
 450
 451     if (szSource && !pcchSource)
 452         goto done;
 453
 454     if (!(dwOptions & (MSISOURCETYPE_NETWORK | MSISOURCETYPE_URL)))
 455         goto done;
 456
 457     if ((dwOptions & MSISOURCETYPE_NETWORK) && (dwOptions & MSISOURCETYPE_URL))
 458         goto done;
 459
 460     if (dwContext == MSIINSTALLCONTEXT_MACHINE && szUserSid)
 461         goto done;
 462
 463     if (dwIndex != index)
 464         goto done;
 465
 466     r = OpenSourceKey(szProductCodeOrPatch, &source,
 467                       dwOptions, dwContext, FALSE);
 468     if (r != ERROR_SUCCESS)
 469         goto done;
 470
 471     if (dwOptions & MSISOURCETYPE_NETWORK)
 472         r = OpenNetworkSubkey(source, &subkey, FALSE);
 473     else if (dwOptions & MSISOURCETYPE_URL)
 474         r = OpenURLSubkey(source, &subkey, FALSE);
 475
 476     if (r != ERROR_SUCCESS)
 477     {
 478         r = ERROR_NO_MORE_ITEMS;
 479         goto done;
 480     }
 481
 482     sprintfW(name, format, dwIndex + 1);
 483
 484     res = RegQueryValueExW(subkey, name, 0, 0, (LPBYTE)szSource, pcchSource);
 485     if (res != ERROR_SUCCESS && res != ERROR_MORE_DATA)
 486         r = ERROR_NO_MORE_ITEMS;
 487
 488 done:
 489     RegCloseKey(subkey);
 490     RegCloseKey(source);
 491
 492     if (r == ERROR_SUCCESS)
 493     {
 494         if (szSource || !pcchSource) index++;
 495     }
 496     else if (dwIndex > index)
 497         index = 0;
 498
 499     return r;
 500 }
 501
 502 /******************************************************************
 503  *  MsiSourceListGetInfoA   (MSI.@)
 504  */
 505 UINT WINAPI MsiSourceListGetInfoA( LPCSTR szProduct, LPCSTR szUserSid,
 506                                    MSIINSTALLCONTEXT dwContext, DWORD dwOptions,
 507                                    LPCSTR szProperty, LPSTR szValue,
 508                                    LPDWORD pcchValue)
 509 {
 510     UINT ret;
 511     LPWSTR product = NULL;
 512     LPWSTR usersid = NULL;
 513     LPWSTR property = NULL;
 514     LPWSTR value = NULL;
 515     DWORD len = 0;
 516
 517     if (szValue && !pcchValue)
 518         return ERROR_INVALID_PARAMETER;
 519
 520     if (szProduct) product = strdupAtoW(szProduct);
 521     if (szUserSid) usersid = strdupAtoW(szUserSid);
 522     if (szProperty) property = strdupAtoW(szProperty);
 523
 524     ret = MsiSourceListGetInfoW(product, usersid, dwContext, dwOptions,
 525                                 property, NULL, &len);
 526     if (ret != ERROR_SUCCESS)
 527         goto done;
 528
 529     value = msi_alloc(++len * sizeof(WCHAR));
 530     if (!value)
 531         return ERROR_OUTOFMEMORY;
 532
 533     *value = '\0';
 534     ret = MsiSourceListGetInfoW(product, usersid, dwContext, dwOptions,
 535                                 property, value, &len);
 536     if (ret != ERROR_SUCCESS)
 537         goto done;
 538
 539     len = WideCharToMultiByte(CP_ACP, 0, value, -1, NULL, 0, NULL, NULL);
 540     if (*pcchValue >= len)
 541         WideCharToMultiByte(CP_ACP, 0, value, -1, szValue, len, NULL, NULL);
 542     else if (szValue)
 543         ret = ERROR_MORE_DATA;
 544
 545     *pcchValue = len - 1;
 546
 547 done:
 548     msi_free(product);
 549     msi_free(usersid);
 550     msi_free(property);
 551     msi_free(value);
 552     return ret;
 553 }
 554
 555 /******************************************************************
 556  *  MsiSourceListGetInfoW   (MSI.@)
 557  */
 558 UINT WINAPI MsiSourceListGetInfoW( LPCWSTR szProduct, LPCWSTR szUserSid,
 559                                    MSIINSTALLCONTEXT dwContext, DWORD dwOptions,
 560                                    LPCWSTR szProperty, LPWSTR szValue,
 561                                    LPDWORD pcchValue)
 562 {
 563     WCHAR squished_pc[GUID_SIZE];
 564     HKEY sourcekey, media;
 565     LPWSTR source, ptr;
 566     DWORD size;
 567     UINT rc;
 568
 569     static const WCHAR mediapack[] = {
 570         'M','e','d','i','a','P','a','c','k','a','g','e',0};
 571
 572     TRACE("%s %s\n", debugstr_w(szProduct), debugstr_w(szProperty));
 573
 574     if (!szProduct || !squash_guid(szProduct, squished_pc))
 575         return ERROR_INVALID_PARAMETER;
 576
 577     if (szValue && !pcchValue)
 578         return ERROR_INVALID_PARAMETER;
 579
 580     if (dwContext != MSIINSTALLCONTEXT_USERMANAGED &&
 581         dwContext != MSIINSTALLCONTEXT_USERUNMANAGED &&
 582         dwContext != MSIINSTALLCONTEXT_MACHINE)
 583         return ERROR_INVALID_PARAMETER;
 584
 585     if (!szProperty)
 586         return ERROR_INVALID_PARAMETER;
 587
 588     if (szUserSid)
 589         FIXME("Unhandled UserSid %s\n",debugstr_w(szUserSid));
 590
 591     if (dwContext != MSIINSTALLCONTEXT_USERUNMANAGED)
 592         FIXME("Unhandled context %d\n", dwContext);
 593
 594     rc = OpenSourceKey(szProduct, &sourcekey, dwOptions, dwContext, FALSE);
 595     if (rc != ERROR_SUCCESS)
 596         return rc;
 597
 598     if (!lstrcmpW(szProperty, INSTALLPROPERTY_MEDIAPACKAGEPATHW) ||
 599         !lstrcmpW(szProperty, INSTALLPROPERTY_DISKPROMPTW))
 600     {
 601         rc = OpenMediaSubkey(sourcekey, &media, FALSE);
 602         if (rc != ERROR_SUCCESS)
 603         {
 604             RegCloseKey(sourcekey);
 605             return ERROR_SUCCESS;
 606         }
 607
 608         if (!lstrcmpW(szProperty, INSTALLPROPERTY_MEDIAPACKAGEPATHW))
 609             szProperty = mediapack;
 610
 611         RegQueryValueExW(media, szProperty, 0, 0, (LPBYTE)szValue, pcchValue);
 612         RegCloseKey(media);
 613     }
 614     else if (!lstrcmpW(szProperty, INSTALLPROPERTY_LASTUSEDSOURCEW) ||
 615              !lstrcmpW(szProperty, INSTALLPROPERTY_LASTUSEDTYPEW))
 616     {
 617         rc = RegQueryValueExW(sourcekey, INSTALLPROPERTY_LASTUSEDSOURCEW,
 618                               0, 0, NULL, &size);
 619         if (rc != ERROR_SUCCESS)
 620         {
 621             RegCloseKey(sourcekey);
 622             return ERROR_SUCCESS;
 623         }
 624
 625         source = msi_alloc(size);
 626         RegQueryValueExW(sourcekey, INSTALLPROPERTY_LASTUSEDSOURCEW,
 627                          0, 0, (LPBYTE)source, &size);
 628
 629         if (!*source)
 630         {
 631             msi_free(source);
 632             RegCloseKey(sourcekey);
 633             return ERROR_SUCCESS;
 634         }
 635
 636         if (!lstrcmpW(szProperty, INSTALLPROPERTY_LASTUSEDTYPEW))
 637         {
 638             if (*source != 'n' && *source != 'u' && *source != 'm')
 639             {
 640                 msi_free(source);
 641                 RegCloseKey(sourcekey);
 642                 return ERROR_SUCCESS;
 643             }
 644
 645             ptr = source;
 646             source[1] = '\0';
 647         }
 648         else
 649         {
 650             ptr = strrchrW(source, ';');
 651             if (!ptr)
 652                 ptr = source;
 653             else
 654                 ptr++;
 655         }
 656
 657         if (szValue)
 658         {
 659             if (strlenW(ptr) < *pcchValue)
 660                 lstrcpyW(szValue, ptr);
 661             else
 662                 rc = ERROR_MORE_DATA;
 663         }
 664
 665         *pcchValue = lstrlenW(ptr);
 666         msi_free(source);
 667     }
 668     else if (strcmpW(INSTALLPROPERTY_PACKAGENAMEW, szProperty)==0)
 669     {
 670         *pcchValue = *pcchValue * sizeof(WCHAR);
 671         rc = RegQueryValueExW(sourcekey, INSTALLPROPERTY_PACKAGENAMEW, 0, 0,
 672                               (LPBYTE)szValue, pcchValue);
 673         if (rc != ERROR_SUCCESS && rc != ERROR_MORE_DATA)
 674         {
 675             *pcchValue = 0;
 676             rc = ERROR_SUCCESS;
 677         }
 678         else
 679         {
 680             if (*pcchValue)
 681                 *pcchValue = (*pcchValue - 1) / sizeof(WCHAR);
 682             if (szValue)
 683                 szValue[*pcchValue] = '\0';
 684         }
 685     }
 686     else
 687     {
 688         FIXME("Unknown property %s\n",debugstr_w(szProperty));
 689         rc = ERROR_UNKNOWN_PROPERTY;
 690     }
 691
 692     RegCloseKey(sourcekey);
 693     return rc;
 694 }
 695
 696 /******************************************************************
 697  *  MsiSourceListSetInfoA   (MSI.@)
 698  */
 699 UINT WINAPI MsiSourceListSetInfoA(LPCSTR szProduct, LPCSTR szUserSid,
 700                                   MSIINSTALLCONTEXT dwContext, DWORD dwOptions,
 701                                   LPCSTR szProperty, LPCSTR szValue)
 702 {
 703     UINT ret;
 704     LPWSTR product = NULL;
 705     LPWSTR usersid = NULL;
 706     LPWSTR property = NULL;
 707     LPWSTR value = NULL;
 708
 709     if (szProduct) product = strdupAtoW(szProduct);
 710     if (szUserSid) usersid = strdupAtoW(szUserSid);
 711     if (szProperty) property = strdupAtoW(szProperty);
 712     if (szValue) value = strdupAtoW(szValue);
 713
 714     ret = MsiSourceListSetInfoW(product, usersid, dwContext, dwOptions,
 715                                 property, value);
 716
 717     msi_free(product);
 718     msi_free(usersid);
 719     msi_free(property);
 720     msi_free(value);
 721
 722     return ret;
 723 }
 724
 725 UINT msi_set_last_used_source(LPCWSTR product, LPCWSTR usersid,
 726                               MSIINSTALLCONTEXT context, DWORD options,
 727                               LPCWSTR value)
 728 {
 729     HKEY source;
 730     LPWSTR buffer;
 731     WCHAR typechar;
 732     DWORD size;
 733     UINT r;
 734     int index = 1;
 735
 736     static const WCHAR format[] = {'%','c',';','%','i',';','%','s',0};
 737
 738     if (options & MSISOURCETYPE_NETWORK)
 739         typechar = 'n';
 740     else if (options & MSISOURCETYPE_URL)
 741         typechar = 'u';
 742     else if (options & MSISOURCETYPE_MEDIA)
 743         typechar = 'm';
 744     else
 745         return ERROR_INVALID_PARAMETER;
 746
 747     if (!(options & MSISOURCETYPE_MEDIA))
 748     {
 749         r = MsiSourceListAddSourceExW(product, usersid, context,
 750                                       options, value, 0);
 751         if (r != ERROR_SUCCESS)
 752             return r;
 753
 754         index = 0;
 755         while ((r = MsiSourceListEnumSourcesW(product, usersid, context, options,
 756                                               index, NULL, NULL)) == ERROR_SUCCESS)
 757             index++;
 758
 759         if (r != ERROR_NO_MORE_ITEMS)
 760             return r;
 761     }
 762
 763     size = (lstrlenW(format) + lstrlenW(value) + 7) * sizeof(WCHAR);
 764     buffer = msi_alloc(size);
 765     if (!buffer)
 766         return ERROR_OUTOFMEMORY;
 767
 768     r = OpenSourceKey(product, &source, MSICODE_PRODUCT, context, FALSE);
 769     if (r != ERROR_SUCCESS)
 770         return r;
 771
 772     sprintfW(buffer, format, typechar, index, value);
 773
 774     size = (lstrlenW(buffer) + 1) * sizeof(WCHAR);
 775     r = RegSetValueExW(source, INSTALLPROPERTY_LASTUSEDSOURCEW, 0,
 776                        REG_SZ, (LPBYTE)buffer, size);
 777     msi_free(buffer);
 778
 779     RegCloseKey(source);
 780     return r;
 781 }
 782
 783 /******************************************************************
 784  *  MsiSourceListSetInfoW   (MSI.@)
 785  */
 786 UINT WINAPI MsiSourceListSetInfoW( LPCWSTR szProduct, LPCWSTR szUserSid,
 787                                    MSIINSTALLCONTEXT dwContext, DWORD dwOptions,
 788                                    LPCWSTR szProperty, LPCWSTR szValue)
 789 {
 790     WCHAR squished_pc[GUID_SIZE];
 791     HKEY sourcekey, media;
 792     LPCWSTR property;
 793     UINT rc;
 794
 795     static const WCHAR media_package[] = {
 796         'M','e','d','i','a','P','a','c','k','a','g','e',0
 797     };
 798
 799     TRACE("%s %s %x %x %s %s\n", debugstr_w(szProduct), debugstr_w(szUserSid),
 800             dwContext, dwOptions, debugstr_w(szProperty), debugstr_w(szValue));
 801
 802     if (!szProduct || !squash_guid(szProduct, squished_pc))
 803         return ERROR_INVALID_PARAMETER;
 804
 805     if (!szProperty)
 806         return ERROR_INVALID_PARAMETER;
 807
 808     if (!szValue)
 809         return ERROR_UNKNOWN_PROPERTY;
 810
 811     if (dwContext == MSIINSTALLCONTEXT_MACHINE && szUserSid)
 812         return ERROR_INVALID_PARAMETER;
 813
 814     if (dwOptions & MSICODE_PATCH)
 815     {
 816         FIXME("Unhandled options MSICODE_PATCH\n");
 817         return ERROR_UNKNOWN_PATCH;
 818     }
 819
 820     property = szProperty;
 821     if (!lstrcmpW(szProperty, INSTALLPROPERTY_MEDIAPACKAGEPATHW))
 822         property = media_package;
 823
 824     rc = OpenSourceKey(szProduct, &sourcekey, MSICODE_PRODUCT, dwContext, FALSE);
 825     if (rc != ERROR_SUCCESS)
 826         return rc;
 827
 828     if (lstrcmpW(szProperty, INSTALLPROPERTY_LASTUSEDSOURCEW) &&
 829         dwOptions & (MSISOURCETYPE_NETWORK | MSISOURCETYPE_URL))
 830     {
 831         RegCloseKey(sourcekey);
 832         return ERROR_INVALID_PARAMETER;
 833     }
 834
 835     if (!lstrcmpW(szProperty, INSTALLPROPERTY_MEDIAPACKAGEPATHW) ||
 836         !lstrcmpW(szProperty, INSTALLPROPERTY_DISKPROMPTW))
 837     {
 838         rc = OpenMediaSubkey(sourcekey, &media, TRUE);
 839         if (rc == ERROR_SUCCESS)
 840         {
 841             rc = msi_reg_set_val_str(media, property, szValue);
 842             RegCloseKey(media);
 843         }
 844     }
 845     else if (strcmpW(INSTALLPROPERTY_PACKAGENAMEW, szProperty)==0)
 846     {
 847         DWORD size = (lstrlenW(szValue) + 1) * sizeof(WCHAR);
 848         rc = RegSetValueExW(sourcekey, INSTALLPROPERTY_PACKAGENAMEW, 0,
 849                 REG_SZ, (const BYTE *)szValue, size);
 850         if (rc != ERROR_SUCCESS)
 851             rc = ERROR_UNKNOWN_PROPERTY;
 852     }
 853     else if (!lstrcmpW(szProperty, INSTALLPROPERTY_LASTUSEDSOURCEW))
 854     {
 855         if (!(dwOptions & (MSISOURCETYPE_NETWORK | MSISOURCETYPE_URL)))
 856             rc = ERROR_INVALID_PARAMETER;
 857         else
 858             rc = msi_set_last_used_source(szProduct, szUserSid, dwContext,
 859                                           dwOptions, szValue);
 860     }
 861     else
 862         rc = ERROR_UNKNOWN_PROPERTY;
 863
 864     RegCloseKey(sourcekey);
 865     return rc;
 866 }
 867
 868 /******************************************************************
 869  *  MsiSourceListAddSourceW (MSI.@)
 870  */
 871 UINT WINAPI MsiSourceListAddSourceW( LPCWSTR szProduct, LPCWSTR szUserName,
 872         DWORD dwReserved, LPCWSTR szSource)
 873 {
 874     WCHAR squished_pc[GUID_SIZE];
 875     INT ret;
 876     LPWSTR sidstr = NULL;
 877     DWORD sidsize = 0;
 878     DWORD domsize = 0;
 879     DWORD context;
 880     HKEY hkey = 0;
 881     UINT r;
 882
 883     TRACE("%s %s %s\n", debugstr_w(szProduct), debugstr_w(szUserName), debugstr_w(szSource));
 884
 885     if (!szSource || !*szSource)
 886         return ERROR_INVALID_PARAMETER;
 887
 888     if (dwReserved != 0)
 889         return ERROR_INVALID_PARAMETER;
 890
 891     if (!szProduct || !squash_guid(szProduct, squished_pc))
 892         return ERROR_INVALID_PARAMETER;
 893
 894     if (!szUserName || !*szUserName)
 895         context = MSIINSTALLCONTEXT_MACHINE;
 896     else
 897     {
 898         if (LookupAccountNameW(NULL, szUserName, NULL, &sidsize, NULL, &domsize, NULL))
 899         {
 900             PSID psid = msi_alloc(sidsize);
 901
 902             if (LookupAccountNameW(NULL, szUserName, psid, &sidsize, NULL, &domsize, NULL))
 903                 ConvertSidToStringSidW(psid, &sidstr);
 904
 905             msi_free(psid);
 906         }
 907
 908         r = MSIREG_OpenProductKey(szProduct, NULL,
 909                                   MSIINSTALLCONTEXT_USERMANAGED, &hkey, FALSE);
 910         if (r == ERROR_SUCCESS)
 911             context = MSIINSTALLCONTEXT_USERMANAGED;
 912         else
 913         {
 914             r = MSIREG_OpenProductKey(szProduct, NULL,
 915                                       MSIINSTALLCONTEXT_USERUNMANAGED,
 916                                       &hkey, FALSE);
 917             if (r != ERROR_SUCCESS)
 918                 return ERROR_UNKNOWN_PRODUCT;
 919
 920             context = MSIINSTALLCONTEXT_USERUNMANAGED;
 921         }
 922
 923         RegCloseKey(hkey);
 924     }
 925
 926     ret = MsiSourceListAddSourceExW(szProduct, sidstr,
 927         context, MSISOURCETYPE_NETWORK, szSource, 0);
 928
 929     if (sidstr)
 930         LocalFree(sidstr);
 931
 932     return ret;
 933 }
 934
 935 /******************************************************************
 936  *  MsiSourceListAddSourceA (MSI.@)
 937  */
 938 UINT WINAPI MsiSourceListAddSourceA( LPCSTR szProduct, LPCSTR szUserName,
 939         DWORD dwReserved, LPCSTR szSource)
 940 {
 941     INT ret;
 942     LPWSTR szwproduct;
 943     LPWSTR szwusername;
 944     LPWSTR szwsource;
 945
 946     szwproduct = strdupAtoW( szProduct );
 947     szwusername = strdupAtoW( szUserName );
 948     szwsource = strdupAtoW( szSource );
 949
 950     ret = MsiSourceListAddSourceW(szwproduct, szwusername, dwReserved, szwsource);
 951
 952     msi_free(szwproduct);
 953     msi_free(szwusername);
 954     msi_free(szwsource);
 955
 956     return ret;
 957 }
 958
 959 /******************************************************************
 960  *  MsiSourceListAddSourceExA (MSI.@)
 961  */
 962 UINT WINAPI MsiSourceListAddSourceExA(LPCSTR szProduct, LPCSTR szUserSid,
 963         MSIINSTALLCONTEXT dwContext, DWORD dwOptions, LPCSTR szSource, DWORD dwIndex)
 964 {
 965     UINT ret;
 966     LPWSTR product, usersid, source;
 967
 968     product = strdupAtoW(szProduct);
 969     usersid = strdupAtoW(szUserSid);
 970     source = strdupAtoW(szSource);
 971
 972     ret = MsiSourceListAddSourceExW(product, usersid, dwContext,
 973                                     dwOptions, source, dwIndex);
 974
 975     msi_free(product);
 976     msi_free(usersid);
 977     msi_free(source);
 978
 979     return ret;
 980 }
 981
 982 static void free_source_list(struct list *sourcelist)
 983 {
 984     while (!list_empty(sourcelist))
 985     {
 986         media_info *info = LIST_ENTRY(list_head(sourcelist), media_info, entry);
 987         list_remove(&info->entry);
 988         msi_free(info->path);
 989         msi_free(info);
 990     }
 991 }
 992
 993 static void add_source_to_list(struct list *sourcelist, media_info *info,
 994                                DWORD *index)
 995 {
 996     media_info *iter;
 997     BOOL found = FALSE;
 998     static const WCHAR fmt[] = {'%','i',0};
 999
1000     if (index) *index = 0;
1001
1002     if (list_empty(sourcelist))
1003     {
1004         list_add_head(sourcelist, &info->entry);
1005         return;
1006     }
1007
1008     LIST_FOR_EACH_ENTRY(iter, sourcelist, media_info, entry)
1009     {
1010         if (!found && info->index < iter->index)
1011         {
1012             found = TRUE;
1013             list_add_before(&iter->entry, &info->entry);
1014         }
1015
1016         /* update the rest of the list */
1017         if (found)
1018             sprintfW(iter->szIndex, fmt, ++iter->index);
1019         else if (index)
1020             (*index)++;
1021     }
1022
1023     if (!found)
1024         list_add_after(&iter->entry, &info->entry);
1025 }
1026
1027 static UINT fill_source_list(struct list *sourcelist, HKEY sourcekey, DWORD *count)
1028 {
1029     UINT r = ERROR_SUCCESS;
1030     DWORD index = 0;
1031     WCHAR name[10];
1032     DWORD size, val_size;
1033     media_info *entry;
1034
1035     *count = 0;
1036
1037     while (r == ERROR_SUCCESS)
1038     {
1039         size = sizeof(name) / sizeof(name[0]);
1040         r = RegEnumValueW(sourcekey, index, name, &size, NULL, NULL, NULL, &val_size);
1041         if (r != ERROR_SUCCESS)
1042             return r;
1043
1044         entry = msi_alloc(sizeof(media_info));
1045         if (!entry)
1046             goto error;
1047
1048         entry->path = msi_alloc(val_size);
1049         if (!entry->path)
1050         {
1051             msi_free(entry);
1052             goto error;
1053         }
1054
1055         lstrcpyW(entry->szIndex, name);
1056         entry->index = atoiW(name);
1057
1058         size++;
1059         r = RegEnumValueW(sourcekey, index, name, &size, NULL,
1060                           NULL, (LPBYTE)entry->path, &val_size);
1061         if (r != ERROR_SUCCESS)
1062         {
1063             msi_free(entry->path);
1064             msi_free(entry);
1065             goto error;
1066         }
1067
1068         index = ++(*count);
1069         add_source_to_list(sourcelist, entry, NULL);
1070     }
1071
1072 error:
1073     *count = -1;
1074     free_source_list(sourcelist);
1075     return ERROR_OUTOFMEMORY;
1076 }
1077
1078 /******************************************************************
1079  *  MsiSourceListAddSourceExW (MSI.@)
1080  */
1081 UINT WINAPI MsiSourceListAddSourceExW( LPCWSTR szProduct, LPCWSTR szUserSid,
1082         MSIINSTALLCONTEXT dwContext, DWORD dwOptions, LPCWSTR szSource,
1083         DWORD dwIndex)
1084 {
1085     HKEY sourcekey;
1086     HKEY typekey;
1087     UINT rc;
1088     struct list sourcelist;
1089     media_info *info;
1090     WCHAR squished_pc[GUID_SIZE];
1091     WCHAR name[10];
1092     LPWSTR source;
1093     LPCWSTR postfix;
1094     DWORD size, count;
1095     DWORD index;
1096
1097     static const WCHAR fmt[] = {'%','i',0};
1098
1099     TRACE("%s %s %x %x %s %i\n", debugstr_w(szProduct), debugstr_w(szUserSid),
1100           dwContext, dwOptions, debugstr_w(szSource), dwIndex);
1101
1102     if (!szProduct || !squash_guid(szProduct, squished_pc))
1103         return ERROR_INVALID_PARAMETER;
1104
1105     if (!szSource || !*szSource)
1106         return ERROR_INVALID_PARAMETER;
1107
1108     if (!(dwOptions & (MSISOURCETYPE_NETWORK | MSISOURCETYPE_URL)))
1109         return ERROR_INVALID_PARAMETER;
1110
1111     if (dwOptions & MSICODE_PATCH)
1112     {
1113         FIXME("Unhandled options MSICODE_PATCH\n");
1114         return ERROR_FUNCTION_FAILED;
1115     }
1116
1117     if (szUserSid && (dwContext & MSIINSTALLCONTEXT_MACHINE))
1118         return ERROR_INVALID_PARAMETER;
1119
1120     rc = OpenSourceKey(szProduct, &sourcekey, MSICODE_PRODUCT, dwContext, FALSE);
1121     if (rc != ERROR_SUCCESS)
1122         return rc;
1123
1124     if (dwOptions & MSISOURCETYPE_NETWORK)
1125         rc = OpenNetworkSubkey(sourcekey, &typekey, TRUE);
1126     else if (dwOptions & MSISOURCETYPE_URL)
1127         rc = OpenURLSubkey(sourcekey, &typekey, TRUE);
1128     else if (dwOptions & MSISOURCETYPE_MEDIA)
1129         rc = OpenMediaSubkey(sourcekey, &typekey, TRUE);
1130     else
1131     {
1132         ERR("unknown media type: %08x\n", dwOptions);
1133         RegCloseKey(sourcekey);
1134         return ERROR_FUNCTION_FAILED;
1135     }
1136
1137     postfix = (dwOptions & MSISOURCETYPE_NETWORK) ? szBackSlash : szForwardSlash;
1138     if (szSource[lstrlenW(szSource) - 1] == *postfix)
1139         source = strdupW(szSource);
1140     else
1141     {
1142         size = lstrlenW(szSource) + 2;
1143         source = msi_alloc(size * sizeof(WCHAR));
1144         lstrcpyW(source, szSource);
1145         lstrcatW(source, postfix);
1146     }
1147
1148     list_init(&sourcelist);
1149     rc = fill_source_list(&sourcelist, typekey, &count);
1150     if (rc != ERROR_NO_MORE_ITEMS)
1151         return rc;
1152
1153     size = (lstrlenW(source) + 1) * sizeof(WCHAR);
1154
1155     if (count == 0)
1156     {
1157         rc = RegSetValueExW(typekey, szOne, 0, REG_EXPAND_SZ, (LPBYTE)source, size);
1158         goto done;
1159     }
1160     else if (dwIndex > count || dwIndex == 0)
1161     {
1162         sprintfW(name, fmt, count + 1);
1163         rc = RegSetValueExW(typekey, name, 0, REG_EXPAND_SZ, (LPBYTE)source, size);
1164         goto done;
1165     }
1166     else
1167     {
1168         sprintfW(name, fmt, dwIndex);
1169         info = msi_alloc(sizeof(media_info));
1170         if (!info)
1171         {
1172             rc = ERROR_OUTOFMEMORY;
1173             goto done;
1174         }
1175
1176         info->path = strdupW(source);
1177         lstrcpyW(info->szIndex, name);
1178         info->index = dwIndex;
1179         add_source_to_list(&sourcelist, info, &index);
1180
1181         LIST_FOR_EACH_ENTRY(info, &sourcelist, media_info, entry)
1182         {
1183             if (info->index < index)
1184                 continue;
1185
1186             size = (lstrlenW(info->path) + 1) * sizeof(WCHAR);
1187             rc = RegSetValueExW(typekey, info->szIndex, 0,
1188                                 REG_EXPAND_SZ, (LPBYTE)info->path, size);
1189             if (rc != ERROR_SUCCESS)
1190                 goto done;
1191         }
1192     }
1193
1194 done:
1195     free_source_list(&sourcelist);
1196     msi_free(source);
1197     RegCloseKey(typekey);
1198     RegCloseKey(sourcekey);
1199     return rc;
1200 }
1201
1202 /******************************************************************
1203  *  MsiSourceListAddMediaDiskA (MSI.@)
1204  */
1205 UINT WINAPI MsiSourceListAddMediaDiskA(LPCSTR szProduct, LPCSTR szUserSid,
1206         MSIINSTALLCONTEXT dwContext, DWORD dwOptions, DWORD dwDiskId,
1207         LPCSTR szVolumeLabel, LPCSTR szDiskPrompt)
1208 {
1209     UINT r;
1210     LPWSTR product = NULL;
1211     LPWSTR usersid = NULL;
1212     LPWSTR volume = NULL;
1213     LPWSTR prompt = NULL;
1214
1215     if (szProduct) product = strdupAtoW(szProduct);
1216     if (szUserSid) usersid = strdupAtoW(szUserSid);
1217     if (szVolumeLabel) volume = strdupAtoW(szVolumeLabel);
1218     if (szDiskPrompt) prompt = strdupAtoW(szDiskPrompt);
1219
1220     r = MsiSourceListAddMediaDiskW(product, usersid, dwContext, dwOptions,
1221                                      dwDiskId, volume, prompt);
1222
1223     msi_free(product);
1224     msi_free(usersid);
1225     msi_free(volume);
1226     msi_free(prompt);
1227
1228     return r;
1229 }
1230
1231 /******************************************************************
1232  *  MsiSourceListAddMediaDiskW (MSI.@)
1233  */
1234 UINT WINAPI MsiSourceListAddMediaDiskW(LPCWSTR szProduct, LPCWSTR szUserSid,
1235         MSIINSTALLCONTEXT dwContext, DWORD dwOptions, DWORD dwDiskId,
1236         LPCWSTR szVolumeLabel, LPCWSTR szDiskPrompt)
1237 {
1238     HKEY sourcekey;
1239     HKEY mediakey;
1240     UINT rc;
1241     WCHAR szIndex[10];
1242     WCHAR squished_pc[GUID_SIZE];
1243     LPWSTR buffer;
1244     DWORD size;
1245
1246     static const WCHAR fmt[] = {'%','i',0};
1247
1248     TRACE("%s %s %x %x %i %s %s\n", debugstr_w(szProduct),
1249             debugstr_w(szUserSid), dwContext, dwOptions, dwDiskId,
1250             debugstr_w(szVolumeLabel), debugstr_w(szDiskPrompt));
1251
1252     if (!szProduct || !squash_guid(szProduct, squished_pc))
1253         return ERROR_INVALID_PARAMETER;
1254
1255     if (dwOptions != MSICODE_PRODUCT && dwOptions != MSICODE_PATCH)
1256         return ERROR_INVALID_PARAMETER;
1257
1258     if ((szVolumeLabel && !*szVolumeLabel) || (szDiskPrompt && !*szDiskPrompt))
1259         return ERROR_INVALID_PARAMETER;
1260
1261     if ((dwContext & MSIINSTALLCONTEXT_MACHINE) && szUserSid)
1262         return ERROR_INVALID_PARAMETER;
1263
1264     if (dwOptions & MSICODE_PATCH)
1265     {
1266         FIXME("Unhandled options MSICODE_PATCH\n");
1267         return ERROR_FUNCTION_FAILED;
1268     }
1269
1270     rc = OpenSourceKey(szProduct, &sourcekey, MSICODE_PRODUCT, dwContext, FALSE);
1271     if (rc != ERROR_SUCCESS)
1272         return rc;
1273
1274     OpenMediaSubkey(sourcekey, &mediakey, TRUE);
1275
1276     sprintfW(szIndex, fmt, dwDiskId);
1277
1278     size = 2;
1279     if (szVolumeLabel) size += lstrlenW(szVolumeLabel);
1280     if (szDiskPrompt) size += lstrlenW(szDiskPrompt);
1281
1282     size *= sizeof(WCHAR);
1283     buffer = msi_alloc(size);
1284     *buffer = '\0';
1285
1286     if (szVolumeLabel) lstrcpyW(buffer, szVolumeLabel);
1287     lstrcatW(buffer, szSemiColon);
1288     if (szDiskPrompt) lstrcatW(buffer, szDiskPrompt);
1289
1290     RegSetValueExW(mediakey, szIndex, 0, REG_SZ, (LPBYTE)buffer, size);
1291     msi_free(buffer);
1292
1293     RegCloseKey(sourcekey);
1294     RegCloseKey(mediakey);
1295
1296     return ERROR_SUCCESS;
1297 }
1298
1299 /******************************************************************
1300  *  MsiSourceListClearAllA (MSI.@)
1301  */
1302 UINT WINAPI MsiSourceListClearAllA( LPCSTR szProduct, LPCSTR szUserName, DWORD dwReserved )
1303 {
1304     FIXME("(%s %s %d)\n", debugstr_a(szProduct), debugstr_a(szUserName), dwReserved);
1305     return ERROR_SUCCESS;
1306 }
1307
1308 /******************************************************************
1309  *  MsiSourceListClearAllW (MSI.@)
1310  */
1311 UINT WINAPI MsiSourceListClearAllW( LPCWSTR szProduct, LPCWSTR szUserName, DWORD dwReserved )
1312 {
1313     FIXME("(%s %s %d)\n", debugstr_w(szProduct), debugstr_w(szUserName), dwReserved);
1314     return ERROR_SUCCESS;
1315 }
1316
1317 /******************************************************************
1318  *  MsiSourceListClearAllExA (MSI.@)
1319  */
1320 UINT WINAPI MsiSourceListClearAllExA( LPCSTR szProduct, LPCSTR szUserSid,
1321     MSIINSTALLCONTEXT dwContext, DWORD dwOptions )
1322 {
1323     FIXME("(%s %s %d %08x)\n", debugstr_a(szProduct), debugstr_a(szUserSid),
1324           dwContext, dwOptions);
1325     return ERROR_SUCCESS;
1326 }
1327
1328 /******************************************************************
1329  *  MsiSourceListClearAllExW (MSI.@)
1330  */
1331 UINT WINAPI MsiSourceListClearAllExW( LPCWSTR szProduct, LPCWSTR szUserSid,
1332     MSIINSTALLCONTEXT dwContext, DWORD dwOptions )
1333 {
1334     FIXME("(%s %s %d %08x)\n", debugstr_w(szProduct), debugstr_w(szUserSid),
1335           dwContext, dwOptions);
1336     return ERROR_SUCCESS;
1337 }
1338
1339 /******************************************************************
1340  *  MsiSourceListClearSourceA (MSI.@)
1341  */
1342 UINT WINAPI MsiSourceListClearSourceA(LPCSTR szProductCodeOrPatchCode, LPCSTR szUserSid,
1343                                       MSIINSTALLCONTEXT dwContext, DWORD dwOptions,
1344                                       LPCSTR szSource)
1345 {
1346     FIXME("(%s %s %x %x %s)\n", debugstr_a(szProductCodeOrPatchCode), debugstr_a(szUserSid),
1347           dwContext, dwOptions, debugstr_a(szSource));
1348     return ERROR_SUCCESS;
1349 }
1350
1351 /******************************************************************
1352  *  MsiSourceListClearSourceW (MSI.@)
1353  */
1354 UINT WINAPI MsiSourceListClearSourceW(LPCWSTR szProductCodeOrPatchCode, LPCWSTR szUserSid,
1355                                       MSIINSTALLCONTEXT dwContext, DWORD dwOptions,
1356                                       LPCWSTR szSource)
1357 {
1358     FIXME("(%s %s %x %x %s)\n", debugstr_w(szProductCodeOrPatchCode), debugstr_w(szUserSid),
1359           dwContext, dwOptions, debugstr_w(szSource));
1360     return ERROR_SUCCESS;
1361 }