2 * Implementation of the Microsoft Installer (msi.dll)
4 * Copyright 2005 Mike McCormack for CodeWeavers
5 * Copyright 2005 Aric Stewart for CodeWeavers
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25 #define NONAMELESSUNION
32 #include "wine/debug.h"
36 #include "wine/unicode.h"
40 WINE_DEFAULT_DEBUG_CHANNEL(msi
);
44 * This module will be all the helper functions for registry access by the
47 static const WCHAR szUserFeatures_fmt
[] = {
48 'S','o','f','t','w','a','r','e','\\',
49 'M','i','c','r','o','s','o','f','t','\\',
50 'I','n','s','t','a','l','l','e','r','\\',
51 'F','e','a','t','u','r','e','s','\\',
54 static const WCHAR szInstaller_Features
[] = {
55 'S','o','f','t','w','a','r','e','\\',
56 'M','i','c','r','o','s','o','f','t','\\',
57 'W','i','n','d','o','w','s','\\',
58 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
59 'I','n','s','t','a','l','l','e','r','\\',
60 'F','e','a','t','u','r','e','s',0 };
62 static const WCHAR szInstaller_Features_fmt
[] = {
63 'S','o','f','t','w','a','r','e','\\',
64 'M','i','c','r','o','s','o','f','t','\\',
65 'W','i','n','d','o','w','s','\\',
66 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
67 'I','n','s','t','a','l','l','e','r','\\',
68 'F','e','a','t','u','r','e','s','\\',
71 static const WCHAR szInstaller_Components
[] = {
72 'S','o','f','t','w','a','r','e','\\',
73 'M','i','c','r','o','s','o','f','t','\\',
74 'W','i','n','d','o','w','s','\\',
75 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
76 'I','n','s','t','a','l','l','e','r','\\',
77 'C','o','m','p','o','n','e','n','t','s',0 };
79 static const WCHAR szInstaller_Components_fmt
[] = {
80 'S','o','f','t','w','a','r','e','\\',
81 'M','i','c','r','o','s','o','f','t','\\',
82 'W','i','n','d','o','w','s','\\',
83 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
84 'I','n','s','t','a','l','l','e','r','\\',
85 'C','o','m','p','o','n','e','n','t','s','\\',
88 static const WCHAR szUninstall_fmt
[] = {
89 'S','o','f','t','w','a','r','e','\\',
90 'M','i','c','r','o','s','o','f','t','\\',
91 'W','i','n','d','o','w','s','\\',
92 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
93 'U','n','i','n','s','t','a','l','l','\\',
96 static const WCHAR szUserProduct_fmt
[] = {
97 'S','o','f','t','w','a','r','e','\\',
98 'M','i','c','r','o','s','o','f','t','\\',
99 'I','n','s','t','a','l','l','e','r','\\',
100 'P','r','o','d','u','c','t','s','\\',
103 static const WCHAR szInstaller_Products
[] = {
104 'S','o','f','t','w','a','r','e','\\',
105 'M','i','c','r','o','s','o','f','t','\\',
106 'W','i','n','d','o','w','s','\\',
107 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
108 'I','n','s','t','a','l','l','e','r','\\',
109 'P','r','o','d','u','c','t','s',0};
111 static const WCHAR szInstaller_Products_fmt
[] = {
112 'S','o','f','t','w','a','r','e','\\',
113 'M','i','c','r','o','s','o','f','t','\\',
114 'W','i','n','d','o','w','s','\\',
115 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
116 'I','n','s','t','a','l','l','e','r','\\',
117 'P','r','o','d','u','c','t','s','\\',
120 static const WCHAR szInstaller_UpgradeCodes
[] = {
121 'S','o','f','t','w','a','r','e','\\',
122 'M','i','c','r','o','s','o','f','t','\\',
123 'W','i','n','d','o','w','s','\\',
124 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
125 'I','n','s','t','a','l','l','e','r','\\',
126 'U','p','g','r','a','d','e','C','o','d','e','s',0};
128 static const WCHAR szInstaller_UpgradeCodes_fmt
[] = {
129 'S','o','f','t','w','a','r','e','\\',
130 'M','i','c','r','o','s','o','f','t','\\',
131 'W','i','n','d','o','w','s','\\',
132 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
133 'I','n','s','t','a','l','l','e','r','\\',
134 'U','p','g','r','a','d','e','C','o','d','e','s','\\',
137 #define SQUISH_GUID_SIZE 33
139 BOOL
unsquash_guid(LPCWSTR in
, LPWSTR out
)
155 out
[n
++] = in
[17+i
*2];
156 out
[n
++] = in
[16+i
*2];
161 out
[n
++] = in
[17+i
*2];
162 out
[n
++] = in
[16+i
*2];
169 BOOL
squash_guid(LPCWSTR in
, LPWSTR out
)
189 out
[17+i
*2] = in
[n
++];
190 out
[16+i
*2] = in
[n
++];
196 out
[17+i
*2] = in
[n
++];
197 out
[16+i
*2] = in
[n
++];
208 /* tables for encoding and decoding base85 */
209 static const unsigned char table_dec85
[0x80] = {
210 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
211 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
212 0xff,0x00,0xff,0xff,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0a,0x0b,0xff,
213 0x0c,0x0d,0x0e,0x0f,0x10,0x11,0x12,0x13,0x14,0x15,0xff,0xff,0xff,0x16,0xff,0x17,
214 0x18,0x19,0x1a,0x1b,0x1c,0x1d,0x1e,0x1f,0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,
215 0x28,0x29,0x2a,0x2b,0x2c,0x2d,0x2e,0x2f,0x30,0x31,0x32,0x33,0xff,0x34,0x35,0x36,
216 0x37,0x38,0x39,0x3a,0x3b,0x3c,0x3d,0x3e,0x3f,0x40,0x41,0x42,0x43,0x44,0x45,0x46,
217 0x47,0x48,0x49,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f,0x50,0x51,0x52,0xff,0x53,0x54,0xff,
220 static const char table_enc85
[] =
221 "!$%&'()*+,-.0123456789=?@ABCDEFGHIJKLMNO"
222 "PQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwx"
226 * Converts a base85 encoded guid into a GUID pointer
227 * Base85 encoded GUIDs should be 20 characters long.
229 * returns TRUE if successful, FALSE if not
231 BOOL
decode_base85_guid( LPCWSTR str
, GUID
*guid
)
233 DWORD i
, val
= 0, base
= 1, *p
;
236 for( i
=0; i
<20; i
++ )
243 val
+= table_dec85
[str
[i
]] * base
;
246 if( table_dec85
[str
[i
]] == 0xff )
256 * Encodes a base85 guid given a GUID pointer
257 * Caller should provide a 21 character buffer for the encoded string.
259 * returns TRUE if successful, FALSE if not
261 BOOL
encode_base85_guid( GUID
*guid
, LPWSTR str
)
263 unsigned int x
, *p
, i
;
265 p
= (unsigned int*) guid
;
269 *str
++ = table_enc85
[x
%85];
271 *str
++ = table_enc85
[x
%85];
273 *str
++ = table_enc85
[x
%85];
275 *str
++ = table_enc85
[x
%85];
277 *str
++ = table_enc85
[x
%85];
285 UINT
MSIREG_OpenUninstallKey(LPCWSTR szProduct
, HKEY
* key
, BOOL create
)
288 WCHAR keypath
[0x200];
289 TRACE("%s\n",debugstr_w(szProduct
));
291 sprintfW(keypath
,szUninstall_fmt
,szProduct
);
294 rc
= RegCreateKeyW(HKEY_LOCAL_MACHINE
, keypath
, key
);
296 rc
= RegOpenKeyW(HKEY_LOCAL_MACHINE
, keypath
, key
);
301 UINT
MSIREG_OpenUserProductsKey(LPCWSTR szProduct
, HKEY
* key
, BOOL create
)
304 WCHAR squished_pc
[GUID_SIZE
];
305 WCHAR keypath
[0x200];
307 TRACE("%s\n",debugstr_w(szProduct
));
308 squash_guid(szProduct
,squished_pc
);
309 TRACE("squished (%s)\n", debugstr_w(squished_pc
));
311 sprintfW(keypath
,szUserProduct_fmt
,squished_pc
);
314 rc
= RegCreateKeyW(HKEY_CURRENT_USER
,keypath
,key
);
316 rc
= RegOpenKeyW(HKEY_CURRENT_USER
,keypath
,key
);
321 UINT
MSIREG_OpenUserFeaturesKey(LPCWSTR szProduct
, HKEY
* key
, BOOL create
)
324 WCHAR squished_pc
[GUID_SIZE
];
325 WCHAR keypath
[0x200];
327 TRACE("%s\n",debugstr_w(szProduct
));
328 squash_guid(szProduct
,squished_pc
);
329 TRACE("squished (%s)\n", debugstr_w(squished_pc
));
331 sprintfW(keypath
,szUserFeatures_fmt
,squished_pc
);
334 rc
= RegCreateKeyW(HKEY_CURRENT_USER
,keypath
,key
);
336 rc
= RegOpenKeyW(HKEY_CURRENT_USER
,keypath
,key
);
341 UINT
MSIREG_OpenFeatures(HKEY
* key
)
343 return RegCreateKeyW(HKEY_LOCAL_MACHINE
,szInstaller_Features
,key
);
346 UINT
MSIREG_OpenFeaturesKey(LPCWSTR szProduct
, HKEY
* key
, BOOL create
)
349 WCHAR squished_pc
[GUID_SIZE
];
350 WCHAR keypath
[0x200];
352 TRACE("%s\n",debugstr_w(szProduct
));
353 squash_guid(szProduct
,squished_pc
);
354 TRACE("squished (%s)\n", debugstr_w(squished_pc
));
356 sprintfW(keypath
,szInstaller_Features_fmt
,squished_pc
);
359 rc
= RegCreateKeyW(HKEY_LOCAL_MACHINE
,keypath
,key
);
361 rc
= RegOpenKeyW(HKEY_LOCAL_MACHINE
,keypath
,key
);
366 UINT
MSIREG_OpenComponents(HKEY
* key
)
368 return RegCreateKeyW(HKEY_LOCAL_MACHINE
,szInstaller_Components
,key
);
371 UINT
MSIREG_OpenComponentsKey(LPCWSTR szComponent
, HKEY
* key
, BOOL create
)
374 WCHAR squished_cc
[GUID_SIZE
];
375 WCHAR keypath
[0x200];
377 TRACE("%s\n",debugstr_w(szComponent
));
378 squash_guid(szComponent
,squished_cc
);
379 TRACE("squished (%s)\n", debugstr_w(squished_cc
));
381 sprintfW(keypath
,szInstaller_Components_fmt
,squished_cc
);
384 rc
= RegCreateKeyW(HKEY_LOCAL_MACHINE
,keypath
,key
);
386 rc
= RegOpenKeyW(HKEY_LOCAL_MACHINE
,keypath
,key
);
391 UINT
MSIREG_OpenProductsKey(LPCWSTR szProduct
, HKEY
* key
, BOOL create
)
394 WCHAR squished_pc
[GUID_SIZE
];
395 WCHAR keypath
[0x200];
397 TRACE("%s\n",debugstr_w(szProduct
));
398 squash_guid(szProduct
,squished_pc
);
399 TRACE("squished (%s)\n", debugstr_w(squished_pc
));
401 sprintfW(keypath
,szInstaller_Products_fmt
,squished_pc
);
404 rc
= RegCreateKeyW(HKEY_LOCAL_MACHINE
,keypath
,key
);
406 rc
= RegOpenKeyW(HKEY_LOCAL_MACHINE
,keypath
,key
);
411 UINT
MSIREG_OpenUpgradeCodesKey(LPCWSTR szUpgradeCode
, HKEY
* key
, BOOL create
)
414 WCHAR squished_pc
[GUID_SIZE
];
415 WCHAR keypath
[0x200];
417 TRACE("%s\n",debugstr_w(szUpgradeCode
));
418 squash_guid(szUpgradeCode
,squished_pc
);
419 TRACE("squished (%s)\n", debugstr_w(squished_pc
));
421 sprintfW(keypath
,szInstaller_UpgradeCodes_fmt
,squished_pc
);
424 rc
= RegCreateKeyW(HKEY_LOCAL_MACHINE
,keypath
,key
);
426 rc
= RegOpenKeyW(HKEY_LOCAL_MACHINE
,keypath
,key
);
431 /*************************************************************************
432 * MsiDecomposeDescriptorW [MSI.@]
434 * Decomposes an MSI descriptor into product, feature and component parts.
435 * An MSI descriptor is a string of the form:
436 * [base 85 guid] [feature code] '>' [base 85 guid]
439 * szDescriptor [I] the descriptor to decompose
440 * szProduct [O] buffer of MAX_FEATURE_CHARS for the product guid
441 * szFeature [O] buffer of MAX_FEATURE_CHARS for the feature code
442 * szComponent [O] buffer of MAX_FEATURE_CHARS for the component guid
443 * pUsed [O] the length of the descriptor
446 * ERROR_SUCCESS if everything worked correctly
447 * ERROR_INVALID_PARAMETER if the descriptor was invalid
450 UINT WINAPI
MsiDecomposeDescriptorW( LPCWSTR szDescriptor
, LPWSTR szProduct
,
451 LPWSTR szFeature
, LPWSTR szComponent
, DWORD
*pUsed
)
455 GUID product
, component
;
457 TRACE("%s %p %p %p %p\n", debugstr_w(szDescriptor
), szProduct
,
458 szFeature
, szComponent
, pUsed
);
460 r
= decode_base85_guid( szDescriptor
, &product
);
462 return ERROR_INVALID_PARAMETER
;
464 TRACE("product %s\n", debugstr_guid( &product
));
466 p
= strchrW(&szDescriptor
[20],'>');
468 return ERROR_INVALID_PARAMETER
;
470 len
= (p
- &szDescriptor
[20]);
471 if( len
> MAX_FEATURE_CHARS
)
472 return ERROR_INVALID_PARAMETER
;
473 memcpy( szFeature
, &szDescriptor
[20], len
*sizeof(WCHAR
) );
476 TRACE("feature %s\n", debugstr_w( szFeature
));
478 r
= decode_base85_guid( p
+1, &component
);
480 return ERROR_INVALID_PARAMETER
;
482 TRACE("component %s\n", debugstr_guid( &component
));
484 StringFromGUID2( &product
, szProduct
, MAX_FEATURE_CHARS
+1 );
485 StringFromGUID2( &component
, szComponent
, MAX_FEATURE_CHARS
+1 );
486 len
= ( &p
[21] - szDescriptor
);
488 TRACE("length = %d\n", len
);
491 return ERROR_SUCCESS
;
494 UINT WINAPI
MsiDecomposeDescriptorA( LPCSTR szDescriptor
, LPSTR szProduct
,
495 LPSTR szFeature
, LPSTR szComponent
, DWORD
*pUsed
)
497 WCHAR product
[MAX_FEATURE_CHARS
+1];
498 WCHAR feature
[MAX_FEATURE_CHARS
+1];
499 WCHAR component
[MAX_FEATURE_CHARS
+1];
503 TRACE("%s %p %p %p %p\n", debugstr_a(szDescriptor
), szProduct
,
504 szFeature
, szComponent
, pUsed
);
508 str
= strdupAtoW( szDescriptor
);
510 return ERROR_OUTOFMEMORY
;
513 r
= MsiDecomposeDescriptorW( str
, product
, feature
, component
, pUsed
);
515 WideCharToMultiByte( CP_ACP
, 0, product
, MAX_FEATURE_CHARS
+1,
516 szProduct
, MAX_FEATURE_CHARS
+1, NULL
, NULL
);
517 WideCharToMultiByte( CP_ACP
, 0, feature
, MAX_FEATURE_CHARS
+1,
518 szFeature
, MAX_FEATURE_CHARS
+1, NULL
, NULL
);
519 WideCharToMultiByte( CP_ACP
, 0, component
, MAX_FEATURE_CHARS
+1,
520 szComponent
, MAX_FEATURE_CHARS
+1, NULL
, NULL
);
522 HeapFree( GetProcessHeap(), 0, str
);
527 UINT WINAPI
MsiEnumProductsA(DWORD index
, LPSTR lpguid
)
530 WCHAR szwGuid
[GUID_SIZE
];
532 TRACE("%ld %p\n",index
,lpguid
);
535 return ERROR_INVALID_PARAMETER
;
536 r
= MsiEnumProductsW(index
, szwGuid
);
537 if( r
== ERROR_SUCCESS
)
538 WideCharToMultiByte(CP_ACP
, 0, szwGuid
, -1, lpguid
, GUID_SIZE
, NULL
, NULL
);
543 UINT WINAPI
MsiEnumProductsW(DWORD index
, LPWSTR lpguid
)
545 HKEY hkeyFeatures
= 0;
547 WCHAR szKeyName
[SQUISH_GUID_SIZE
];
549 TRACE("%ld %p\n",index
,lpguid
);
552 return ERROR_INVALID_PARAMETER
;
554 r
= MSIREG_OpenFeatures(&hkeyFeatures
);
555 if( r
!= ERROR_SUCCESS
)
556 return ERROR_NO_MORE_ITEMS
;
558 r
= RegEnumKeyW(hkeyFeatures
, index
, szKeyName
, SQUISH_GUID_SIZE
);
559 if( r
== ERROR_SUCCESS
)
560 unsquash_guid(szKeyName
, lpguid
);
561 RegCloseKey(hkeyFeatures
);
566 UINT WINAPI
MsiEnumFeaturesA(LPCSTR szProduct
, DWORD index
,
567 LPSTR szFeature
, LPSTR szParent
)
570 WCHAR szwFeature
[GUID_SIZE
], szwParent
[GUID_SIZE
];
571 LPWSTR szwProduct
= NULL
;
573 TRACE("%s %ld %p %p\n",debugstr_a(szProduct
),index
,szFeature
,szParent
);
577 szwProduct
= strdupAtoW( szProduct
);
579 return ERROR_OUTOFMEMORY
;
582 r
= MsiEnumFeaturesW(szwProduct
, index
, szwFeature
, szwParent
);
583 if( r
== ERROR_SUCCESS
)
585 WideCharToMultiByte(CP_ACP
, 0, szwFeature
, -1,
586 szFeature
, GUID_SIZE
, NULL
, NULL
);
587 WideCharToMultiByte(CP_ACP
, 0, szwParent
, -1,
588 szParent
, GUID_SIZE
, NULL
, NULL
);
591 HeapFree( GetProcessHeap(), 0, szwProduct
);
596 UINT WINAPI
MsiEnumFeaturesW(LPCWSTR szProduct
, DWORD index
,
597 LPWSTR szFeature
, LPWSTR szParent
)
599 HKEY hkeyProduct
= 0;
602 TRACE("%s %ld %p %p\n",debugstr_w(szProduct
),index
,szFeature
,szParent
);
604 r
= MSIREG_OpenFeaturesKey(szProduct
,&hkeyProduct
,FALSE
);
605 if( r
!= ERROR_SUCCESS
)
606 return ERROR_NO_MORE_ITEMS
;
609 r
= RegEnumValueW(hkeyProduct
, index
, szFeature
, &sz
, NULL
, NULL
, NULL
, NULL
);
610 RegCloseKey(hkeyProduct
);
615 UINT WINAPI
MsiEnumComponentsA(DWORD index
, LPSTR lpguid
)
618 WCHAR szwGuid
[GUID_SIZE
];
620 TRACE("%ld %p\n",index
,lpguid
);
622 r
= MsiEnumComponentsW(index
, szwGuid
);
623 if( r
== ERROR_SUCCESS
)
624 WideCharToMultiByte(CP_ACP
, 0, szwGuid
, -1, lpguid
, GUID_SIZE
, NULL
, NULL
);
629 UINT WINAPI
MsiEnumComponentsW(DWORD index
, LPWSTR lpguid
)
631 HKEY hkeyComponents
= 0;
633 WCHAR szKeyName
[SQUISH_GUID_SIZE
];
635 TRACE("%ld %p\n",index
,lpguid
);
637 r
= MSIREG_OpenComponents(&hkeyComponents
);
638 if( r
!= ERROR_SUCCESS
)
639 return ERROR_NO_MORE_ITEMS
;
641 r
= RegEnumKeyW(hkeyComponents
, index
, szKeyName
, SQUISH_GUID_SIZE
);
642 if( r
== ERROR_SUCCESS
)
643 unsquash_guid(szKeyName
, lpguid
);
644 RegCloseKey(hkeyComponents
);
649 UINT WINAPI
MsiEnumClientsA(LPCSTR szComponent
, DWORD index
, LPSTR szProduct
)
652 WCHAR szwProduct
[GUID_SIZE
];
653 LPWSTR szwComponent
= NULL
;
655 TRACE("%s %ld %p\n",debugstr_a(szComponent
),index
,szProduct
);
659 szwComponent
= strdupAtoW( szComponent
);
661 return ERROR_OUTOFMEMORY
;
664 r
= MsiEnumClientsW(szComponent
?szwComponent
:NULL
, index
, szwProduct
);
665 if( r
== ERROR_SUCCESS
)
667 WideCharToMultiByte(CP_ACP
, 0, szwProduct
, -1,
668 szProduct
, GUID_SIZE
, NULL
, NULL
);
671 HeapFree( GetProcessHeap(), 0, szwComponent
);
676 UINT WINAPI
MsiEnumClientsW(LPCWSTR szComponent
, DWORD index
, LPWSTR szProduct
)
680 WCHAR szValName
[SQUISH_GUID_SIZE
];
682 TRACE("%s %ld %p\n",debugstr_w(szComponent
),index
,szProduct
);
684 r
= MSIREG_OpenComponentsKey(szComponent
,&hkeyComp
,FALSE
);
685 if( r
!= ERROR_SUCCESS
)
686 return ERROR_NO_MORE_ITEMS
;
688 sz
= SQUISH_GUID_SIZE
;
689 r
= RegEnumValueW(hkeyComp
, index
, szValName
, &sz
, NULL
, NULL
, NULL
, NULL
);
690 if( r
== ERROR_SUCCESS
)
691 unsquash_guid(szValName
, szProduct
);
693 RegCloseKey(hkeyComp
);
698 UINT WINAPI
MsiEnumComponentQualifiersA( LPSTR szComponent
, DWORD iIndex
,
699 LPSTR lpQualifierBuf
, DWORD
* pcchQualifierBuf
,
700 LPSTR lpApplicationDataBuf
, DWORD
* pcchApplicationDataBuf
)
702 FIXME("%s %08lx %p %p %p %p\n", debugstr_a(szComponent
), iIndex
,
703 lpQualifierBuf
, pcchQualifierBuf
, lpApplicationDataBuf
,
704 pcchApplicationDataBuf
);
705 return ERROR_CALL_NOT_IMPLEMENTED
;
708 UINT WINAPI
MsiEnumComponentQualifiersW( LPWSTR szComponent
, DWORD iIndex
,
709 LPWSTR lpQualifierBuf
, DWORD
* pcchQualifierBuf
,
710 LPWSTR lpApplicationDataBuf
, DWORD
* pcchApplicationDataBuf
)
712 FIXME("%s %08lx %p %p %p %p\n", debugstr_w(szComponent
), iIndex
,
713 lpQualifierBuf
, pcchQualifierBuf
, lpApplicationDataBuf
,
714 pcchApplicationDataBuf
);
715 return ERROR_CALL_NOT_IMPLEMENTED
;
718 UINT WINAPI
MsiEnumRelatedProductsW(LPCWSTR szUpgradeCode
, DWORD dwReserved
,
719 DWORD iProductIndex
, LPWSTR lpProductBuf
)
723 WCHAR szKeyName
[SQUISH_GUID_SIZE
];
725 TRACE("%s %lu %lu %p\n", debugstr_w(szUpgradeCode
), dwReserved
,
726 iProductIndex
, lpProductBuf
);
728 if (NULL
== szUpgradeCode
)
729 return ERROR_INVALID_PARAMETER
;
730 if (NULL
== lpProductBuf
)
731 return ERROR_INVALID_PARAMETER
;
733 r
= MSIREG_OpenUpgradeCodesKey(szUpgradeCode
, &hkey
, FALSE
);
734 if (r
!= ERROR_SUCCESS
)
735 return ERROR_NO_MORE_ITEMS
;
737 r
= RegEnumKeyW(hkey
, iProductIndex
, szKeyName
, SQUISH_GUID_SIZE
);
738 if( r
== ERROR_SUCCESS
)
739 unsquash_guid(szKeyName
, lpProductBuf
);
745 UINT WINAPI
MsiEnumRelatedProductsA(LPCSTR szUpgradeCode
, DWORD dwReserved
,
746 DWORD iProductIndex
, LPSTR lpProductBuf
)
748 LPWSTR szwUpgradeCode
= NULL
;
749 WCHAR productW
[GUID_SIZE
];
752 TRACE("%s %lu %lu %p\n", debugstr_a(szUpgradeCode
), dwReserved
,
753 iProductIndex
, lpProductBuf
);
757 szwUpgradeCode
= strdupAtoW( szUpgradeCode
);
758 if( !szwUpgradeCode
)
759 return ERROR_OUTOFMEMORY
;
762 r
= MsiEnumRelatedProductsW( szwUpgradeCode
, dwReserved
,
763 iProductIndex
, productW
);
764 if (r
== ERROR_SUCCESS
)
766 WideCharToMultiByte( CP_ACP
, 0, productW
, GUID_SIZE
,
767 lpProductBuf
, GUID_SIZE
, NULL
, NULL
);
769 HeapFree(GetProcessHeap(), 0, szwUpgradeCode
);