mirror of
https://github.com/reactos/wine.git
synced 2024-11-29 22:50:43 +00:00
1105 lines
30 KiB
C
1105 lines
30 KiB
C
/*
|
|
* Implementation of the Microsoft Installer (msi.dll)
|
|
*
|
|
* Copyright 2005 Mike McCormack for CodeWeavers
|
|
* Copyright 2005 Aric Stewart for CodeWeavers
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#include <stdarg.h>
|
|
|
|
#define COBJMACROS
|
|
#define NONAMELESSUNION
|
|
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "winreg.h"
|
|
#include "winnls.h"
|
|
#include "shlwapi.h"
|
|
#include "wine/debug.h"
|
|
#include "msi.h"
|
|
#include "msipriv.h"
|
|
#include "wincrypt.h"
|
|
#include "wine/unicode.h"
|
|
#include "winver.h"
|
|
#include "winuser.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(msi);
|
|
|
|
|
|
/*
|
|
* This module will be all the helper functions for registry access by the
|
|
* installer bits.
|
|
*/
|
|
static const WCHAR szUserFeatures_fmt[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'F','e','a','t','u','r','e','s','\\',
|
|
'%','s',0};
|
|
|
|
static const WCHAR szInstaller_Features[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'W','i','n','d','o','w','s','\\',
|
|
'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'F','e','a','t','u','r','e','s',0 };
|
|
|
|
static const WCHAR szInstaller_Features_fmt[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'W','i','n','d','o','w','s','\\',
|
|
'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'F','e','a','t','u','r','e','s','\\',
|
|
'%','s',0};
|
|
|
|
static const WCHAR szInstaller_Components[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'W','i','n','d','o','w','s','\\',
|
|
'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'C','o','m','p','o','n','e','n','t','s',0 };
|
|
|
|
static const WCHAR szInstaller_Components_fmt[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'W','i','n','d','o','w','s','\\',
|
|
'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'C','o','m','p','o','n','e','n','t','s','\\',
|
|
'%','s',0};
|
|
|
|
static const WCHAR szUser_Components_fmt[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'C','o','m','p','o','n','e','n','t','s','\\',
|
|
'%','s',0};
|
|
|
|
static const WCHAR szUninstall_fmt[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'W','i','n','d','o','w','s','\\',
|
|
'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
|
|
'U','n','i','n','s','t','a','l','l','\\',
|
|
'%','s',0 };
|
|
|
|
static const WCHAR szUserProduct_fmt[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'P','r','o','d','u','c','t','s','\\',
|
|
'%','s',0};
|
|
|
|
static const WCHAR szInstaller_Products[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'W','i','n','d','o','w','s','\\',
|
|
'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'P','r','o','d','u','c','t','s',0};
|
|
|
|
static const WCHAR szInstaller_Products_fmt[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'W','i','n','d','o','w','s','\\',
|
|
'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'P','r','o','d','u','c','t','s','\\',
|
|
'%','s',0};
|
|
|
|
static const WCHAR szInstaller_UpgradeCodes_fmt[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'W','i','n','d','o','w','s','\\',
|
|
'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'U','p','g','r','a','d','e','C','o','d','e','s','\\',
|
|
'%','s',0};
|
|
|
|
static const WCHAR szInstaller_UserUpgradeCodes_fmt[] = {
|
|
'S','o','f','t','w','a','r','e','\\',
|
|
'M','i','c','r','o','s','o','f','t','\\',
|
|
'I','n','s','t','a','l','l','e','r','\\',
|
|
'U','p','g','r','a','d','e','C','o','d','e','s','\\',
|
|
'%','s',0};
|
|
|
|
|
|
#define SQUISH_GUID_SIZE 33
|
|
|
|
BOOL unsquash_guid(LPCWSTR in, LPWSTR out)
|
|
{
|
|
DWORD i,n=0;
|
|
|
|
out[n++]='{';
|
|
for(i=0; i<8; i++)
|
|
out[n++] = in[7-i];
|
|
out[n++]='-';
|
|
for(i=0; i<4; i++)
|
|
out[n++] = in[11-i];
|
|
out[n++]='-';
|
|
for(i=0; i<4; i++)
|
|
out[n++] = in[15-i];
|
|
out[n++]='-';
|
|
for(i=0; i<2; i++)
|
|
{
|
|
out[n++] = in[17+i*2];
|
|
out[n++] = in[16+i*2];
|
|
}
|
|
out[n++]='-';
|
|
for( ; i<8; i++)
|
|
{
|
|
out[n++] = in[17+i*2];
|
|
out[n++] = in[16+i*2];
|
|
}
|
|
out[n++]='}';
|
|
out[n]=0;
|
|
return TRUE;
|
|
}
|
|
|
|
BOOL squash_guid(LPCWSTR in, LPWSTR out)
|
|
{
|
|
DWORD i,n=1;
|
|
GUID guid;
|
|
|
|
if (FAILED(CLSIDFromString((LPOLESTR)in, &guid)))
|
|
return FALSE;
|
|
|
|
for(i=0; i<8; i++)
|
|
out[7-i] = in[n++];
|
|
n++;
|
|
for(i=0; i<4; i++)
|
|
out[11-i] = in[n++];
|
|
n++;
|
|
for(i=0; i<4; i++)
|
|
out[15-i] = in[n++];
|
|
n++;
|
|
for(i=0; i<2; i++)
|
|
{
|
|
out[17+i*2] = in[n++];
|
|
out[16+i*2] = in[n++];
|
|
}
|
|
n++;
|
|
for( ; i<8; i++)
|
|
{
|
|
out[17+i*2] = in[n++];
|
|
out[16+i*2] = in[n++];
|
|
}
|
|
out[32]=0;
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/* tables for encoding and decoding base85 */
|
|
static const unsigned char table_dec85[0x80] = {
|
|
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
|
|
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
|
|
0xff,0x00,0xff,0xff,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0a,0x0b,0xff,
|
|
0x0c,0x0d,0x0e,0x0f,0x10,0x11,0x12,0x13,0x14,0x15,0xff,0xff,0xff,0x16,0xff,0x17,
|
|
0x18,0x19,0x1a,0x1b,0x1c,0x1d,0x1e,0x1f,0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,
|
|
0x28,0x29,0x2a,0x2b,0x2c,0x2d,0x2e,0x2f,0x30,0x31,0x32,0x33,0xff,0x34,0x35,0x36,
|
|
0x37,0x38,0x39,0x3a,0x3b,0x3c,0x3d,0x3e,0x3f,0x40,0x41,0x42,0x43,0x44,0x45,0x46,
|
|
0x47,0x48,0x49,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f,0x50,0x51,0x52,0xff,0x53,0x54,0xff,
|
|
};
|
|
|
|
static const char table_enc85[] =
|
|
"!$%&'()*+,-.0123456789=?@ABCDEFGHIJKLMNO"
|
|
"PQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwx"
|
|
"yz{}~";
|
|
|
|
/*
|
|
* Converts a base85 encoded guid into a GUID pointer
|
|
* Base85 encoded GUIDs should be 20 characters long.
|
|
*
|
|
* returns TRUE if successful, FALSE if not
|
|
*/
|
|
BOOL decode_base85_guid( LPCWSTR str, GUID *guid )
|
|
{
|
|
DWORD i, val = 0, base = 1, *p;
|
|
|
|
if (!str)
|
|
return FALSE;
|
|
|
|
p = (DWORD*) guid;
|
|
for( i=0; i<20; i++ )
|
|
{
|
|
if( (i%5) == 0 )
|
|
{
|
|
val = 0;
|
|
base = 1;
|
|
}
|
|
val += table_dec85[str[i]] * base;
|
|
if( str[i] >= 0x80 )
|
|
return FALSE;
|
|
if( table_dec85[str[i]] == 0xff )
|
|
return FALSE;
|
|
if( (i%5) == 4 )
|
|
p[i/5] = val;
|
|
base *= 85;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
/*
|
|
* Encodes a base85 guid given a GUID pointer
|
|
* Caller should provide a 21 character buffer for the encoded string.
|
|
*
|
|
* returns TRUE if successful, FALSE if not
|
|
*/
|
|
BOOL encode_base85_guid( GUID *guid, LPWSTR str )
|
|
{
|
|
unsigned int x, *p, i;
|
|
|
|
p = (unsigned int*) guid;
|
|
for( i=0; i<4; i++ )
|
|
{
|
|
x = p[i];
|
|
*str++ = table_enc85[x%85];
|
|
x = x/85;
|
|
*str++ = table_enc85[x%85];
|
|
x = x/85;
|
|
*str++ = table_enc85[x%85];
|
|
x = x/85;
|
|
*str++ = table_enc85[x%85];
|
|
x = x/85;
|
|
*str++ = table_enc85[x%85];
|
|
}
|
|
*str = 0;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
DWORD msi_version_str_to_dword(LPCWSTR p)
|
|
{
|
|
DWORD major, minor = 0, build = 0, version = 0;
|
|
|
|
if (!p)
|
|
return version;
|
|
|
|
major = atoiW(p);
|
|
|
|
p = strchrW(p, '.');
|
|
if (p)
|
|
{
|
|
minor = atoiW(p+1);
|
|
p = strchrW(p+1, '.');
|
|
if (p)
|
|
build = atoiW(p+1);
|
|
}
|
|
|
|
return MAKELONG(build, MAKEWORD(minor, major));
|
|
}
|
|
|
|
LPWSTR msi_version_dword_to_str(DWORD version)
|
|
{
|
|
const WCHAR fmt[] = { '%','u','.','%','u','.','%','u',0 };
|
|
LPWSTR str = msi_alloc(20);
|
|
sprintfW(str, fmt,
|
|
(version&0xff000000)>>24,
|
|
(version&0x00ff0000)>>16,
|
|
version&0x0000ffff);
|
|
return str;
|
|
}
|
|
|
|
LONG msi_reg_set_val_str( HKEY hkey, LPCWSTR name, LPCWSTR value )
|
|
{
|
|
DWORD len = value ? (lstrlenW(value) + 1) * sizeof (WCHAR) : 0;
|
|
return RegSetValueExW( hkey, name, 0, REG_SZ, (const BYTE *)value, len );
|
|
}
|
|
|
|
LONG msi_reg_set_val_multi_str( HKEY hkey, LPCWSTR name, LPCWSTR value )
|
|
{
|
|
LPCWSTR p = value;
|
|
while (*p) p += lstrlenW(p) + 1;
|
|
return RegSetValueExW( hkey, name, 0, REG_MULTI_SZ,
|
|
(const BYTE *)value, (p + 1 - value) * sizeof(WCHAR) );
|
|
}
|
|
|
|
LONG msi_reg_set_val_dword( HKEY hkey, LPCWSTR name, DWORD val )
|
|
{
|
|
return RegSetValueExW( hkey, name, 0, REG_DWORD, (LPBYTE)&val, sizeof (DWORD) );
|
|
}
|
|
|
|
LONG msi_reg_set_subkey_val( HKEY hkey, LPCWSTR path, LPCWSTR name, LPCWSTR val )
|
|
{
|
|
HKEY hsubkey = 0;
|
|
LONG r;
|
|
|
|
r = RegCreateKeyW( hkey, path, &hsubkey );
|
|
if (r != ERROR_SUCCESS)
|
|
return r;
|
|
r = msi_reg_set_val_str( hsubkey, name, val );
|
|
RegCloseKey( hsubkey );
|
|
return r;
|
|
}
|
|
|
|
LPWSTR msi_reg_get_val_str( HKEY hkey, LPCWSTR name )
|
|
{
|
|
DWORD len = 0;
|
|
LPWSTR val;
|
|
LONG r;
|
|
|
|
r = RegQueryValueExW(hkey, name, NULL, NULL, NULL, &len);
|
|
if (r != ERROR_SUCCESS)
|
|
return NULL;
|
|
|
|
len += sizeof (WCHAR);
|
|
val = msi_alloc( len );
|
|
if (!val)
|
|
return NULL;
|
|
val[0] = 0;
|
|
RegQueryValueExW(hkey, name, NULL, NULL, (LPBYTE) val, &len);
|
|
return val;
|
|
}
|
|
|
|
BOOL msi_reg_get_val_dword( HKEY hkey, LPCWSTR name, DWORD *val)
|
|
{
|
|
DWORD type, len = sizeof (DWORD);
|
|
LONG r = RegQueryValueExW(hkey, name, NULL, &type, (LPBYTE) val, &len);
|
|
return r == ERROR_SUCCESS && type == REG_DWORD;
|
|
}
|
|
|
|
UINT MSIREG_OpenUninstallKey(LPCWSTR szProduct, HKEY* key, BOOL create)
|
|
{
|
|
UINT rc;
|
|
WCHAR keypath[0x200];
|
|
TRACE("%s\n",debugstr_w(szProduct));
|
|
|
|
sprintfW(keypath,szUninstall_fmt,szProduct);
|
|
|
|
if (create)
|
|
rc = RegCreateKeyW(HKEY_LOCAL_MACHINE, keypath, key);
|
|
else
|
|
rc = RegOpenKeyW(HKEY_LOCAL_MACHINE, keypath, key);
|
|
|
|
return rc;
|
|
}
|
|
|
|
UINT MSIREG_OpenUserProductsKey(LPCWSTR szProduct, HKEY* key, BOOL create)
|
|
{
|
|
UINT rc;
|
|
WCHAR squished_pc[GUID_SIZE];
|
|
WCHAR keypath[0x200];
|
|
|
|
TRACE("%s\n",debugstr_w(szProduct));
|
|
squash_guid(szProduct,squished_pc);
|
|
TRACE("squished (%s)\n", debugstr_w(squished_pc));
|
|
|
|
sprintfW(keypath,szUserProduct_fmt,squished_pc);
|
|
|
|
if (create)
|
|
rc = RegCreateKeyW(HKEY_CURRENT_USER,keypath,key);
|
|
else
|
|
rc = RegOpenKeyW(HKEY_CURRENT_USER,keypath,key);
|
|
|
|
return rc;
|
|
}
|
|
|
|
UINT MSIREG_OpenUserFeaturesKey(LPCWSTR szProduct, HKEY* key, BOOL create)
|
|
{
|
|
UINT rc;
|
|
WCHAR squished_pc[GUID_SIZE];
|
|
WCHAR keypath[0x200];
|
|
|
|
TRACE("%s\n",debugstr_w(szProduct));
|
|
squash_guid(szProduct,squished_pc);
|
|
TRACE("squished (%s)\n", debugstr_w(squished_pc));
|
|
|
|
sprintfW(keypath,szUserFeatures_fmt,squished_pc);
|
|
|
|
if (create)
|
|
rc = RegCreateKeyW(HKEY_CURRENT_USER,keypath,key);
|
|
else
|
|
rc = RegOpenKeyW(HKEY_CURRENT_USER,keypath,key);
|
|
|
|
return rc;
|
|
}
|
|
|
|
UINT MSIREG_OpenFeatures(HKEY* key)
|
|
{
|
|
return RegCreateKeyW(HKEY_LOCAL_MACHINE,szInstaller_Features,key);
|
|
}
|
|
|
|
UINT MSIREG_OpenFeaturesKey(LPCWSTR szProduct, HKEY* key, BOOL create)
|
|
{
|
|
UINT rc;
|
|
WCHAR squished_pc[GUID_SIZE];
|
|
WCHAR keypath[0x200];
|
|
|
|
TRACE("%s\n",debugstr_w(szProduct));
|
|
squash_guid(szProduct,squished_pc);
|
|
TRACE("squished (%s)\n", debugstr_w(squished_pc));
|
|
|
|
sprintfW(keypath,szInstaller_Features_fmt,squished_pc);
|
|
|
|
if (create)
|
|
rc = RegCreateKeyW(HKEY_LOCAL_MACHINE,keypath,key);
|
|
else
|
|
rc = RegOpenKeyW(HKEY_LOCAL_MACHINE,keypath,key);
|
|
|
|
return rc;
|
|
}
|
|
|
|
UINT MSIREG_OpenComponents(HKEY* key)
|
|
{
|
|
return RegCreateKeyW(HKEY_LOCAL_MACHINE,szInstaller_Components,key);
|
|
}
|
|
|
|
UINT MSIREG_OpenComponentsKey(LPCWSTR szComponent, HKEY* key, BOOL create)
|
|
{
|
|
UINT rc;
|
|
WCHAR squished_cc[GUID_SIZE];
|
|
WCHAR keypath[0x200];
|
|
|
|
TRACE("%s\n",debugstr_w(szComponent));
|
|
squash_guid(szComponent,squished_cc);
|
|
TRACE("squished (%s)\n", debugstr_w(squished_cc));
|
|
|
|
sprintfW(keypath,szInstaller_Components_fmt,squished_cc);
|
|
|
|
if (create)
|
|
rc = RegCreateKeyW(HKEY_LOCAL_MACHINE,keypath,key);
|
|
else
|
|
rc = RegOpenKeyW(HKEY_LOCAL_MACHINE,keypath,key);
|
|
|
|
return rc;
|
|
}
|
|
|
|
UINT MSIREG_OpenUserComponentsKey(LPCWSTR szComponent, HKEY* key, BOOL create)
|
|
{
|
|
UINT rc;
|
|
WCHAR squished_cc[GUID_SIZE];
|
|
WCHAR keypath[0x200];
|
|
|
|
TRACE("%s\n",debugstr_w(szComponent));
|
|
squash_guid(szComponent,squished_cc);
|
|
TRACE("squished (%s)\n", debugstr_w(squished_cc));
|
|
|
|
sprintfW(keypath,szUser_Components_fmt,squished_cc);
|
|
|
|
if (create)
|
|
rc = RegCreateKeyW(HKEY_CURRENT_USER,keypath,key);
|
|
else
|
|
rc = RegOpenKeyW(HKEY_CURRENT_USER,keypath,key);
|
|
|
|
return rc;
|
|
}
|
|
|
|
UINT MSIREG_OpenProducts(HKEY* key)
|
|
{
|
|
return RegCreateKeyW(HKEY_LOCAL_MACHINE,szInstaller_Products,key);
|
|
}
|
|
|
|
UINT MSIREG_OpenProductsKey(LPCWSTR szProduct, HKEY* key, BOOL create)
|
|
{
|
|
UINT rc;
|
|
WCHAR squished_pc[GUID_SIZE];
|
|
WCHAR keypath[0x200];
|
|
|
|
TRACE("%s\n",debugstr_w(szProduct));
|
|
squash_guid(szProduct,squished_pc);
|
|
TRACE("squished (%s)\n", debugstr_w(squished_pc));
|
|
|
|
sprintfW(keypath,szInstaller_Products_fmt,squished_pc);
|
|
|
|
if (create)
|
|
rc = RegCreateKeyW(HKEY_LOCAL_MACHINE,keypath,key);
|
|
else
|
|
rc = RegOpenKeyW(HKEY_LOCAL_MACHINE,keypath,key);
|
|
|
|
return rc;
|
|
}
|
|
|
|
UINT MSIREG_OpenUpgradeCodesKey(LPCWSTR szUpgradeCode, HKEY* key, BOOL create)
|
|
{
|
|
UINT rc;
|
|
WCHAR squished_pc[GUID_SIZE];
|
|
WCHAR keypath[0x200];
|
|
|
|
TRACE("%s\n",debugstr_w(szUpgradeCode));
|
|
squash_guid(szUpgradeCode,squished_pc);
|
|
TRACE("squished (%s)\n", debugstr_w(squished_pc));
|
|
|
|
sprintfW(keypath,szInstaller_UpgradeCodes_fmt,squished_pc);
|
|
|
|
if (create)
|
|
rc = RegCreateKeyW(HKEY_LOCAL_MACHINE,keypath,key);
|
|
else
|
|
rc = RegOpenKeyW(HKEY_LOCAL_MACHINE,keypath,key);
|
|
|
|
return rc;
|
|
}
|
|
|
|
UINT MSIREG_OpenUserUpgradeCodesKey(LPCWSTR szUpgradeCode, HKEY* key, BOOL create)
|
|
{
|
|
UINT rc;
|
|
WCHAR squished_pc[GUID_SIZE];
|
|
WCHAR keypath[0x200];
|
|
|
|
TRACE("%s\n",debugstr_w(szUpgradeCode));
|
|
squash_guid(szUpgradeCode,squished_pc);
|
|
TRACE("squished (%s)\n", debugstr_w(squished_pc));
|
|
|
|
sprintfW(keypath,szInstaller_UserUpgradeCodes_fmt,squished_pc);
|
|
|
|
if (create)
|
|
rc = RegCreateKeyW(HKEY_CURRENT_USER,keypath,key);
|
|
else
|
|
rc = RegOpenKeyW(HKEY_CURRENT_USER,keypath,key);
|
|
|
|
return rc;
|
|
}
|
|
|
|
|
|
/*************************************************************************
|
|
* MsiDecomposeDescriptorW [MSI.@]
|
|
*
|
|
* Decomposes an MSI descriptor into product, feature and component parts.
|
|
* An MSI descriptor is a string of the form:
|
|
* [base 85 guid] [feature code] '>' [base 85 guid]
|
|
*
|
|
* PARAMS
|
|
* szDescriptor [I] the descriptor to decompose
|
|
* szProduct [O] buffer of MAX_FEATURE_CHARS+1 for the product guid
|
|
* szFeature [O] buffer of MAX_FEATURE_CHARS+1 for the feature code
|
|
* szComponent [O] buffer of MAX_FEATURE_CHARS+1 for the component guid
|
|
* pUsed [O] the length of the descriptor
|
|
*
|
|
* RETURNS
|
|
* ERROR_SUCCESS if everything worked correctly
|
|
* ERROR_INVALID_PARAMETER if the descriptor was invalid
|
|
*
|
|
*/
|
|
UINT WINAPI MsiDecomposeDescriptorW( LPCWSTR szDescriptor, LPWSTR szProduct,
|
|
LPWSTR szFeature, LPWSTR szComponent, DWORD *pUsed )
|
|
{
|
|
UINT r, len;
|
|
LPWSTR p;
|
|
GUID product, component;
|
|
|
|
TRACE("%s %p %p %p %p\n", debugstr_w(szDescriptor), szProduct,
|
|
szFeature, szComponent, pUsed);
|
|
|
|
r = decode_base85_guid( szDescriptor, &product );
|
|
if( !r )
|
|
return ERROR_INVALID_PARAMETER;
|
|
|
|
TRACE("product %s\n", debugstr_guid( &product ));
|
|
|
|
p = strchrW(&szDescriptor[20],'>');
|
|
if( !p )
|
|
return ERROR_INVALID_PARAMETER;
|
|
|
|
len = (p - &szDescriptor[20]);
|
|
if( len > MAX_FEATURE_CHARS )
|
|
return ERROR_INVALID_PARAMETER;
|
|
|
|
TRACE("feature %s\n", debugstr_wn( &szDescriptor[20], len ));
|
|
|
|
r = decode_base85_guid( p+1, &component );
|
|
if( !r )
|
|
return ERROR_INVALID_PARAMETER;
|
|
|
|
TRACE("component %s\n", debugstr_guid( &component ));
|
|
|
|
if (szProduct)
|
|
StringFromGUID2( &product, szProduct, MAX_FEATURE_CHARS+1 );
|
|
if (szComponent)
|
|
StringFromGUID2( &component, szComponent, MAX_FEATURE_CHARS+1 );
|
|
if (szFeature)
|
|
{
|
|
memcpy( szFeature, &szDescriptor[20], len*sizeof(WCHAR) );
|
|
szFeature[len] = 0;
|
|
}
|
|
len = ( &p[21] - szDescriptor );
|
|
|
|
TRACE("length = %d\n", len);
|
|
*pUsed = len;
|
|
|
|
return ERROR_SUCCESS;
|
|
}
|
|
|
|
UINT WINAPI MsiDecomposeDescriptorA( LPCSTR szDescriptor, LPSTR szProduct,
|
|
LPSTR szFeature, LPSTR szComponent, DWORD *pUsed )
|
|
{
|
|
WCHAR product[MAX_FEATURE_CHARS+1];
|
|
WCHAR feature[MAX_FEATURE_CHARS+1];
|
|
WCHAR component[MAX_FEATURE_CHARS+1];
|
|
LPWSTR str = NULL, p = NULL, f = NULL, c = NULL;
|
|
UINT r;
|
|
|
|
TRACE("%s %p %p %p %p\n", debugstr_a(szDescriptor), szProduct,
|
|
szFeature, szComponent, pUsed);
|
|
|
|
str = strdupAtoW( szDescriptor );
|
|
if( szDescriptor && !str )
|
|
return ERROR_OUTOFMEMORY;
|
|
|
|
if (szProduct)
|
|
p = product;
|
|
if (szFeature)
|
|
f = feature;
|
|
if (szComponent)
|
|
c = component;
|
|
|
|
r = MsiDecomposeDescriptorW( str, p, f, c, pUsed );
|
|
|
|
if (r == ERROR_SUCCESS)
|
|
{
|
|
WideCharToMultiByte( CP_ACP, 0, p, -1,
|
|
szProduct, MAX_FEATURE_CHARS+1, NULL, NULL );
|
|
WideCharToMultiByte( CP_ACP, 0, f, -1,
|
|
szFeature, MAX_FEATURE_CHARS+1, NULL, NULL );
|
|
WideCharToMultiByte( CP_ACP, 0, c, -1,
|
|
szComponent, MAX_FEATURE_CHARS+1, NULL, NULL );
|
|
}
|
|
|
|
msi_free( str );
|
|
|
|
return r;
|
|
}
|
|
|
|
UINT WINAPI MsiEnumProductsA(DWORD index, LPSTR lpguid)
|
|
{
|
|
DWORD r;
|
|
WCHAR szwGuid[GUID_SIZE];
|
|
|
|
TRACE("%d %p\n", index, lpguid);
|
|
|
|
if (NULL == lpguid)
|
|
return ERROR_INVALID_PARAMETER;
|
|
r = MsiEnumProductsW(index, szwGuid);
|
|
if( r == ERROR_SUCCESS )
|
|
WideCharToMultiByte(CP_ACP, 0, szwGuid, -1, lpguid, GUID_SIZE, NULL, NULL);
|
|
|
|
return r;
|
|
}
|
|
|
|
UINT WINAPI MsiEnumProductsW(DWORD index, LPWSTR lpguid)
|
|
{
|
|
HKEY hkeyProducts = 0;
|
|
DWORD r;
|
|
WCHAR szKeyName[SQUISH_GUID_SIZE];
|
|
|
|
TRACE("%d %p\n", index, lpguid);
|
|
|
|
if (NULL == lpguid)
|
|
return ERROR_INVALID_PARAMETER;
|
|
|
|
r = MSIREG_OpenProducts(&hkeyProducts);
|
|
if( r != ERROR_SUCCESS )
|
|
return ERROR_NO_MORE_ITEMS;
|
|
|
|
r = RegEnumKeyW(hkeyProducts, index, szKeyName, SQUISH_GUID_SIZE);
|
|
if( r == ERROR_SUCCESS )
|
|
unsquash_guid(szKeyName, lpguid);
|
|
RegCloseKey(hkeyProducts);
|
|
|
|
return r;
|
|
}
|
|
|
|
UINT WINAPI MsiEnumFeaturesA(LPCSTR szProduct, DWORD index,
|
|
LPSTR szFeature, LPSTR szParent)
|
|
{
|
|
DWORD r;
|
|
WCHAR szwFeature[GUID_SIZE], szwParent[GUID_SIZE];
|
|
LPWSTR szwProduct = NULL;
|
|
|
|
TRACE("%s %d %p %p\n", debugstr_a(szProduct), index, szFeature, szParent);
|
|
|
|
if( szProduct )
|
|
{
|
|
szwProduct = strdupAtoW( szProduct );
|
|
if( !szwProduct )
|
|
return ERROR_OUTOFMEMORY;
|
|
}
|
|
|
|
r = MsiEnumFeaturesW(szwProduct, index, szwFeature, szwParent);
|
|
if( r == ERROR_SUCCESS )
|
|
{
|
|
WideCharToMultiByte(CP_ACP, 0, szwFeature, -1,
|
|
szFeature, GUID_SIZE, NULL, NULL);
|
|
WideCharToMultiByte(CP_ACP, 0, szwParent, -1,
|
|
szParent, GUID_SIZE, NULL, NULL);
|
|
}
|
|
|
|
msi_free( szwProduct);
|
|
|
|
return r;
|
|
}
|
|
|
|
UINT WINAPI MsiEnumFeaturesW(LPCWSTR szProduct, DWORD index,
|
|
LPWSTR szFeature, LPWSTR szParent)
|
|
{
|
|
HKEY hkeyProduct = 0;
|
|
DWORD r, sz;
|
|
|
|
TRACE("%s %d %p %p\n", debugstr_w(szProduct), index, szFeature, szParent);
|
|
|
|
if( !szProduct )
|
|
return ERROR_INVALID_PARAMETER;
|
|
|
|
r = MSIREG_OpenFeaturesKey(szProduct,&hkeyProduct,FALSE);
|
|
if( r != ERROR_SUCCESS )
|
|
return ERROR_NO_MORE_ITEMS;
|
|
|
|
sz = GUID_SIZE;
|
|
r = RegEnumValueW(hkeyProduct, index, szFeature, &sz, NULL, NULL, NULL, NULL);
|
|
RegCloseKey(hkeyProduct);
|
|
|
|
return r;
|
|
}
|
|
|
|
UINT WINAPI MsiEnumComponentsA(DWORD index, LPSTR lpguid)
|
|
{
|
|
DWORD r;
|
|
WCHAR szwGuid[GUID_SIZE];
|
|
|
|
TRACE("%d %p\n", index, lpguid);
|
|
|
|
r = MsiEnumComponentsW(index, szwGuid);
|
|
if( r == ERROR_SUCCESS )
|
|
WideCharToMultiByte(CP_ACP, 0, szwGuid, -1, lpguid, GUID_SIZE, NULL, NULL);
|
|
|
|
return r;
|
|
}
|
|
|
|
UINT WINAPI MsiEnumComponentsW(DWORD index, LPWSTR lpguid)
|
|
{
|
|
HKEY hkeyComponents = 0;
|
|
DWORD r;
|
|
WCHAR szKeyName[SQUISH_GUID_SIZE];
|
|
|
|
TRACE("%d %p\n", index, lpguid);
|
|
|
|
r = MSIREG_OpenComponents(&hkeyComponents);
|
|
if( r != ERROR_SUCCESS )
|
|
return ERROR_NO_MORE_ITEMS;
|
|
|
|
r = RegEnumKeyW(hkeyComponents, index, szKeyName, SQUISH_GUID_SIZE);
|
|
if( r == ERROR_SUCCESS )
|
|
unsquash_guid(szKeyName, lpguid);
|
|
RegCloseKey(hkeyComponents);
|
|
|
|
return r;
|
|
}
|
|
|
|
UINT WINAPI MsiEnumClientsA(LPCSTR szComponent, DWORD index, LPSTR szProduct)
|
|
{
|
|
DWORD r;
|
|
WCHAR szwProduct[GUID_SIZE];
|
|
LPWSTR szwComponent = NULL;
|
|
|
|
TRACE("%s %d %p\n", debugstr_a(szComponent), index, szProduct);
|
|
|
|
if( szComponent )
|
|
{
|
|
szwComponent = strdupAtoW( szComponent );
|
|
if( !szwComponent )
|
|
return ERROR_OUTOFMEMORY;
|
|
}
|
|
|
|
r = MsiEnumClientsW(szComponent?szwComponent:NULL, index, szwProduct);
|
|
if( r == ERROR_SUCCESS )
|
|
{
|
|
WideCharToMultiByte(CP_ACP, 0, szwProduct, -1,
|
|
szProduct, GUID_SIZE, NULL, NULL);
|
|
}
|
|
|
|
msi_free( szwComponent);
|
|
|
|
return r;
|
|
}
|
|
|
|
UINT WINAPI MsiEnumClientsW(LPCWSTR szComponent, DWORD index, LPWSTR szProduct)
|
|
{
|
|
HKEY hkeyComp = 0;
|
|
DWORD r, sz;
|
|
WCHAR szValName[SQUISH_GUID_SIZE];
|
|
|
|
TRACE("%s %d %p\n", debugstr_w(szComponent), index, szProduct);
|
|
|
|
r = MSIREG_OpenComponentsKey(szComponent,&hkeyComp,FALSE);
|
|
if( r != ERROR_SUCCESS )
|
|
return ERROR_NO_MORE_ITEMS;
|
|
|
|
sz = SQUISH_GUID_SIZE;
|
|
r = RegEnumValueW(hkeyComp, index, szValName, &sz, NULL, NULL, NULL, NULL);
|
|
if( r == ERROR_SUCCESS )
|
|
unsquash_guid(szValName, szProduct);
|
|
|
|
RegCloseKey(hkeyComp);
|
|
|
|
return r;
|
|
}
|
|
|
|
static UINT WINAPI MSI_EnumComponentQualifiers( LPCWSTR szComponent, DWORD iIndex,
|
|
awstring *lpQualBuf, DWORD* pcchQual,
|
|
awstring *lpAppBuf, DWORD* pcchAppBuf )
|
|
{
|
|
DWORD name_sz, val_sz, name_max, val_max, type, ofs;
|
|
LPWSTR name = NULL, val = NULL;
|
|
UINT r, r2;
|
|
HKEY key;
|
|
|
|
TRACE("%s %08x %p %p %p %p\n", debugstr_w(szComponent), iIndex,
|
|
lpQualBuf, pcchQual, lpAppBuf, pcchAppBuf);
|
|
|
|
if (!szComponent)
|
|
return ERROR_INVALID_PARAMETER;
|
|
|
|
r = MSIREG_OpenUserComponentsKey( szComponent, &key, FALSE );
|
|
if (r != ERROR_SUCCESS)
|
|
return ERROR_UNKNOWN_COMPONENT;
|
|
|
|
/* figure out how big the name is we want to return */
|
|
name_max = 0x10;
|
|
r = ERROR_OUTOFMEMORY;
|
|
name = msi_alloc( name_max * sizeof(WCHAR) );
|
|
if (!name)
|
|
goto end;
|
|
|
|
val_max = 0x10;
|
|
r = ERROR_OUTOFMEMORY;
|
|
val = msi_alloc( val_max );
|
|
if (!val)
|
|
goto end;
|
|
|
|
/* loop until we allocate enough memory */
|
|
while (1)
|
|
{
|
|
name_sz = name_max;
|
|
val_sz = val_max;
|
|
r = RegEnumValueW( key, iIndex, name, &name_sz,
|
|
NULL, &type, (LPBYTE)val, &val_sz );
|
|
if (r == ERROR_SUCCESS)
|
|
break;
|
|
if (r != ERROR_MORE_DATA)
|
|
goto end;
|
|
|
|
if (type != REG_MULTI_SZ)
|
|
{
|
|
ERR("component data has wrong type (%d)\n", type);
|
|
goto end;
|
|
}
|
|
|
|
r = ERROR_OUTOFMEMORY;
|
|
if ((name_sz+1) >= name_max)
|
|
{
|
|
name_max *= 2;
|
|
msi_free( name );
|
|
name = msi_alloc( name_max * sizeof (WCHAR) );
|
|
if (!name)
|
|
goto end;
|
|
continue;
|
|
}
|
|
if (val_sz > val_max)
|
|
{
|
|
val_max = val_sz + sizeof (WCHAR);
|
|
msi_free( val );
|
|
val = msi_alloc( val_max * sizeof (WCHAR) );
|
|
if (!val)
|
|
goto end;
|
|
continue;
|
|
}
|
|
ERR("should be enough data, but isn't %d %d\n", name_sz, val_sz );
|
|
goto end;
|
|
}
|
|
|
|
ofs = 0;
|
|
r = MsiDecomposeDescriptorW( val, NULL, NULL, NULL, &ofs );
|
|
if (r != ERROR_SUCCESS)
|
|
goto end;
|
|
|
|
TRACE("Providing %s and %s\n", debugstr_w(name), debugstr_w(val+ofs));
|
|
|
|
r = msi_strcpy_to_awstring( name, lpQualBuf, pcchQual );
|
|
r2 = msi_strcpy_to_awstring( val+ofs, lpAppBuf, pcchAppBuf );
|
|
|
|
if (r2 != ERROR_SUCCESS)
|
|
r = r2;
|
|
|
|
end:
|
|
msi_free(val);
|
|
msi_free(name);
|
|
RegCloseKey(key);
|
|
|
|
return r;
|
|
}
|
|
|
|
/*************************************************************************
|
|
* MsiEnumComponentQualifiersA [MSI.@]
|
|
*/
|
|
UINT WINAPI MsiEnumComponentQualifiersA( LPCSTR szComponent, DWORD iIndex,
|
|
LPSTR lpQualifierBuf, DWORD* pcchQualifierBuf,
|
|
LPSTR lpApplicationDataBuf, DWORD* pcchApplicationDataBuf )
|
|
{
|
|
awstring qual, appdata;
|
|
LPWSTR comp;
|
|
UINT r;
|
|
|
|
TRACE("%s %08x %p %p %p %p\n", debugstr_a(szComponent), iIndex,
|
|
lpQualifierBuf, pcchQualifierBuf, lpApplicationDataBuf,
|
|
pcchApplicationDataBuf);
|
|
|
|
comp = strdupAtoW( szComponent );
|
|
if (szComponent && !comp)
|
|
return ERROR_OUTOFMEMORY;
|
|
|
|
qual.unicode = FALSE;
|
|
qual.str.a = lpQualifierBuf;
|
|
|
|
appdata.unicode = FALSE;
|
|
appdata.str.a = lpApplicationDataBuf;
|
|
|
|
r = MSI_EnumComponentQualifiers( comp, iIndex,
|
|
&qual, pcchQualifierBuf, &appdata, pcchApplicationDataBuf );
|
|
msi_free( comp );
|
|
return r;
|
|
}
|
|
|
|
/*************************************************************************
|
|
* MsiEnumComponentQualifiersW [MSI.@]
|
|
*/
|
|
UINT WINAPI MsiEnumComponentQualifiersW( LPCWSTR szComponent, DWORD iIndex,
|
|
LPWSTR lpQualifierBuf, DWORD* pcchQualifierBuf,
|
|
LPWSTR lpApplicationDataBuf, DWORD* pcchApplicationDataBuf )
|
|
{
|
|
awstring qual, appdata;
|
|
|
|
TRACE("%s %08x %p %p %p %p\n", debugstr_w(szComponent), iIndex,
|
|
lpQualifierBuf, pcchQualifierBuf, lpApplicationDataBuf,
|
|
pcchApplicationDataBuf);
|
|
|
|
qual.unicode = TRUE;
|
|
qual.str.w = lpQualifierBuf;
|
|
|
|
appdata.unicode = TRUE;
|
|
appdata.str.w = lpApplicationDataBuf;
|
|
|
|
return MSI_EnumComponentQualifiers( szComponent, iIndex,
|
|
&qual, pcchQualifierBuf, &appdata, pcchApplicationDataBuf );
|
|
}
|
|
|
|
/*************************************************************************
|
|
* MsiEnumRelatedProductsW [MSI.@]
|
|
*
|
|
*/
|
|
UINT WINAPI MsiEnumRelatedProductsW(LPCWSTR szUpgradeCode, DWORD dwReserved,
|
|
DWORD iProductIndex, LPWSTR lpProductBuf)
|
|
{
|
|
UINT r;
|
|
HKEY hkey;
|
|
DWORD dwSize = SQUISH_GUID_SIZE;
|
|
WCHAR szKeyName[SQUISH_GUID_SIZE];
|
|
|
|
TRACE("%s %u %u %p\n", debugstr_w(szUpgradeCode), dwReserved,
|
|
iProductIndex, lpProductBuf);
|
|
|
|
if (NULL == szUpgradeCode)
|
|
return ERROR_INVALID_PARAMETER;
|
|
if (NULL == lpProductBuf)
|
|
return ERROR_INVALID_PARAMETER;
|
|
|
|
r = MSIREG_OpenUpgradeCodesKey(szUpgradeCode, &hkey, FALSE);
|
|
if (r != ERROR_SUCCESS)
|
|
return ERROR_NO_MORE_ITEMS;
|
|
|
|
r = RegEnumValueW(hkey, iProductIndex, szKeyName, &dwSize, NULL, NULL, NULL, NULL);
|
|
if( r == ERROR_SUCCESS )
|
|
unsquash_guid(szKeyName, lpProductBuf);
|
|
RegCloseKey(hkey);
|
|
|
|
return r;
|
|
}
|
|
|
|
/*************************************************************************
|
|
* MsiEnumRelatedProductsA [MSI.@]
|
|
*
|
|
*/
|
|
UINT WINAPI MsiEnumRelatedProductsA(LPCSTR szUpgradeCode, DWORD dwReserved,
|
|
DWORD iProductIndex, LPSTR lpProductBuf)
|
|
{
|
|
LPWSTR szwUpgradeCode = NULL;
|
|
WCHAR productW[GUID_SIZE];
|
|
UINT r;
|
|
|
|
TRACE("%s %u %u %p\n", debugstr_a(szUpgradeCode), dwReserved,
|
|
iProductIndex, lpProductBuf);
|
|
|
|
if (szUpgradeCode)
|
|
{
|
|
szwUpgradeCode = strdupAtoW( szUpgradeCode );
|
|
if( !szwUpgradeCode )
|
|
return ERROR_OUTOFMEMORY;
|
|
}
|
|
|
|
r = MsiEnumRelatedProductsW( szwUpgradeCode, dwReserved,
|
|
iProductIndex, productW );
|
|
if (r == ERROR_SUCCESS)
|
|
{
|
|
WideCharToMultiByte( CP_ACP, 0, productW, GUID_SIZE,
|
|
lpProductBuf, GUID_SIZE, NULL, NULL );
|
|
}
|
|
msi_free( szwUpgradeCode);
|
|
return r;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* MsiEnumPatchesA [MSI.@]
|
|
*/
|
|
UINT WINAPI MsiEnumPatchesA( LPCSTR szProduct, DWORD iPatchIndex,
|
|
LPSTR lpPatchBuf, LPSTR lpTransformsBuf, DWORD* pcchTransformsBuf)
|
|
{
|
|
FIXME("%s %d %p %p %p\n", debugstr_a(szProduct),
|
|
iPatchIndex, lpPatchBuf, lpTransformsBuf, pcchTransformsBuf);
|
|
return ERROR_NO_MORE_ITEMS;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* MsiEnumPatchesW [MSI.@]
|
|
*/
|
|
UINT WINAPI MsiEnumPatchesW( LPCWSTR szProduct, DWORD iPatchIndex,
|
|
LPWSTR lpPatchBuf, LPWSTR lpTransformsBuf, DWORD* pcchTransformsBuf)
|
|
{
|
|
FIXME("%s %d %p %p %p\n", debugstr_w(szProduct),
|
|
iPatchIndex, lpPatchBuf, lpTransformsBuf, pcchTransformsBuf);
|
|
return ERROR_NO_MORE_ITEMS;
|
|
}
|
|
|
|
UINT WINAPI MsiEnumProductsExA( LPCSTR szProductCode, LPCSTR szUserSid,
|
|
DWORD dwContext, DWORD dwIndex, LPSTR szInstalledProductCode,
|
|
MSIINSTALLCONTEXT* pdwInstalledContext, LPSTR szSid, LPDWORD pcchSid)
|
|
{
|
|
FIXME("%s %s %d %d %p %p %p %p\n", debugstr_a(szProductCode), debugstr_a(szUserSid),
|
|
dwContext, dwIndex, szInstalledProductCode, pdwInstalledContext,
|
|
szSid, pcchSid);
|
|
return ERROR_NO_MORE_ITEMS;
|
|
}
|
|
|
|
UINT WINAPI MsiEnumProductsExW( LPCWSTR szProductCode, LPCWSTR szUserSid,
|
|
DWORD dwContext, DWORD dwIndex, LPWSTR szInstalledProductCode,
|
|
MSIINSTALLCONTEXT* pdwInstalledContext, LPWSTR szSid, LPDWORD pcchSid)
|
|
{
|
|
FIXME("%s %s %d %d %p %p %p %p\n", debugstr_w(szProductCode), debugstr_w(szUserSid),
|
|
dwContext, dwIndex, szInstalledProductCode, pdwInstalledContext,
|
|
szSid, pcchSid);
|
|
return ERROR_NO_MORE_ITEMS;
|
|
}
|