kernel: Use a standard LoadLibrary call to load the main exe.
[wine] / 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  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 "action.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     LPWSTR  path;
50     WCHAR   szIndex[10];
51     WCHAR   type;
52 } media_info;
53
54 static UINT OpenSourceKey(LPCWSTR szProduct, HKEY* key, BOOL user, BOOL create)
55 {
56     HKEY rootkey = 0; 
57     UINT rc; 
58     static const WCHAR szSourceList[] = {'S','o','u','r','c','e','L','i','s','t',0};
59
60     if (user)
61         rc = MSIREG_OpenUserProductsKey(szProduct, &rootkey, create);
62     else
63         rc = MSIREG_OpenProductsKey(szProduct, &rootkey, create);
64
65     if (rc)
66         return rc;
67
68     if (create)
69         rc = RegCreateKeyW(rootkey, szSourceList, key);
70     else
71         rc = RegOpenKeyW(rootkey,szSourceList, key); 
72
73     return rc;
74 }
75
76 static UINT OpenMediaSubkey(HKEY rootkey, HKEY *key, BOOL create)
77 {
78     UINT rc;
79     static const WCHAR media[] = {'M','e','d','i','a',0};
80
81     if (create)
82         rc = RegCreateKeyW(rootkey, media, key);
83     else
84         rc = RegOpenKeyW(rootkey,media, key); 
85
86     return rc;
87 }
88
89 static UINT OpenNetworkSubkey(HKEY rootkey, HKEY *key, BOOL create)
90 {
91     UINT rc;
92     static const WCHAR net[] = {'N','e','t',0};
93
94     if (create)
95         rc = RegCreateKeyW(rootkey, net, key);
96     else
97         rc = RegOpenKeyW(rootkey, net, key); 
98
99     return rc;
100 }
101
102 static UINT OpenURLSubkey(HKEY rootkey, HKEY *key, BOOL create)
103 {
104     UINT rc;
105     static const WCHAR URL[] = {'U','R','L',0};
106
107     if (create)
108         rc = RegCreateKeyW(rootkey, URL, key);
109     else
110         rc = RegOpenKeyW(rootkey, URL, key); 
111
112     return rc;
113 }
114
115
116 static UINT find_given_source(HKEY key, LPCWSTR szSource, media_info *ss)
117 {
118     DWORD index = 0;
119     WCHAR szIndex[10];
120     DWORD size;
121     DWORD val_size;
122     LPWSTR val;
123     UINT rc = ERROR_SUCCESS;
124
125     while (rc == ERROR_SUCCESS)
126     {
127         val = NULL;
128         val_size = 0;
129         rc = RegEnumValueW(key, index, szIndex, &size, NULL, NULL, NULL, &val_size);
130         if (rc != ERROR_NO_MORE_ITEMS)
131         {
132             val = msi_alloc(val_size);
133             RegEnumValueW(key, index, szIndex, &size, NULL, NULL, (LPBYTE)val, 
134                 &val_size);
135             if (lstrcmpiW(szSource,val)==0)
136             {
137                 ss->path = val;
138                 strcpyW(ss->szIndex,szIndex);
139                 break;
140             }
141             else
142                 strcpyW(ss->szIndex,szIndex);
143
144             msi_free(val);
145             index ++;
146         }
147     }
148     return rc;
149 }
150
151 /******************************************************************
152  *  MsiSourceListGetInfoW   (MSI.@)
153  */
154 UINT WINAPI MsiSourceListGetInfoW( LPCWSTR szProduct, LPCWSTR szUserSid,
155                                    MSIINSTALLCONTEXT dwContext, DWORD dwOptions,
156                                    LPCWSTR szProperty, LPWSTR szValue, 
157                                    LPDWORD pcchValue) 
158 {
159     HKEY sourcekey;
160     UINT rc;
161
162     TRACE("%s %s\n", debugstr_w(szProduct), debugstr_w(szProperty));
163
164     if (!szProduct || lstrlenW(szProduct) > 39)
165         return ERROR_INVALID_PARAMETER;
166
167     if (szValue && !pcchValue)
168         return ERROR_INVALID_PARAMETER;
169     
170     if (dwOptions == MSICODE_PATCH)
171     {
172         FIXME("Unhandled options MSICODE_PATCH\n");
173         return ERROR_FUNCTION_FAILED;
174     }
175     
176     if (szUserSid)
177         FIXME("Unhandled UserSid %s\n",debugstr_w(szUserSid));
178
179     if (dwContext == MSIINSTALLCONTEXT_USERUNMANAGED)
180         FIXME("Unknown context MSIINSTALLCONTEXT_USERUNMANAGED\n");
181
182     if (dwContext == MSIINSTALLCONTEXT_MACHINE)
183         rc = OpenSourceKey(szProduct, &sourcekey, FALSE, FALSE);
184     else
185         rc = OpenSourceKey(szProduct, &sourcekey, TRUE, FALSE);
186
187     if (rc != ERROR_SUCCESS)
188         return ERROR_UNKNOWN_PRODUCT;
189
190     if (strcmpW(szProperty, INSTALLPROPERTY_MEDIAPACKAGEPATHW) == 0)
191     {
192         HKEY key;
193         rc = OpenMediaSubkey(sourcekey, &key, FALSE);
194         if (rc == ERROR_SUCCESS)
195             rc = RegQueryValueExW(key, INSTALLPROPERTY_MEDIAPACKAGEPATHW,
196                     0, 0, (LPBYTE)szValue, pcchValue);
197         if (rc != ERROR_SUCCESS && rc != ERROR_MORE_DATA)
198             rc = ERROR_UNKNOWN_PROPERTY;
199         RegCloseKey(key);
200     }
201     else if (strcmpW(szProperty, INSTALLPROPERTY_DISKPROMPTW) ==0)
202     {
203         HKEY key;
204         rc = OpenMediaSubkey(sourcekey, &key, FALSE);
205         if (rc == ERROR_SUCCESS)
206             rc = RegQueryValueExW(key, INSTALLPROPERTY_DISKPROMPTW, 0, 0,
207                     (LPBYTE)szValue, pcchValue);
208         if (rc != ERROR_SUCCESS && rc != ERROR_MORE_DATA)
209             rc = ERROR_UNKNOWN_PROPERTY;
210         RegCloseKey(key);
211     }
212     else if (strcmpW(szProperty, INSTALLPROPERTY_LASTUSEDSOURCEW)==0)
213     {
214         LPWSTR buffer;
215         DWORD size = 0;
216
217         RegQueryValueExW(sourcekey, INSTALLPROPERTY_LASTUSEDSOURCEW, 0, 0,
218                 NULL, &size);
219         if (size == 0)
220             rc = ERROR_UNKNOWN_PROPERTY;
221         else
222         {
223             LPWSTR ptr;
224             buffer = msi_alloc(size);
225             rc = RegQueryValueExW(sourcekey, INSTALLPROPERTY_LASTUSEDSOURCEW,
226                     0, 0, (LPBYTE)buffer,&size); 
227             ptr = strchrW(buffer,';');
228             if (ptr) ptr = strchrW(ptr+1,';');
229             if (!ptr)
230                 rc = ERROR_UNKNOWN_PROPERTY;
231             else
232             {
233                 ptr ++;
234                 lstrcpynW(szValue, ptr, *pcchValue);
235                 if (lstrlenW(ptr) > *pcchValue)
236                 {
237                     *pcchValue = lstrlenW(ptr)+1;
238                     rc = ERROR_MORE_DATA;
239                 }
240                 else
241                     rc = ERROR_SUCCESS;
242             }
243             msi_free(buffer);
244         }
245     }
246     else if (strcmpW(INSTALLPROPERTY_LASTUSEDTYPEW, szProperty)==0)
247     {
248         LPWSTR buffer;
249         DWORD size = 0;
250
251         RegQueryValueExW(sourcekey, INSTALLPROPERTY_LASTUSEDSOURCEW, 0, 0,
252                 NULL, &size);
253         if (size == 0)
254             rc = ERROR_UNKNOWN_PROPERTY;
255         else
256         {
257             buffer = msi_alloc(size);
258             rc = RegQueryValueExW(sourcekey, INSTALLPROPERTY_LASTUSEDSOURCEW,
259                     0, 0, (LPBYTE)buffer,&size); 
260             if (*pcchValue < 1)
261             {
262                 rc = ERROR_MORE_DATA;
263                 *pcchValue = 1;
264             }
265             else
266             {
267                 szValue[0] = buffer[0];
268                 rc = ERROR_SUCCESS;
269             }
270             msi_free(buffer);
271         }
272     }
273     else if (strcmpW(INSTALLPROPERTY_PACKAGENAMEW, szProperty)==0)
274     {
275         rc = RegQueryValueExW(sourcekey, INSTALLPROPERTY_PACKAGENAMEW, 0, 0, 
276                 (LPBYTE)szValue, pcchValue);
277         if (rc != ERROR_SUCCESS && rc != ERROR_MORE_DATA)
278             rc = ERROR_UNKNOWN_PROPERTY;
279     }
280     else
281     {
282         FIXME("Unknown property %s\n",debugstr_w(szProperty));
283         rc = ERROR_UNKNOWN_PROPERTY;
284     }
285
286     RegCloseKey(sourcekey);
287     return rc;
288 }
289
290 /******************************************************************
291  *  MsiSourceListSetInfoW   (MSI.@)
292  */
293 UINT WINAPI MsiSourceListSetInfoW( LPCWSTR szProduct, LPCWSTR szUserSid,
294                                    MSIINSTALLCONTEXT dwContext, DWORD dwOptions,
295                                    LPCWSTR szProperty, LPCWSTR szValue)
296 {
297     HKEY sourcekey;
298     UINT rc;
299
300     TRACE("%s %s %x %lx %s %s\n", debugstr_w(szProduct), debugstr_w(szUserSid), 
301             dwContext, dwOptions, debugstr_w(szProperty), debugstr_w(szValue));
302
303     if (!szProduct || lstrlenW(szProduct) > 39)
304         return ERROR_INVALID_PARAMETER;
305
306     if (dwOptions & MSICODE_PATCH)
307     {
308         FIXME("Unhandled options MSICODE_PATCH\n");
309         return ERROR_FUNCTION_FAILED;
310     }
311     
312     if (szUserSid)
313         FIXME("Unhandled UserSid %s\n",debugstr_w(szUserSid));
314
315     if (dwContext == MSIINSTALLCONTEXT_USERUNMANAGED)
316         FIXME("Unknown context MSIINSTALLCONTEXT_USERUNMANAGED\n");
317
318     if (dwContext == MSIINSTALLCONTEXT_MACHINE)
319         rc = OpenSourceKey(szProduct, &sourcekey, FALSE, TRUE);
320     else
321         rc = OpenSourceKey(szProduct, &sourcekey, TRUE, TRUE);
322
323     if (rc != ERROR_SUCCESS)
324         return ERROR_UNKNOWN_PRODUCT;
325
326
327     if (strcmpW(szProperty, INSTALLPROPERTY_MEDIAPACKAGEPATHW) == 0)
328     {
329         HKEY key;
330         DWORD size = lstrlenW(szValue)*sizeof(WCHAR);
331         rc = OpenMediaSubkey(sourcekey, &key, FALSE);
332         if (rc == ERROR_SUCCESS)
333             rc = RegSetValueExW(key, INSTALLPROPERTY_MEDIAPACKAGEPATHW, 0,
334                     REG_SZ, (LPBYTE)szValue, size);
335         if (rc != ERROR_SUCCESS)
336             rc = ERROR_UNKNOWN_PROPERTY;
337         RegCloseKey(key);
338     }
339     else if (strcmpW(szProperty, INSTALLPROPERTY_DISKPROMPTW) == 0)
340     {
341         HKEY key;
342         DWORD size = lstrlenW(szValue)*sizeof(WCHAR);
343         rc = OpenMediaSubkey(sourcekey, &key, FALSE);
344         if (rc == ERROR_SUCCESS)
345             rc = RegSetValueExW(key, INSTALLPROPERTY_DISKPROMPTW, 0,
346                     REG_SZ, (LPBYTE)szValue, size);
347         if (rc != ERROR_SUCCESS)
348             rc = ERROR_UNKNOWN_PROPERTY;
349         RegCloseKey(key);
350     }
351     else if (strcmpW(szProperty, INSTALLPROPERTY_LASTUSEDSOURCEW)==0)
352     {
353         LPWSTR buffer = NULL;
354         DWORD size;
355         WCHAR typechar = 'n';
356         static const WCHAR LastUsedSource_Fmt[] = {'%','c',';','%','i',';','%','s',0};
357
358         /* make sure the source is registered */
359         MsiSourceListAddSourceExW(szProduct, szUserSid, dwContext, 
360                 dwOptions, szValue, 0); 
361
362         if (dwOptions & MSISOURCETYPE_NETWORK)
363             typechar = 'n';
364         else if (dwOptions & MSISOURCETYPE_URL)
365             typechar = 'u';
366         else if (dwOptions & MSISOURCETYPE_MEDIA)
367             typechar = 'm';
368         else 
369             ERR("Unknown source type! 0x%lx\n",dwOptions);
370         
371         size = (lstrlenW(szValue)+5)*sizeof(WCHAR);
372         buffer = msi_alloc(size);
373         sprintfW(buffer, LastUsedSource_Fmt, typechar, 1, szValue);
374         rc = RegSetValueExW(sourcekey, INSTALLPROPERTY_LASTUSEDSOURCEW, 0, 
375                 REG_EXPAND_SZ, (LPBYTE)buffer, size);
376         if (rc != ERROR_SUCCESS)
377             rc = ERROR_UNKNOWN_PROPERTY;
378         msi_free( buffer );
379     }
380     else if (strcmpW(INSTALLPROPERTY_PACKAGENAMEW, szProperty)==0)
381     {
382         DWORD size = lstrlenW(szValue)*sizeof(WCHAR);
383         rc = RegSetValueExW(sourcekey, INSTALLPROPERTY_PACKAGENAMEW, 0,
384                 REG_SZ, (LPBYTE)szValue, size);
385         if (rc != ERROR_SUCCESS)
386             rc = ERROR_UNKNOWN_PROPERTY;
387     }
388     else
389     {
390         FIXME("Unknown property %s\n",debugstr_w(szProperty));
391         rc = ERROR_UNKNOWN_PROPERTY;
392     }
393
394     RegCloseKey(sourcekey);
395     return rc;
396
397 }
398
399 /******************************************************************
400  *  MsiSourceListAddSourceExW (MSI.@)
401  */
402 UINT WINAPI MsiSourceListAddSourceExW( LPCWSTR szProduct, LPCWSTR szUserSid,
403         MSIINSTALLCONTEXT dwContext, DWORD dwOptions, LPCWSTR szSource, 
404         DWORD dwIndex)
405 {
406     HKEY sourcekey;
407     HKEY typekey;
408     UINT rc;
409     media_info source_struct;
410    
411     TRACE("%s, %s, %x, %lx, %s, %li\n", debugstr_w(szProduct), 
412             debugstr_w(szUserSid), dwContext, dwOptions, debugstr_w(szSource), 
413             dwIndex);
414     
415     if (!szProduct)
416         return ERROR_INVALID_PARAMETER;
417
418     if (!szSource)
419         return ERROR_INVALID_PARAMETER;
420
421     if (dwOptions & MSICODE_PATCH)
422     {
423         FIXME("Unhandled options MSICODE_PATCH\n");
424         return ERROR_FUNCTION_FAILED;
425     }
426
427     if (szUserSid)
428         FIXME("Unhandled UserSid %s\n",debugstr_w(szUserSid));
429
430     if (dwContext == MSIINSTALLCONTEXT_USERUNMANAGED)
431         FIXME("Unknown context MSIINSTALLCONTEXT_USERUNMANAGED\n");
432
433     if (dwContext == MSIINSTALLCONTEXT_MACHINE)
434         rc = OpenSourceKey(szProduct, &sourcekey, FALSE, TRUE);
435     else
436         rc = OpenSourceKey(szProduct, &sourcekey, TRUE, TRUE);
437
438     if (rc != ERROR_SUCCESS)
439         return ERROR_UNKNOWN_PRODUCT;
440
441     if (dwOptions & MSISOURCETYPE_NETWORK)
442         rc = OpenNetworkSubkey(sourcekey, &typekey, TRUE);
443     else if (dwOptions & MSISOURCETYPE_URL)
444         rc = OpenURLSubkey(sourcekey, &typekey, TRUE);
445     else
446     {
447         ERR("unknown media type: %08lx\n", dwOptions);
448         RegCloseKey(sourcekey);
449         return ERROR_FUNCTION_FAILED;
450     }
451
452     source_struct.szIndex[0] = 0;
453     if (find_given_source(typekey, szSource, &source_struct)==ERROR_SUCCESS)
454     {
455         DWORD current_index = atoiW(source_struct.szIndex);
456         /* found the source */
457         if (dwIndex > 0 && current_index != dwIndex)
458             FIXME("Need to reorder the sources!\n");
459     }
460     else
461     {
462         DWORD current_index = 0;
463         static const WCHAR fmt[] = {'%','i',0};
464         DWORD size = lstrlenW(szSource)*sizeof(WCHAR);
465
466         if (source_struct.szIndex[0])
467             current_index = atoiW(source_struct.szIndex);
468         /* new source */
469         if (dwIndex > 0 && dwIndex < current_index)
470             FIXME("Need to reorder the sources!\n");
471
472         current_index ++;
473         sprintfW(source_struct.szIndex,fmt,current_index);
474         rc = RegSetValueExW(typekey, source_struct.szIndex, 0, REG_EXPAND_SZ, 
475                 (LPBYTE)szSource, size);
476     }
477
478     RegCloseKey(typekey);
479     RegCloseKey(sourcekey);
480     return rc;
481 }
482
483 /******************************************************************
484  *  MsiSourceListAddMediaDisk(MSI.@)
485  */
486 UINT WINAPI MsiSourceListAddMediaDiskW(LPCWSTR szProduct, LPCWSTR szUserSid, 
487         MSIINSTALLCONTEXT dwContext, DWORD dwOptions, DWORD dwDiskId, 
488         LPCWSTR szVolumeLabel, LPCWSTR szDiskPrompt)
489 {
490     HKEY sourcekey;
491     HKEY mediakey;
492     UINT rc;
493     WCHAR szIndex[10];
494     static const WCHAR fmt[] = {'%','i',0};
495     static const WCHAR disk_fmt[] = {'%','s',';','%','s',0};
496     static const WCHAR empty[1] = {0};
497     LPCWSTR pt1,pt2;
498     LPWSTR buffer;
499     DWORD size;
500
501     TRACE("%s %s %x %lx %li %s %s\n", debugstr_w(szProduct), 
502             debugstr_w(szUserSid), dwContext, dwOptions, dwDiskId, 
503             debugstr_w(szVolumeLabel), debugstr_w(szDiskPrompt)); 
504
505     if (!szProduct || lstrlenW(szProduct) > 39)
506         return ERROR_INVALID_PARAMETER;
507
508     if (dwOptions & MSICODE_PATCH)
509     {
510         FIXME("Unhandled options MSICODE_PATCH\n");
511         return ERROR_FUNCTION_FAILED;
512     }
513     
514     if (szUserSid)
515         FIXME("Unhandled UserSid %s\n",debugstr_w(szUserSid));
516
517     if (dwContext == MSIINSTALLCONTEXT_USERUNMANAGED)
518         FIXME("Unknown context MSIINSTALLCONTEXT_USERUNMANAGED\n");
519
520     if (dwContext == MSIINSTALLCONTEXT_MACHINE)
521         rc = OpenSourceKey(szProduct, &sourcekey, FALSE, TRUE);
522     else
523         rc = OpenSourceKey(szProduct, &sourcekey, TRUE, TRUE);
524
525     if (rc != ERROR_SUCCESS)
526         return ERROR_UNKNOWN_PRODUCT;
527
528     OpenMediaSubkey(sourcekey,&mediakey,TRUE);
529
530     sprintfW(szIndex,fmt,dwDiskId);
531
532     size = 2;
533     if (szVolumeLabel)
534     {
535         size +=lstrlenW(szVolumeLabel);
536         pt1 = szVolumeLabel;
537     }
538     else
539         pt1 = empty;
540     if (szDiskPrompt)
541     {
542         size +=lstrlenW(szDiskPrompt);
543         pt2 = szDiskPrompt;
544     }
545     else
546         pt2 = empty;
547
548     size *=sizeof(WCHAR);
549
550     buffer = msi_alloc(size);
551     sprintfW(buffer,disk_fmt,pt1,pt2);
552
553     RegSetValueExW(mediakey, szIndex, 0, REG_SZ, (LPBYTE)buffer, size);
554     msi_free( buffer );
555
556     RegCloseKey(sourcekey);
557     RegCloseKey(mediakey);
558
559     return ERROR_SUCCESS;
560 }