wininet: Added Esperanto language.
[wine] / dlls / msi / install.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 /* Msi top level apis directly related to installs */
22
23 #include <stdarg.h>
24
25 #include "windef.h"
26 #include "winbase.h"
27 #include "winerror.h"
28 #include "wine/debug.h"
29 #include "msi.h"
30 #include "msidefs.h"
31 #include "msipriv.h"
32 #include "winuser.h"
33 #include "wine/unicode.h"
34 #include "action.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(msi);
37
38 /***********************************************************************
39  * MsiDoActionA       (MSI.@)
40  */
41 UINT WINAPI MsiDoActionA( MSIHANDLE hInstall, LPCSTR szAction )
42 {
43     LPWSTR szwAction;
44     UINT ret;
45
46     TRACE("%s\n", debugstr_a(szAction));
47
48     szwAction = strdupAtoW(szAction);
49     if (szAction && !szwAction)
50         return ERROR_FUNCTION_FAILED; 
51
52     ret = MsiDoActionW( hInstall, szwAction );
53     msi_free( szwAction );
54     return ret;
55 }
56
57 /***********************************************************************
58  * MsiDoActionW       (MSI.@)
59  */
60 UINT WINAPI MsiDoActionW( MSIHANDLE hInstall, LPCWSTR szAction )
61 {
62     MSIPACKAGE *package;
63     UINT ret;
64
65     TRACE("%s\n",debugstr_w(szAction));
66
67     if (!szAction)
68         return ERROR_INVALID_PARAMETER;
69
70     package = msihandle2msiinfo( hInstall, MSIHANDLETYPE_PACKAGE );
71     if (!package)
72         return ERROR_INVALID_HANDLE;
73  
74     ret = ACTION_PerformUIAction( package, szAction );
75     msiobj_release( &package->hdr );
76
77     return ret;
78 }
79
80 /***********************************************************************
81  * MsiSequenceA       (MSI.@)
82  */
83 UINT WINAPI MsiSequenceA( MSIHANDLE hInstall, LPCSTR szTable, INT iSequenceMode )
84 {
85     LPWSTR szwTable;
86     UINT ret;
87
88     TRACE("%s\n", debugstr_a(szTable));
89
90     szwTable = strdupAtoW(szTable);
91     if (szTable && !szwTable)
92         return ERROR_FUNCTION_FAILED; 
93
94     ret = MsiSequenceW( hInstall, szwTable, iSequenceMode );
95     msi_free( szwTable );
96     return ret;
97 }
98
99 /***********************************************************************
100  * MsiSequenceW       (MSI.@)
101  */
102 UINT WINAPI MsiSequenceW( MSIHANDLE hInstall, LPCWSTR szTable, INT iSequenceMode )
103 {
104     MSIPACKAGE *package;
105     UINT ret;
106
107     TRACE("%s\n", debugstr_w(szTable));
108
109     package = msihandle2msiinfo( hInstall, MSIHANDLETYPE_PACKAGE );
110     if (!package)
111         return ERROR_INVALID_HANDLE;
112
113     ret = MSI_Sequence( package, szTable, iSequenceMode );
114     msiobj_release( &package->hdr );
115  
116     return ret;
117 }
118
119 UINT msi_strcpy_to_awstring( LPCWSTR str, awstring *awbuf, DWORD *sz )
120 {
121     UINT len, r = ERROR_SUCCESS;
122
123     if (awbuf->str.w && !sz )
124         return ERROR_INVALID_PARAMETER;
125
126     if (!sz)
127         return r;
128  
129     if (awbuf->unicode)
130     {
131         len = lstrlenW( str );
132         if (awbuf->str.w) 
133             lstrcpynW( awbuf->str.w, str, *sz );
134     }
135     else
136     {
137         len = WideCharToMultiByte( CP_ACP, 0, str, -1, NULL, 0, NULL, NULL );
138         if (len)
139             len--;
140         WideCharToMultiByte( CP_ACP, 0, str, -1, awbuf->str.a, *sz, NULL, NULL );
141         if ( *sz && (len >= *sz) )
142             awbuf->str.a[*sz - 1] = 0;
143     }
144
145     if (awbuf->str.w && len >= *sz)
146         r = ERROR_MORE_DATA;
147     *sz = len;
148     return r;
149 }
150
151 /***********************************************************************
152  * MsiGetTargetPath   (internal)
153  */
154 UINT WINAPI MSI_GetTargetPath( MSIHANDLE hInstall, LPCWSTR szFolder,
155                                awstring *szPathBuf, DWORD* pcchPathBuf )
156 {
157     MSIPACKAGE *package;
158     LPWSTR path;
159     UINT r;
160
161     if (!szFolder)
162         return ERROR_INVALID_PARAMETER;
163
164     package = msihandle2msiinfo( hInstall, MSIHANDLETYPE_PACKAGE );
165     if (!package)
166         return ERROR_INVALID_HANDLE;
167
168     path = resolve_folder( package, szFolder, FALSE, FALSE, NULL );
169     msiobj_release( &package->hdr );
170
171     if (!path)
172         return ERROR_DIRECTORY;
173
174     r = msi_strcpy_to_awstring( path, szPathBuf, pcchPathBuf );
175     msi_free( path );
176     return r;
177 }
178
179 /***********************************************************************
180  * MsiGetTargetPathA        (MSI.@)
181  */
182 UINT WINAPI MsiGetTargetPathA( MSIHANDLE hInstall, LPCSTR szFolder, 
183                                LPSTR szPathBuf, DWORD* pcchPathBuf )
184 {
185     LPWSTR szwFolder;
186     awstring path;
187     UINT r;
188
189     TRACE("%s %p %p\n", debugstr_a(szFolder), szPathBuf, pcchPathBuf);
190
191     szwFolder = strdupAtoW(szFolder);
192     if (szFolder && !szwFolder)
193         return ERROR_FUNCTION_FAILED; 
194
195     path.unicode = FALSE;
196     path.str.a = szPathBuf;
197
198     r = MSI_GetTargetPath( hInstall, szwFolder, &path, pcchPathBuf );
199
200     msi_free( szwFolder );
201
202     return r;
203 }
204
205 /***********************************************************************
206  * MsiGetTargetPathW        (MSI.@)
207  */
208 UINT WINAPI MsiGetTargetPathW( MSIHANDLE hInstall, LPCWSTR szFolder,
209                                LPWSTR szPathBuf, DWORD* pcchPathBuf )
210 {
211     awstring path;
212
213     TRACE("%s %p %p\n", debugstr_w(szFolder), szPathBuf, pcchPathBuf);
214
215     path.unicode = TRUE;
216     path.str.w = szPathBuf;
217
218     return MSI_GetTargetPath( hInstall, szFolder, &path, pcchPathBuf );
219 }
220
221 /***********************************************************************
222  * MsiGetSourcePath   (internal)
223  */
224 static UINT MSI_GetSourcePath( MSIHANDLE hInstall, LPCWSTR szFolder,
225                                awstring *szPathBuf, DWORD* pcchPathBuf )
226 {
227     MSIPACKAGE *package;
228     LPWSTR path;
229     UINT r;
230
231     TRACE("%s %p %p\n", debugstr_w(szFolder), szPathBuf, pcchPathBuf );
232
233     if (!szFolder)
234         return ERROR_INVALID_PARAMETER;
235
236     package = msihandle2msiinfo(hInstall, MSIHANDLETYPE_PACKAGE);
237     if (!package)
238         return ERROR_INVALID_HANDLE;
239
240     if (szPathBuf->str.w && !pcchPathBuf )
241     {
242         msiobj_release( &package->hdr );
243         return ERROR_INVALID_PARAMETER;
244     }
245
246     path = resolve_folder(package, szFolder, TRUE, FALSE, NULL);
247     msiobj_release( &package->hdr );
248
249     TRACE("path = %s\n",debugstr_w(path));
250     if (!path)
251         return ERROR_DIRECTORY;
252
253     r = msi_strcpy_to_awstring( path, szPathBuf, pcchPathBuf );
254     msi_free( path );
255     return r;
256 }
257
258 /***********************************************************************
259  * MsiGetSourcePathA     (MSI.@)
260  */
261 UINT WINAPI MsiGetSourcePathA( MSIHANDLE hInstall, LPCSTR szFolder, 
262                                LPSTR szPathBuf, DWORD* pcchPathBuf )
263 {
264     LPWSTR folder;
265     awstring str;
266     UINT r;
267
268     TRACE("%s %p %p\n", szFolder, debugstr_a(szPathBuf), pcchPathBuf);
269
270     str.unicode = FALSE;
271     str.str.a = szPathBuf;
272
273     folder = strdupAtoW( szFolder );
274     r = MSI_GetSourcePath( hInstall, folder, &str, pcchPathBuf );
275     msi_free( folder );
276
277     return r;
278 }
279
280 /***********************************************************************
281  * MsiGetSourcePathW     (MSI.@)
282  */
283 UINT WINAPI MsiGetSourcePathW( MSIHANDLE hInstall, LPCWSTR szFolder,
284                                LPWSTR szPathBuf, DWORD* pcchPathBuf )
285 {
286     awstring str;
287
288     TRACE("%s %p %p\n", debugstr_w(szFolder), szPathBuf, pcchPathBuf );
289
290     str.unicode = TRUE;
291     str.str.w = szPathBuf;
292
293     return MSI_GetSourcePath( hInstall, szFolder, &str, pcchPathBuf );
294 }
295
296 /***********************************************************************
297  * MsiSetTargetPathA  (MSI.@)
298  */
299 UINT WINAPI MsiSetTargetPathA( MSIHANDLE hInstall, LPCSTR szFolder,
300                                LPCSTR szFolderPath )
301 {
302     LPWSTR szwFolder = NULL, szwFolderPath = NULL;
303     UINT rc = ERROR_OUTOFMEMORY;
304
305     if ( !szFolder || !szFolderPath )
306         return ERROR_INVALID_PARAMETER;
307
308     szwFolder = strdupAtoW(szFolder);
309     szwFolderPath = strdupAtoW(szFolderPath);
310     if (!szwFolder || !szwFolderPath)
311         goto end;
312
313     rc = MsiSetTargetPathW( hInstall, szwFolder, szwFolderPath );
314
315 end:
316     msi_free(szwFolder);
317     msi_free(szwFolderPath);
318
319     return rc;
320 }
321
322 /*
323  * Ok my original interpretation of this was wrong. And it looks like msdn has
324  * changed a bit also. The given folder path does not have to actually already
325  * exist, it just cannot be read only and must be a legal folder path.
326  */
327 UINT MSI_SetTargetPathW(MSIPACKAGE *package, LPCWSTR szFolder, 
328                              LPCWSTR szFolderPath)
329 {
330     DWORD attrib;
331     LPWSTR path = NULL;
332     LPWSTR path2 = NULL;
333     MSIFOLDER *folder;
334
335     TRACE("(%p %s %s)\n",package, debugstr_w(szFolder),debugstr_w(szFolderPath));
336
337     attrib = GetFileAttributesW(szFolderPath);
338     if ( attrib != INVALID_FILE_ATTRIBUTES &&
339           (!(attrib & FILE_ATTRIBUTE_DIRECTORY) ||
340            attrib & FILE_ATTRIBUTE_OFFLINE ||
341            attrib & FILE_ATTRIBUTE_READONLY))
342         return ERROR_FUNCTION_FAILED;
343
344     path = resolve_folder(package,szFolder,FALSE,FALSE,&folder);
345     if (!path)
346         return ERROR_DIRECTORY;
347
348     if (attrib == INVALID_FILE_ATTRIBUTES)
349     {
350         if (!CreateDirectoryW(szFolderPath,NULL))
351         {
352             msi_free( path );
353             return ERROR_FUNCTION_FAILED;
354         }
355         RemoveDirectoryW(szFolderPath);
356     }
357
358     msi_free(folder->Property);
359     folder->Property = build_directory_name(2, szFolderPath, NULL);
360
361     if (lstrcmpiW(path, folder->Property) == 0)
362     {
363         /*
364          *  Resolved Target has not really changed, so just 
365          *  set this folder and do not recalculate everything.
366          */
367         msi_free(folder->ResolvedTarget);
368         folder->ResolvedTarget = NULL;
369         path2 = resolve_folder(package,szFolder,FALSE,TRUE,NULL);
370         msi_free(path2);
371     }
372     else
373     {
374         MSIFOLDER *f;
375
376         LIST_FOR_EACH_ENTRY( f, &package->folders, MSIFOLDER, entry )
377         {
378             msi_free(f->ResolvedTarget);
379             f->ResolvedTarget=NULL;
380         }
381
382         LIST_FOR_EACH_ENTRY( f, &package->folders, MSIFOLDER, entry )
383         {
384             path2 = resolve_folder(package, f->Directory, FALSE, TRUE, NULL);
385             msi_free(path2);
386         }
387     }
388     msi_free(path);
389
390     return ERROR_SUCCESS;
391 }
392
393 /***********************************************************************
394  * MsiSetTargetPathW  (MSI.@)
395  */
396 UINT WINAPI MsiSetTargetPathW(MSIHANDLE hInstall, LPCWSTR szFolder, 
397                              LPCWSTR szFolderPath)
398 {
399     MSIPACKAGE *package;
400     UINT ret;
401
402     TRACE("(%s %s)\n",debugstr_w(szFolder),debugstr_w(szFolderPath));
403
404     if ( !szFolder || !szFolderPath )
405         return ERROR_INVALID_PARAMETER;
406
407     package = msihandle2msiinfo(hInstall, MSIHANDLETYPE_PACKAGE);
408     if (!package)
409         return ERROR_INVALID_HANDLE;
410
411     ret = MSI_SetTargetPathW( package, szFolder, szFolderPath );
412     msiobj_release( &package->hdr );
413     return ret;
414 }
415
416 /***********************************************************************
417  *           MsiGetMode    (MSI.@)
418  *
419  * Returns an internal installer state (if it is running in a mode iRunMode)
420  *
421  * PARAMS
422  *   hInstall    [I]  Handle to the installation
423  *   hRunMode    [I]  Checking run mode
424  *        MSIRUNMODE_ADMIN             Administrative mode
425  *        MSIRUNMODE_ADVERTISE         Advertisement mode
426  *        MSIRUNMODE_MAINTENANCE       Maintenance mode
427  *        MSIRUNMODE_ROLLBACKENABLED   Rollback is enabled
428  *        MSIRUNMODE_LOGENABLED        Log file is writing
429  *        MSIRUNMODE_OPERATIONS        Operations in progress??
430  *        MSIRUNMODE_REBOOTATEND       We need to reboot after installation completed
431  *        MSIRUNMODE_REBOOTNOW         We need to reboot to continue the installation
432  *        MSIRUNMODE_CABINET           Files from cabinet are installed
433  *        MSIRUNMODE_SOURCESHORTNAMES  Long names in source files is suppressed
434  *        MSIRUNMODE_TARGETSHORTNAMES  Long names in destination files is suppressed
435  *        MSIRUNMODE_RESERVED11        Reserved
436  *        MSIRUNMODE_WINDOWS9X         Running under Windows95/98
437  *        MSIRUNMODE_ZAWENABLED        Demand installation is supported
438  *        MSIRUNMODE_RESERVED14        Reserved
439  *        MSIRUNMODE_RESERVED15        Reserved
440  *        MSIRUNMODE_SCHEDULED         called from install script
441  *        MSIRUNMODE_ROLLBACK          called from rollback script
442  *        MSIRUNMODE_COMMIT            called from commit script
443  *
444  * RETURNS
445  *    In the state: TRUE
446  *    Not in the state: FALSE
447  *
448  */
449
450 BOOL WINAPI MsiGetMode(MSIHANDLE hInstall, MSIRUNMODE iRunMode)
451 {
452     BOOL r = FALSE;
453
454     switch (iRunMode)
455     {
456     case MSIRUNMODE_WINDOWS9X:
457         if (GetVersion() & 0x80000000)
458             r = TRUE;
459         break;
460
461     case MSIRUNMODE_RESERVED11:
462     case MSIRUNMODE_RESERVED14:
463     case MSIRUNMODE_RESERVED15:
464         break;
465
466     case MSIRUNMODE_SCHEDULED:
467     case MSIRUNMODE_ROLLBACK:
468     case MSIRUNMODE_COMMIT:
469         break;
470
471     default:
472         FIXME("%ld %d\n", hInstall, iRunMode);
473         r = TRUE;
474     }
475
476     return r;
477 }
478
479 /***********************************************************************
480  *           MsiSetMode    (MSI.@)
481  */
482 BOOL WINAPI MsiSetMode(MSIHANDLE hInstall, MSIRUNMODE iRunMode, BOOL fState)
483 {
484     switch (iRunMode)
485     {
486     case MSIRUNMODE_RESERVED11:
487     case MSIRUNMODE_WINDOWS9X:
488     case MSIRUNMODE_RESERVED14:
489     case MSIRUNMODE_RESERVED15:
490         return FALSE;
491     default:
492         FIXME("%ld %d %d\n", hInstall, iRunMode, fState);
493     }
494     return TRUE;
495 }
496
497 /***********************************************************************
498  * MsiSetFeatureStateA (MSI.@)
499  *
500  * According to the docs, when this is called it immediately recalculates
501  * all the component states as well
502  */
503 UINT WINAPI MsiSetFeatureStateA(MSIHANDLE hInstall, LPCSTR szFeature,
504                                 INSTALLSTATE iState)
505 {
506     LPWSTR szwFeature = NULL;
507     UINT rc;
508
509     szwFeature = strdupAtoW(szFeature);
510
511     if (!szwFeature)
512         return ERROR_FUNCTION_FAILED;
513    
514     rc = MsiSetFeatureStateW(hInstall,szwFeature, iState); 
515
516     msi_free(szwFeature);
517
518     return rc;
519 }
520
521
522
523 UINT WINAPI MSI_SetFeatureStateW(MSIPACKAGE* package, LPCWSTR szFeature,
524                                 INSTALLSTATE iState)
525 {
526     UINT rc = ERROR_SUCCESS;
527     MSIFEATURE *feature, *child;
528
529     TRACE(" %s to %i\n",debugstr_w(szFeature), iState);
530
531     feature = get_loaded_feature(package,szFeature);
532     if (!feature)
533         return ERROR_UNKNOWN_FEATURE;
534
535     if (iState == INSTALLSTATE_ADVERTISED && 
536         feature->Attributes & msidbFeatureAttributesDisallowAdvertise)
537         return ERROR_FUNCTION_FAILED;
538
539     feature->ActionRequest = iState;
540     feature->Action = iState;
541
542     ACTION_UpdateComponentStates(package,szFeature);
543
544     /* update all the features that are children of this feature */
545     LIST_FOR_EACH_ENTRY( child, &package->features, MSIFEATURE, entry )
546     {
547         if (lstrcmpW(szFeature, child->Feature_Parent) == 0)
548             MSI_SetFeatureStateW(package, child->Feature, iState);
549     }
550     
551     return rc;
552 }
553
554 /***********************************************************************
555  * MsiSetFeatureStateW (MSI.@)
556  */
557 UINT WINAPI MsiSetFeatureStateW(MSIHANDLE hInstall, LPCWSTR szFeature,
558                                 INSTALLSTATE iState)
559 {
560     MSIPACKAGE* package;
561     UINT rc = ERROR_SUCCESS;
562
563     TRACE(" %s to %i\n",debugstr_w(szFeature), iState);
564
565     package = msihandle2msiinfo(hInstall, MSIHANDLETYPE_PACKAGE);
566     if (!package)
567         return ERROR_INVALID_HANDLE;
568
569     rc = MSI_SetFeatureStateW(package,szFeature,iState);
570
571     msiobj_release( &package->hdr );
572     return rc;
573 }
574
575 /***********************************************************************
576 * MsiGetFeatureStateA   (MSI.@)
577 */
578 UINT WINAPI MsiGetFeatureStateA(MSIHANDLE hInstall, LPSTR szFeature,
579                   INSTALLSTATE *piInstalled, INSTALLSTATE *piAction)
580 {
581     LPWSTR szwFeature = NULL;
582     UINT rc;
583     
584     szwFeature = strdupAtoW(szFeature);
585
586     rc = MsiGetFeatureStateW(hInstall,szwFeature,piInstalled, piAction);
587
588     msi_free( szwFeature);
589
590     return rc;
591 }
592
593 UINT MSI_GetFeatureStateW(MSIPACKAGE *package, LPWSTR szFeature,
594                   INSTALLSTATE *piInstalled, INSTALLSTATE *piAction)
595 {
596     MSIFEATURE *feature;
597
598     feature = get_loaded_feature(package,szFeature);
599     if (!feature)
600         return ERROR_UNKNOWN_FEATURE;
601
602     if (piInstalled)
603         *piInstalled = feature->Installed;
604
605     if (piAction)
606         *piAction = feature->Action;
607
608     TRACE("returning %i %i\n", feature->Installed, feature->Action);
609
610     return ERROR_SUCCESS;
611 }
612
613 /***********************************************************************
614 * MsiGetFeatureStateW   (MSI.@)
615 */
616 UINT WINAPI MsiGetFeatureStateW(MSIHANDLE hInstall, LPWSTR szFeature,
617                   INSTALLSTATE *piInstalled, INSTALLSTATE *piAction)
618 {
619     MSIPACKAGE* package;
620     UINT ret;
621
622     TRACE("%ld %s %p %p\n", hInstall, debugstr_w(szFeature), piInstalled,
623 piAction);
624
625     package = msihandle2msiinfo(hInstall, MSIHANDLETYPE_PACKAGE);
626     if (!package)
627         return ERROR_INVALID_HANDLE;
628     ret = MSI_GetFeatureStateW(package, szFeature, piInstalled, piAction);
629     msiobj_release( &package->hdr );
630     return ret;
631 }
632
633 /***********************************************************************
634  * MsiSetComponentStateA (MSI.@)
635  */
636 UINT WINAPI MsiSetComponentStateA(MSIHANDLE hInstall, LPCSTR szComponent,
637                                   INSTALLSTATE iState)
638 {
639     UINT rc;
640     LPWSTR szwComponent = strdupAtoW(szComponent);
641
642     rc = MsiSetComponentStateW(hInstall, szwComponent, iState);
643
644     msi_free(szwComponent);
645
646     return rc;
647 }
648
649 /***********************************************************************
650  * MsiGetComponentStateA (MSI.@)
651  */
652 UINT WINAPI MsiGetComponentStateA(MSIHANDLE hInstall, LPSTR szComponent,
653                   INSTALLSTATE *piInstalled, INSTALLSTATE *piAction)
654 {
655     LPWSTR szwComponent= NULL;
656     UINT rc;
657     
658     szwComponent= strdupAtoW(szComponent);
659
660     rc = MsiGetComponentStateW(hInstall,szwComponent,piInstalled, piAction);
661
662     msi_free( szwComponent);
663
664     return rc;
665 }
666
667 static UINT MSI_SetComponentStateW(MSIPACKAGE *package, LPCWSTR szComponent,
668                                    INSTALLSTATE iState)
669 {
670     MSICOMPONENT *comp;
671
672     TRACE("%p %s %d\n", package, debugstr_w(szComponent), iState);
673
674     comp = get_loaded_component(package, szComponent);
675     if (!comp)
676         return ERROR_UNKNOWN_COMPONENT;
677
678     comp->Installed = iState;
679
680     return ERROR_SUCCESS;
681 }
682
683 UINT MSI_GetComponentStateW(MSIPACKAGE *package, LPWSTR szComponent,
684                   INSTALLSTATE *piInstalled, INSTALLSTATE *piAction)
685 {
686     MSICOMPONENT *comp;
687
688     TRACE("%p %s %p %p\n", package, debugstr_w(szComponent),
689            piInstalled, piAction);
690
691     comp = get_loaded_component(package,szComponent);
692     if (!comp)
693         return ERROR_UNKNOWN_COMPONENT;
694
695     if (piInstalled)
696         *piInstalled = comp->Installed;
697
698     if (piAction)
699         *piAction = comp->Action;
700
701     TRACE("states (%i, %i)\n", comp->Installed, comp->Action );
702
703     return ERROR_SUCCESS;
704 }
705
706 /***********************************************************************
707  * MsiSetComponentStateW (MSI.@)
708  */
709 UINT WINAPI MsiSetComponentStateW(MSIHANDLE hInstall, LPCWSTR szComponent,
710                                   INSTALLSTATE iState)
711 {
712     MSIPACKAGE* package;
713     UINT ret;
714
715     package = msihandle2msiinfo(hInstall, MSIHANDLETYPE_PACKAGE);
716     if (!package)
717         return ERROR_INVALID_HANDLE;
718     ret = MSI_SetComponentStateW(package, szComponent, iState);
719     msiobj_release(&package->hdr);
720     return ret;
721 }
722
723 /***********************************************************************
724  * MsiGetComponentStateW (MSI.@)
725  */
726 UINT WINAPI MsiGetComponentStateW(MSIHANDLE hInstall, LPWSTR szComponent,
727                   INSTALLSTATE *piInstalled, INSTALLSTATE *piAction)
728 {
729     MSIPACKAGE* package;
730     UINT ret;
731
732     TRACE("%ld %s %p %p\n", hInstall, debugstr_w(szComponent),
733            piInstalled, piAction);
734
735     package = msihandle2msiinfo(hInstall, MSIHANDLETYPE_PACKAGE);
736     if (!package)
737         return ERROR_INVALID_HANDLE;
738     ret = MSI_GetComponentStateW( package, szComponent, piInstalled, piAction);
739     msiobj_release( &package->hdr );
740     return ret;
741 }
742
743 /***********************************************************************
744  * MsiGetLanguage (MSI.@)
745  */
746 LANGID WINAPI MsiGetLanguage(MSIHANDLE hInstall)
747 {
748     MSIPACKAGE* package;
749     LANGID langid;
750     LPWSTR buffer;
751     static const WCHAR szProductLanguage[] =
752         {'P','r','o','d','u','c','t','L','a','n','g','u','a','g','e',0};
753     
754     package = msihandle2msiinfo(hInstall, MSIHANDLETYPE_PACKAGE);
755     if (!package)
756         return ERROR_INVALID_HANDLE;
757
758     buffer = msi_dup_property( package, szProductLanguage );
759     langid = atoiW(buffer);
760
761     msi_free(buffer);
762     msiobj_release (&package->hdr);
763     return langid;
764 }