2 * Custom Action processing for the Microsoft Installer (msi.dll)
4 * Copyright 2005 Aric Stewart for CodeWeavers
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.
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.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
33 #include "msiserver.h"
34 #include "wine/debug.h"
35 #include "wine/unicode.h"
36 #include "wine/exception.h"
38 WINE_DEFAULT_DEBUG_CHANNEL(msi
);
40 #define CUSTOM_ACTION_TYPE_MASK 0x3F
41 static const WCHAR c_collen
[] = {'C',':','\\',0};
42 static const WCHAR cszTempFolder
[]= {'T','e','m','p','F','o','l','d','e','r',0};
45 static const WCHAR szActionData
[] = {
46 'C','u','s','t','o','m','A','c','t','i','o','n','D','a','t','a',0
48 static const WCHAR ProdCode
[] = {
49 'P','r','o','d','u','c','t','C','o','d','e',0
51 static const WCHAR UserSID
[] = {'U','s','e','r','S','I','D',0};
53 typedef struct tagMSIRUNNINGACTION
61 static UINT
HANDLE_CustomType1(MSIPACKAGE
*package
, LPCWSTR source
,
62 LPCWSTR target
, const INT type
, LPCWSTR action
);
63 static UINT
HANDLE_CustomType2(MSIPACKAGE
*package
, LPCWSTR source
,
64 LPCWSTR target
, const INT type
, LPCWSTR action
);
65 static UINT
HANDLE_CustomType17(MSIPACKAGE
*package
, LPCWSTR source
,
66 LPCWSTR target
, const INT type
, LPCWSTR action
);
67 static UINT
HANDLE_CustomType18(MSIPACKAGE
*package
, LPCWSTR source
,
68 LPCWSTR target
, const INT type
, LPCWSTR action
);
69 static UINT
HANDLE_CustomType19(MSIPACKAGE
*package
, LPCWSTR source
,
70 LPCWSTR target
, const INT type
, LPCWSTR action
);
71 static UINT
HANDLE_CustomType23(MSIPACKAGE
*package
, LPCWSTR source
,
72 LPCWSTR target
, const INT type
, LPCWSTR action
);
73 static UINT
HANDLE_CustomType50(MSIPACKAGE
*package
, LPCWSTR source
,
74 LPCWSTR target
, const INT type
, LPCWSTR action
);
75 static UINT
HANDLE_CustomType34(MSIPACKAGE
*package
, LPCWSTR source
,
76 LPCWSTR target
, const INT type
, LPCWSTR action
);
77 static UINT
HANDLE_CustomType37_38(MSIPACKAGE
*package
, LPCWSTR source
,
78 LPCWSTR target
, const INT type
, LPCWSTR action
);
79 static UINT
HANDLE_CustomType5_6(MSIPACKAGE
*package
, LPCWSTR source
,
80 LPCWSTR target
, const INT type
, LPCWSTR action
);
81 static UINT
HANDLE_CustomType21_22(MSIPACKAGE
*package
, LPCWSTR source
,
82 LPCWSTR target
, const INT type
, LPCWSTR action
);
83 static UINT
HANDLE_CustomType53_54(MSIPACKAGE
*package
, LPCWSTR source
,
84 LPCWSTR target
, const INT type
, LPCWSTR action
);
86 typedef UINT (WINAPI
*MsiCustomActionEntryPoint
)( MSIHANDLE
);
88 static CRITICAL_SECTION msi_custom_action_cs
;
89 static CRITICAL_SECTION_DEBUG msi_custom_action_cs_debug
=
91 0, 0, &msi_custom_action_cs
,
92 { &msi_custom_action_cs_debug
.ProcessLocksList
,
93 &msi_custom_action_cs_debug
.ProcessLocksList
},
94 0, 0, { (DWORD_PTR
)(__FILE__
": msi_custom_action_cs") }
96 static CRITICAL_SECTION msi_custom_action_cs
= { &msi_custom_action_cs_debug
, -1, 0, 0, 0, 0 };
98 static struct list msi_pending_custom_actions
= LIST_INIT( msi_pending_custom_actions
);
100 static BOOL
check_execution_scheduling_options(MSIPACKAGE
*package
, LPCWSTR action
, UINT options
)
102 if (!package
->script
)
105 if ((options
& msidbCustomActionTypeClientRepeat
) ==
106 msidbCustomActionTypeClientRepeat
)
108 if (!(package
->script
->InWhatSequence
& SEQUENCE_UI
&&
109 package
->script
->InWhatSequence
& SEQUENCE_EXEC
))
111 TRACE("Skipping action due to dbCustomActionTypeClientRepeat option.\n");
115 else if (options
& msidbCustomActionTypeFirstSequence
)
117 if (package
->script
->InWhatSequence
& SEQUENCE_UI
&&
118 package
->script
->InWhatSequence
& SEQUENCE_EXEC
)
120 TRACE("Skipping action due to msidbCustomActionTypeFirstSequence option.\n");
124 else if (options
& msidbCustomActionTypeOncePerProcess
)
126 if (check_unique_action(package
,action
))
128 TRACE("Skipping action due to msidbCustomActionTypeOncePerProcess option.\n");
132 register_unique_action(package
,action
);
138 /* stores the following properties before the action:
140 * [CustomActionData<=>UserSID<=>ProductCode]Action
142 static LPWSTR
msi_get_deferred_action(LPCWSTR action
, LPCWSTR actiondata
,
143 LPCWSTR usersid
, LPCWSTR prodcode
)
148 static const WCHAR format
[] = {
149 '[','%','s','<','=','>','%','s','<','=','>','%','s',']','%','s',0
153 return strdupW(action
);
155 len
= lstrlenW(action
) + lstrlenW(actiondata
) +
156 lstrlenW(usersid
) + lstrlenW(prodcode
) +
157 lstrlenW(format
) - 7;
158 deferred
= msi_alloc(len
* sizeof(WCHAR
));
160 sprintfW(deferred
, format
, actiondata
, usersid
, prodcode
, action
);
164 static void set_deferred_action_props(MSIPACKAGE
*package
, LPWSTR deferred_data
)
166 LPWSTR end
, beg
= deferred_data
+ 1;
168 static const WCHAR sep
[] = {'<','=','>',0};
170 end
= strstrW(beg
, sep
);
172 MSI_SetPropertyW(package
, szActionData
, beg
);
175 end
= strstrW(beg
, sep
);
177 MSI_SetPropertyW(package
, UserSID
, beg
);
180 end
= strchrW(beg
, ']');
182 MSI_SetPropertyW(package
, ProdCode
, beg
);
185 UINT
ACTION_CustomAction(MSIPACKAGE
*package
, LPCWSTR action
, UINT script
, BOOL execute
)
187 UINT rc
= ERROR_SUCCESS
;
189 static const WCHAR ExecSeqQuery
[] =
190 {'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ',
191 '`','C','u','s','t','o' ,'m','A','c','t','i','o','n','`',
192 ' ','W','H','E','R','E',' ','`','A','c','t','i' ,'o','n','`',' ',
193 '=',' ','\'','%','s','\'',0};
195 LPCWSTR source
, target
;
196 LPWSTR ptr
, deferred_data
= NULL
;
197 LPWSTR action_copy
= strdupW(action
);
198 WCHAR
*deformated
=NULL
;
200 /* deferred action: [properties]Action */
201 if ((ptr
= strrchrW(action_copy
, ']')))
203 deferred_data
= action_copy
;
207 row
= MSI_QueryGetRecord( package
->db
, ExecSeqQuery
, action
);
210 msi_free(action_copy
);
211 return ERROR_CALL_NOT_IMPLEMENTED
;
214 type
= MSI_RecordGetInteger(row
,2);
216 source
= MSI_RecordGetString(row
,3);
217 target
= MSI_RecordGetString(row
,4);
219 TRACE("Handling custom action %s (%x %s %s)\n",debugstr_w(action
),type
,
220 debugstr_w(source
), debugstr_w(target
));
222 /* handle some of the deferred actions */
223 if (type
& msidbCustomActionTypeTSAware
)
224 FIXME("msidbCustomActionTypeTSAware not handled\n");
226 if (type
& msidbCustomActionTypeInScript
)
228 if (type
& msidbCustomActionTypeNoImpersonate
)
229 FIXME("msidbCustomActionTypeNoImpersonate not handled\n");
231 if (type
& msidbCustomActionTypeRollback
)
233 FIXME("Rollback only action... rollbacks not supported yet\n");
234 schedule_action(package
, ROLLBACK_SCRIPT
, action
);
240 LPWSTR actiondata
= msi_dup_property(package
, action
);
241 LPWSTR usersid
= msi_dup_property(package
, UserSID
);
242 LPWSTR prodcode
= msi_dup_property(package
, ProdCode
);
243 LPWSTR deferred
= msi_get_deferred_action(action
, actiondata
, usersid
, prodcode
);
245 if (type
& msidbCustomActionTypeCommit
)
247 TRACE("Deferring Commit Action!\n");
248 schedule_action(package
, COMMIT_SCRIPT
, deferred
);
252 TRACE("Deferring Action!\n");
253 schedule_action(package
, INSTALL_SCRIPT
, deferred
);
257 msi_free(actiondata
);
265 static const WCHAR szBlank
[] = {0};
267 LPWSTR actiondata
= msi_dup_property( package
, action
);
272 package
->scheduled_action_running
= TRUE
;
275 package
->commit_action_running
= TRUE
;
277 case ROLLBACK_SCRIPT
:
278 package
->rollback_action_running
= TRUE
;
285 set_deferred_action_props(package
, deferred_data
);
287 MSI_SetPropertyW(package
,szActionData
,actiondata
);
289 MSI_SetPropertyW(package
,szActionData
,szBlank
);
291 msi_free(actiondata
);
294 else if (!check_execution_scheduling_options(package
,action
,type
))
300 switch (type
& CUSTOM_ACTION_TYPE_MASK
)
302 case 1: /* DLL file stored in a Binary table stream */
303 rc
= HANDLE_CustomType1(package
,source
,target
,type
,action
);
305 case 2: /* EXE file stored in a Binary table stream */
306 rc
= HANDLE_CustomType2(package
,source
,target
,type
,action
);
308 case 18: /*EXE file installed with package */
309 rc
= HANDLE_CustomType18(package
,source
,target
,type
,action
);
311 case 19: /* Error that halts install */
312 rc
= HANDLE_CustomType19(package
,source
,target
,type
,action
);
315 rc
= HANDLE_CustomType17(package
,source
,target
,type
,action
);
317 case 23: /* installs another package in the source tree */
318 deformat_string(package
,target
,&deformated
);
319 rc
= HANDLE_CustomType23(package
,source
,deformated
,type
,action
);
321 case 50: /*EXE file specified by a property value */
322 rc
= HANDLE_CustomType50(package
,source
,target
,type
,action
);
324 case 34: /*EXE to be run in specified directory */
325 rc
= HANDLE_CustomType34(package
,source
,target
,type
,action
);
327 case 35: /* Directory set with formatted text. */
328 deformat_string(package
,target
,&deformated
);
329 MSI_SetTargetPathW(package
, source
, deformated
);
330 msi_free(deformated
);
332 case 51: /* Property set with formatted text. */
333 deformat_string(package
,target
,&deformated
);
334 rc
= MSI_SetPropertyW(package
,source
,deformated
);
335 msi_free(deformated
);
337 case 37: /* JScript/VBScript text stored in target column. */
339 rc
= HANDLE_CustomType37_38(package
,source
,target
,type
,action
);
342 case 6: /* JScript/VBScript file stored in a Binary table stream. */
343 rc
= HANDLE_CustomType5_6(package
,source
,target
,type
,action
);
345 case 21: /* JScript/VBScript file installed with the product. */
347 rc
= HANDLE_CustomType21_22(package
,source
,target
,type
,action
);
349 case 53: /* JScript/VBScript text specified by a property value. */
351 rc
= HANDLE_CustomType53_54(package
,source
,target
,type
,action
);
354 FIXME("UNHANDLED ACTION TYPE %i (%s %s)\n",
355 type
& CUSTOM_ACTION_TYPE_MASK
, debugstr_w(source
),
360 package
->scheduled_action_running
= FALSE
;
361 package
->commit_action_running
= FALSE
;
362 package
->rollback_action_running
= FALSE
;
363 msi_free(action_copy
);
364 msiobj_release(&row
->hdr
);
369 static UINT
store_binary_to_temp(MSIPACKAGE
*package
, LPCWSTR source
,
372 static const WCHAR query
[] = {
373 'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ',
374 '`','B','i' ,'n','a','r','y','`',' ','W','H','E','R','E',' ',
375 '`','N','a','m','e','`',' ','=',' ','\'','%','s','\'',0};
379 static const WCHAR f1
[] = {'m','s','i',0};
384 if (MSI_GetPropertyW(package
, cszTempFolder
, fmt
, &sz
) != ERROR_SUCCESS
)
385 GetTempPathW(MAX_PATH
, fmt
);
387 if (GetTempFileNameW(fmt
, f1
, 0, tmp_file
) == 0)
389 TRACE("Unable to create file\n");
390 return ERROR_FUNCTION_FAILED
;
392 track_tempfile(package
, tmp_file
);
394 row
= MSI_QueryGetRecord(package
->db
, query
, source
);
396 return ERROR_FUNCTION_FAILED
;
398 /* write out the file */
399 file
= CreateFileW(tmp_file
, GENERIC_WRITE
, 0, NULL
, CREATE_ALWAYS
,
400 FILE_ATTRIBUTE_NORMAL
, NULL
);
401 if (file
== INVALID_HANDLE_VALUE
)
402 r
= ERROR_FUNCTION_FAILED
;
409 r
= MSI_RecordReadStream(row
, 2, buffer
, &sz
);
410 if (r
!= ERROR_SUCCESS
)
412 ERR("Failed to get stream\n");
415 WriteFile(file
, buffer
, sz
, &write
, NULL
);
416 } while (sz
== sizeof buffer
);
420 msiobj_release(&row
->hdr
);
425 static void file_running_action(MSIPACKAGE
* package
, HANDLE Handle
,
426 BOOL process
, LPCWSTR name
)
428 MSIRUNNINGACTION
*action
;
430 action
= msi_alloc( sizeof(MSIRUNNINGACTION
) );
432 action
->handle
= Handle
;
433 action
->process
= process
;
434 action
->name
= strdupW(name
);
436 list_add_tail( &package
->RunningActions
, &action
->entry
);
439 static UINT
custom_get_process_return( HANDLE process
)
443 GetExitCodeProcess( process
, &rc
);
445 return ERROR_FUNCTION_FAILED
;
446 return ERROR_SUCCESS
;
449 static UINT
custom_get_thread_return( MSIPACKAGE
*package
, HANDLE thread
)
453 GetExitCodeThread( thread
, &rc
);
457 case ERROR_FUNCTION_NOT_CALLED
:
459 case ERROR_INSTALL_USEREXIT
:
460 case ERROR_INSTALL_FAILURE
:
462 case ERROR_NO_MORE_ITEMS
:
463 return ERROR_SUCCESS
;
464 case ERROR_INSTALL_SUSPEND
:
465 ACTION_ForceReboot( package
);
466 return ERROR_SUCCESS
;
468 ERR("Invalid Return Code %d\n",rc
);
469 return ERROR_INSTALL_FAILURE
;
473 static UINT
wait_process_handle(MSIPACKAGE
* package
, UINT type
,
474 HANDLE ProcessHandle
, LPCWSTR name
)
476 UINT rc
= ERROR_SUCCESS
;
478 if (!(type
& msidbCustomActionTypeAsync
))
480 TRACE("waiting for %s\n", debugstr_w(name
));
482 msi_dialog_check_messages(ProcessHandle
);
484 if (!(type
& msidbCustomActionTypeContinue
))
485 rc
= custom_get_process_return(ProcessHandle
);
487 CloseHandle(ProcessHandle
);
491 TRACE("%s running in background\n", debugstr_w(name
));
493 if (!(type
& msidbCustomActionTypeContinue
))
494 file_running_action(package
, ProcessHandle
, TRUE
, name
);
496 CloseHandle(ProcessHandle
);
502 typedef struct _msi_custom_action_info
{
512 } msi_custom_action_info
;
514 static void release_custom_action_data( msi_custom_action_info
*info
)
516 EnterCriticalSection( &msi_custom_action_cs
);
520 list_remove( &info
->entry
);
522 CloseHandle( info
->handle
);
523 msi_free( info
->action
);
524 msi_free( info
->source
);
525 msi_free( info
->target
);
526 msiobj_release( &info
->package
->hdr
);
530 LeaveCriticalSection( &msi_custom_action_cs
);
533 /* must be called inside msi_custom_action_cs if info is in the pending custom actions list */
534 static void addref_custom_action_data( msi_custom_action_info
*info
)
539 static UINT
wait_thread_handle( msi_custom_action_info
*info
)
541 UINT rc
= ERROR_SUCCESS
;
543 if (!(info
->type
& msidbCustomActionTypeAsync
))
545 TRACE("waiting for %s\n", debugstr_w( info
->action
));
547 msi_dialog_check_messages( info
->handle
);
549 if (!(info
->type
& msidbCustomActionTypeContinue
))
550 rc
= custom_get_thread_return( info
->package
, info
->handle
);
552 release_custom_action_data( info
);
556 TRACE("%s running in background\n", debugstr_w( info
->action
));
562 static msi_custom_action_info
*find_action_by_guid( const GUID
*guid
)
564 msi_custom_action_info
*info
;
567 EnterCriticalSection( &msi_custom_action_cs
);
569 LIST_FOR_EACH_ENTRY( info
, &msi_pending_custom_actions
, msi_custom_action_info
, entry
)
571 if (IsEqualGUID( &info
->guid
, guid
))
573 addref_custom_action_data( info
);
579 LeaveCriticalSection( &msi_custom_action_cs
);
587 static void handle_msi_break( LPCWSTR target
)
592 static const WCHAR MsiBreak
[] = { 'M','s','i','B','r','e','a','k',0 };
593 static const WCHAR WindowsInstaller
[] = {
594 'W','i','n','d','o','w','s',' ','I','n','s','t','a','l','l','e','r',0
597 static const WCHAR format
[] = {
598 'T','o',' ','d','e','b','u','g',' ','y','o','u','r',' ',
599 'c','u','s','t','o','m',' ','a','c','t','i','o','n',',',' ',
600 'a','t','t','a','c','h',' ','y','o','u','r',' ','d','e','b','u','g','g','e','r',' ',
601 't','o',' ','p','r','o','c','e','s','s',' ','%','i',' ','(','0','x','%','X',')',' ',
602 'a','n','d',' ','p','r','e','s','s',' ','O','K',0
605 if( !GetEnvironmentVariableW( MsiBreak
, val
, MAX_PATH
))
608 if( lstrcmpiW( val
, target
))
611 msg
= msi_alloc( (lstrlenW(format
) + 10) * sizeof(WCHAR
) );
615 wsprintfW( msg
, format
, GetCurrentProcessId(), GetCurrentProcessId());
616 MessageBoxW( NULL
, msg
, WindowsInstaller
, MB_OK
);
621 static UINT
get_action_info( const GUID
*guid
, INT
*type
, MSIHANDLE
*handle
,
622 BSTR
*dll
, BSTR
*funcname
,
623 IWineMsiRemotePackage
**package
)
625 IClassFactory
*cf
= NULL
;
626 IWineMsiRemoteCustomAction
*rca
= NULL
;
629 r
= DllGetClassObject( &CLSID_IWineMsiRemoteCustomAction
,
630 &IID_IClassFactory
, (LPVOID
*)&cf
);
633 ERR("failed to get IClassFactory interface\n");
634 return ERROR_FUNCTION_FAILED
;
637 r
= IClassFactory_CreateInstance( cf
, NULL
, &IID_IWineMsiRemoteCustomAction
, (LPVOID
*)&rca
);
640 ERR("failed to get IWineMsiRemoteCustomAction interface\n");
641 return ERROR_FUNCTION_FAILED
;
644 r
= IWineMsiRemoteCustomAction_GetActionInfo( rca
, guid
, type
, handle
, dll
, funcname
, package
);
645 IWineMsiRemoteCustomAction_Release( rca
);
648 ERR("GetActionInfo failed\n");
649 return ERROR_FUNCTION_FAILED
;
652 return ERROR_SUCCESS
;
655 static DWORD WINAPI
ACTION_CallDllFunction( const GUID
*guid
)
657 MsiCustomActionEntryPoint fn
;
658 MSIHANDLE hPackage
, handle
;
661 UINT r
= ERROR_FUNCTION_FAILED
;
662 BSTR dll
= NULL
, function
= NULL
;
664 IWineMsiRemotePackage
*remote_package
= NULL
;
666 TRACE("%s\n", debugstr_guid( guid
));
668 r
= get_action_info( guid
, &type
, &handle
, &dll
, &function
, &remote_package
);
669 if (r
!= ERROR_SUCCESS
)
672 hModule
= LoadLibraryW( dll
);
675 ERR("failed to load dll %s\n", debugstr_w( dll
) );
679 proc
= strdupWtoA( function
);
680 fn
= (MsiCustomActionEntryPoint
) GetProcAddress( hModule
, proc
);
684 hPackage
= alloc_msi_remote_handle( (IUnknown
*)remote_package
);
687 IWineMsiRemotePackage_SetMsiHandle( remote_package
, handle
);
688 TRACE("calling %s\n", debugstr_w( function
) );
689 handle_msi_break( function
);
697 ERR("Custom action (%s:%s) caused a page fault: %08x\n",
698 debugstr_w(dll
), debugstr_w(function
), GetExceptionCode());
703 MsiCloseHandle( hPackage
);
706 ERR("failed to create handle for %p\n", remote_package
);
709 ERR("GetProcAddress(%s) failed\n", debugstr_w( function
) );
711 FreeLibrary(hModule
);
713 IWineMsiRemotePackage_Release( remote_package
);
714 SysFreeString( dll
);
715 SysFreeString( function
);
716 MsiCloseHandle( handle
);
721 static DWORD WINAPI
DllThread( LPVOID arg
)
726 TRACE("custom action (%x) started\n", GetCurrentThreadId() );
728 rc
= ACTION_CallDllFunction( guid
);
730 TRACE("custom action (%x) returned %i\n", GetCurrentThreadId(), rc
);
732 MsiCloseAllHandles();
736 static DWORD WINAPI
ACTION_CAInstallPackage(const GUID
*guid
)
738 msi_custom_action_info
*info
;
739 UINT r
= ERROR_FUNCTION_FAILED
;
740 INSTALLUILEVEL old_level
;
742 info
= find_action_by_guid(guid
);
745 ERR("failed to find action %s\n", debugstr_guid(guid
));
749 old_level
= MsiSetInternalUI(INSTALLUILEVEL_BASIC
, NULL
);
750 r
= MsiInstallProductW(info
->source
, info
->target
);
751 MsiSetInternalUI(old_level
, NULL
);
753 release_custom_action_data(info
);
758 static DWORD WINAPI
ConcurrentInstallThread(LPVOID arg
)
763 TRACE("concurrent installation (%x) started\n", GetCurrentThreadId());
765 rc
= ACTION_CAInstallPackage(guid
);
767 TRACE("concurrent installation (%x) returned %i\n", GetCurrentThreadId(), rc
);
769 MsiCloseAllHandles();
773 static msi_custom_action_info
*do_msidbCustomActionTypeDll(
774 MSIPACKAGE
*package
, INT type
, LPCWSTR source
, LPCWSTR target
, LPCWSTR action
)
776 msi_custom_action_info
*info
;
778 info
= msi_alloc( sizeof *info
);
782 msiobj_addref( &package
->hdr
);
783 info
->refs
= 2; /* 1 for our caller and 1 for thread we created */
784 info
->package
= package
;
786 info
->target
= strdupW( target
);
787 info
->source
= strdupW( source
);
788 info
->action
= strdupW( action
);
789 CoCreateGuid( &info
->guid
);
791 EnterCriticalSection( &msi_custom_action_cs
);
792 list_add_tail( &msi_pending_custom_actions
, &info
->entry
);
793 LeaveCriticalSection( &msi_custom_action_cs
);
795 info
->handle
= CreateThread( NULL
, 0, DllThread
, &info
->guid
, 0, NULL
);
798 /* release both references */
799 release_custom_action_data( info
);
800 release_custom_action_data( info
);
807 static msi_custom_action_info
*do_msidbCAConcurrentInstall(
808 MSIPACKAGE
*package
, INT type
, LPCWSTR source
, LPCWSTR target
, LPCWSTR action
)
810 msi_custom_action_info
*info
;
812 info
= msi_alloc( sizeof *info
);
816 msiobj_addref( &package
->hdr
);
817 info
->refs
= 2; /* 1 for our caller and 1 for thread we created */
818 info
->package
= package
;
820 info
->target
= strdupW( target
);
821 info
->source
= strdupW( source
);
822 info
->action
= strdupW( action
);
823 CoCreateGuid( &info
->guid
);
825 EnterCriticalSection( &msi_custom_action_cs
);
826 list_add_tail( &msi_pending_custom_actions
, &info
->entry
);
827 LeaveCriticalSection( &msi_custom_action_cs
);
829 info
->handle
= CreateThread( NULL
, 0, ConcurrentInstallThread
, &info
->guid
, 0, NULL
);
832 /* release both references */
833 release_custom_action_data( info
);
834 release_custom_action_data( info
);
841 static UINT
HANDLE_CustomType23(MSIPACKAGE
*package
, LPCWSTR source
,
842 LPCWSTR target
, const INT type
, LPCWSTR action
)
844 msi_custom_action_info
*info
;
845 WCHAR package_path
[MAX_PATH
];
848 static const WCHAR backslash
[] = {'\\',0};
851 MSI_GetPropertyW(package
, cszSourceDir
, package_path
, &size
);
852 lstrcatW(package_path
, backslash
);
853 lstrcatW(package_path
, source
);
855 if (GetFileAttributesW(package_path
) == INVALID_FILE_ATTRIBUTES
)
857 ERR("Source package does not exist: %s\n", debugstr_w(package_path
));
858 return ERROR_FUNCTION_FAILED
;
861 TRACE("Installing package %s concurrently\n", debugstr_w(package_path
));
863 info
= do_msidbCAConcurrentInstall(package
, type
, package_path
, target
, action
);
865 return wait_thread_handle(info
);
868 static UINT
HANDLE_CustomType1(MSIPACKAGE
*package
, LPCWSTR source
,
869 LPCWSTR target
, const INT type
, LPCWSTR action
)
871 msi_custom_action_info
*info
;
872 WCHAR tmp_file
[MAX_PATH
];
875 r
= store_binary_to_temp(package
, source
, tmp_file
);
876 if (r
!= ERROR_SUCCESS
)
879 TRACE("Calling function %s from %s\n",debugstr_w(target
),
880 debugstr_w(tmp_file
));
882 if (!strchrW(tmp_file
,'.'))
884 static const WCHAR dot
[]={'.',0};
885 strcatW(tmp_file
,dot
);
888 info
= do_msidbCustomActionTypeDll( package
, type
, tmp_file
, target
, action
);
890 return wait_thread_handle( info
);
893 static UINT
HANDLE_CustomType2(MSIPACKAGE
*package
, LPCWSTR source
,
894 LPCWSTR target
, const INT type
, LPCWSTR action
)
896 WCHAR tmp_file
[MAX_PATH
];
898 PROCESS_INFORMATION info
;
901 WCHAR
*deformated
= NULL
;
903 static const WCHAR spc
[] = {' ',0};
906 memset(&si
,0,sizeof(STARTUPINFOW
));
908 r
= store_binary_to_temp(package
, source
, tmp_file
);
909 if (r
!= ERROR_SUCCESS
)
912 deformat_string(package
,target
,&deformated
);
914 len
= strlenW(tmp_file
)+2;
917 len
+= strlenW(deformated
);
919 cmd
= msi_alloc(sizeof(WCHAR
)*len
);
921 strcpyW(cmd
,tmp_file
);
925 strcatW(cmd
,deformated
);
927 msi_free(deformated
);
930 TRACE("executing exe %s\n", debugstr_w(cmd
));
932 rc
= CreateProcessW(NULL
, cmd
, NULL
, NULL
, FALSE
, 0, NULL
,
933 c_collen
, &si
, &info
);
938 ERR("Unable to execute command %s\n", debugstr_w(cmd
));
939 return ERROR_SUCCESS
;
941 CloseHandle( info
.hThread
);
943 r
= wait_process_handle(package
, type
, info
.hProcess
, action
);
948 static UINT
HANDLE_CustomType17(MSIPACKAGE
*package
, LPCWSTR source
,
949 LPCWSTR target
, const INT type
, LPCWSTR action
)
951 msi_custom_action_info
*info
;
954 TRACE("%s %s\n", debugstr_w(source
), debugstr_w(target
));
956 file
= get_loaded_file( package
, source
);
959 ERR("invalid file key %s\n", debugstr_w( source
));
960 return ERROR_FUNCTION_FAILED
;
963 info
= do_msidbCustomActionTypeDll( package
, type
, file
->TargetPath
, target
, action
);
965 return wait_thread_handle( info
);
968 static UINT
HANDLE_CustomType18(MSIPACKAGE
*package
, LPCWSTR source
,
969 LPCWSTR target
, const INT type
, LPCWSTR action
)
972 PROCESS_INFORMATION info
;
977 static const WCHAR spc
[] = {' ',0};
980 memset(&si
,0,sizeof(STARTUPINFOW
));
982 file
= get_loaded_file(package
,source
);
984 return ERROR_FUNCTION_FAILED
;
986 len
= lstrlenW( file
->TargetPath
);
988 deformat_string(package
,target
,&deformated
);
990 len
+= strlenW(deformated
);
993 cmd
= msi_alloc(len
* sizeof(WCHAR
));
995 lstrcpyW( cmd
, file
->TargetPath
);
999 strcatW(cmd
, deformated
);
1001 msi_free(deformated
);
1004 TRACE("executing exe %s\n", debugstr_w(cmd
));
1006 rc
= CreateProcessW(NULL
, cmd
, NULL
, NULL
, FALSE
, 0, NULL
,
1007 c_collen
, &si
, &info
);
1011 ERR("Unable to execute command %s\n", debugstr_w(cmd
));
1013 return ERROR_SUCCESS
;
1016 CloseHandle( info
.hThread
);
1018 return wait_process_handle(package
, type
, info
.hProcess
, action
);
1021 static UINT
HANDLE_CustomType19(MSIPACKAGE
*package
, LPCWSTR source
,
1022 LPCWSTR target
, const INT type
, LPCWSTR action
)
1024 static const WCHAR query
[] = {
1025 'S','E','L','E','C','T',' ','`','M','e','s','s','a','g','e','`',' ',
1026 'F','R','O','M',' ','`','E','r','r','o','r','`',' ',
1027 'W','H','E','R','E',' ','`','E','r','r','o','r','`',' ','=',' ',
1031 LPWSTR deformated
= NULL
;
1033 deformat_string( package
, target
, &deformated
);
1035 /* first try treat the error as a number */
1036 row
= MSI_QueryGetRecord( package
->db
, query
, deformated
);
1039 LPCWSTR error
= MSI_RecordGetString( row
, 1 );
1040 MessageBoxW( NULL
, error
, NULL
, MB_OK
);
1041 msiobj_release( &row
->hdr
);
1044 MessageBoxW( NULL
, deformated
, NULL
, MB_OK
);
1046 msi_free( deformated
);
1048 return ERROR_FUNCTION_FAILED
;
1051 static UINT
HANDLE_CustomType50(MSIPACKAGE
*package
, LPCWSTR source
,
1052 LPCWSTR target
, const INT type
, LPCWSTR action
)
1055 PROCESS_INFORMATION info
;
1061 static const WCHAR spc
[] = {' ',0};
1063 memset(&si
,0,sizeof(STARTUPINFOW
));
1064 memset(&info
,0,sizeof(PROCESS_INFORMATION
));
1066 prop
= msi_dup_property( package
, source
);
1068 return ERROR_SUCCESS
;
1070 deformat_string(package
,target
,&deformated
);
1071 len
= strlenW(prop
) + 2;
1073 len
+= strlenW(deformated
);
1075 cmd
= msi_alloc(sizeof(WCHAR
)*len
);
1081 strcatW(cmd
,deformated
);
1083 msi_free(deformated
);
1087 TRACE("executing exe %s\n", debugstr_w(cmd
));
1089 rc
= CreateProcessW(NULL
, cmd
, NULL
, NULL
, FALSE
, 0, NULL
,
1090 c_collen
, &si
, &info
);
1094 ERR("Unable to execute command %s\n", debugstr_w(cmd
));
1096 return ERROR_SUCCESS
;
1100 CloseHandle( info
.hThread
);
1102 return wait_process_handle(package
, type
, info
.hProcess
, action
);
1105 static UINT
HANDLE_CustomType34(MSIPACKAGE
*package
, LPCWSTR source
,
1106 LPCWSTR target
, const INT type
, LPCWSTR action
)
1108 LPWSTR filename
, deformated
;
1110 PROCESS_INFORMATION info
;
1113 memset(&si
,0,sizeof(STARTUPINFOW
));
1115 filename
= resolve_folder(package
, source
, FALSE
, FALSE
, TRUE
, NULL
);
1118 return ERROR_FUNCTION_FAILED
;
1120 SetCurrentDirectoryW(filename
);
1123 deformat_string(package
,target
,&deformated
);
1126 return ERROR_FUNCTION_FAILED
;
1128 TRACE("executing exe %s\n", debugstr_w(deformated
));
1130 rc
= CreateProcessW(NULL
, deformated
, NULL
, NULL
, FALSE
, 0, NULL
,
1131 c_collen
, &si
, &info
);
1135 ERR("Unable to execute command %s\n", debugstr_w(deformated
));
1136 msi_free(deformated
);
1137 return ERROR_SUCCESS
;
1139 msi_free(deformated
);
1140 CloseHandle( info
.hThread
);
1142 return wait_process_handle(package
, type
, info
.hProcess
, action
);
1145 static DWORD WINAPI
ACTION_CallScript( const GUID
*guid
)
1147 msi_custom_action_info
*info
;
1149 UINT r
= ERROR_FUNCTION_FAILED
;
1151 info
= find_action_by_guid( guid
);
1154 ERR("failed to find action %s\n", debugstr_guid( guid
) );
1158 TRACE("function %s, script %s\n", debugstr_w( info
->target
), debugstr_w( info
->source
) );
1160 hPackage
= alloc_msihandle( &info
->package
->hdr
);
1163 r
= call_script( hPackage
, info
->type
, info
->source
, info
->target
, info
->action
);
1164 MsiCloseHandle( hPackage
);
1167 ERR("failed to create handle for %p\n", info
->package
);
1169 if (info
->type
& msidbCustomActionTypeAsync
&&
1170 info
->type
& msidbCustomActionTypeContinue
)
1171 release_custom_action_data( info
);
1176 static DWORD WINAPI
ScriptThread( LPVOID arg
)
1181 TRACE("custom action (%x) started\n", GetCurrentThreadId() );
1183 rc
= ACTION_CallScript( guid
);
1185 TRACE("custom action (%x) returned %i\n", GetCurrentThreadId(), rc
);
1187 MsiCloseAllHandles();
1191 static msi_custom_action_info
*do_msidbCustomActionTypeScript(
1192 MSIPACKAGE
*package
, INT type
, LPCWSTR script
, LPCWSTR function
, LPCWSTR action
)
1194 msi_custom_action_info
*info
;
1196 info
= msi_alloc( sizeof *info
);
1200 msiobj_addref( &package
->hdr
);
1201 info
->refs
= 2; /* 1 for our caller and 1 for thread we created */
1202 info
->package
= package
;
1204 info
->target
= strdupW( function
);
1205 info
->source
= strdupW( script
);
1206 info
->action
= strdupW( action
);
1207 CoCreateGuid( &info
->guid
);
1209 EnterCriticalSection( &msi_custom_action_cs
);
1210 list_add_tail( &msi_pending_custom_actions
, &info
->entry
);
1211 LeaveCriticalSection( &msi_custom_action_cs
);
1213 info
->handle
= CreateThread( NULL
, 0, ScriptThread
, &info
->guid
, 0, NULL
);
1216 /* release both references */
1217 release_custom_action_data( info
);
1218 release_custom_action_data( info
);
1225 static UINT
HANDLE_CustomType37_38(MSIPACKAGE
*package
, LPCWSTR source
,
1226 LPCWSTR target
, const INT type
, LPCWSTR action
)
1228 msi_custom_action_info
*info
;
1230 TRACE("%s %s\n", debugstr_w(source
), debugstr_w(target
));
1232 info
= do_msidbCustomActionTypeScript( package
, type
, target
, NULL
, action
);
1234 return wait_thread_handle( info
);
1237 static UINT
HANDLE_CustomType5_6(MSIPACKAGE
*package
, LPCWSTR source
,
1238 LPCWSTR target
, const INT type
, LPCWSTR action
)
1240 static const WCHAR query
[] = {
1241 'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ',
1242 '`','B','i' ,'n','a','r','y','`',' ','W','H','E','R','E',' ',
1243 '`','N','a','m','e','`',' ','=',' ','\'','%','s','\'',0};
1245 msi_custom_action_info
*info
;
1246 CHAR
*buffer
= NULL
;
1247 WCHAR
*bufferw
= NULL
;
1251 TRACE("%s %s\n", debugstr_w(source
), debugstr_w(target
));
1253 row
= MSI_QueryGetRecord(package
->db
, query
, source
);
1255 return ERROR_FUNCTION_FAILED
;
1257 r
= MSI_RecordReadStream(row
, 2, NULL
, &sz
);
1258 if (r
!= ERROR_SUCCESS
)
1261 buffer
= msi_alloc(sizeof(CHAR
)*(sz
+1));
1263 return ERROR_FUNCTION_FAILED
;
1265 r
= MSI_RecordReadStream(row
, 2, buffer
, &sz
);
1266 if (r
!= ERROR_SUCCESS
)
1270 bufferw
= strdupAtoW(buffer
);
1273 r
= ERROR_FUNCTION_FAILED
;
1277 info
= do_msidbCustomActionTypeScript( package
, type
, bufferw
, target
, action
);
1278 r
= wait_thread_handle( info
);
1286 static UINT
HANDLE_CustomType21_22(MSIPACKAGE
*package
, LPCWSTR source
,
1287 LPCWSTR target
, const INT type
, LPCWSTR action
)
1289 msi_custom_action_info
*info
;
1292 DWORD sz
, szHighWord
= 0, read
;
1294 WCHAR
*bufferw
=NULL
;
1298 TRACE("%s %s\n", debugstr_w(source
), debugstr_w(target
));
1300 file
= get_loaded_file(package
,source
);
1303 ERR("invalid file key %s\n", debugstr_w(source
));
1304 return ERROR_FUNCTION_FAILED
;
1307 hFile
= CreateFileW(file
->TargetPath
, GENERIC_READ
, FILE_SHARE_READ
, NULL
, OPEN_EXISTING
, 0, NULL
);
1308 if (hFile
== INVALID_HANDLE_VALUE
)
1309 return ERROR_FUNCTION_FAILED
;
1311 sz
= GetFileSize(hFile
, &szHighWord
);
1312 if (sz
== INVALID_FILE_SIZE
|| szHighWord
!= 0)
1315 return ERROR_FUNCTION_FAILED
;
1318 buffer
= msi_alloc(sizeof(CHAR
)*(sz
+1));
1322 return ERROR_FUNCTION_FAILED
;
1325 bRet
= ReadFile(hFile
, buffer
, sz
, &read
, NULL
);
1329 r
= ERROR_FUNCTION_FAILED
;
1334 bufferw
= strdupAtoW(buffer
);
1337 r
= ERROR_FUNCTION_FAILED
;
1341 info
= do_msidbCustomActionTypeScript( package
, type
, bufferw
, target
, action
);
1342 r
= wait_thread_handle( info
);
1350 static UINT
HANDLE_CustomType53_54(MSIPACKAGE
*package
, LPCWSTR source
,
1351 LPCWSTR target
, const INT type
, LPCWSTR action
)
1353 msi_custom_action_info
*info
;
1356 TRACE("%s %s\n", debugstr_w(source
), debugstr_w(target
));
1358 prop
= msi_dup_property(package
,source
);
1360 return ERROR_SUCCESS
;
1362 info
= do_msidbCustomActionTypeScript( package
, type
, prop
, NULL
, action
);
1364 return wait_thread_handle( info
);
1367 void ACTION_FinishCustomActions(const MSIPACKAGE
* package
)
1370 HANDLE
*wait_handles
;
1371 unsigned int handle_count
, i
;
1372 msi_custom_action_info
*info
, *cursor
;
1374 while ((item
= list_head( &package
->RunningActions
)))
1376 MSIRUNNINGACTION
*action
= LIST_ENTRY( item
, MSIRUNNINGACTION
, entry
);
1378 list_remove( &action
->entry
);
1380 TRACE("waiting for %s\n", debugstr_w( action
->name
) );
1381 msi_dialog_check_messages( action
->handle
);
1383 CloseHandle( action
->handle
);
1384 msi_free( action
->name
);
1388 EnterCriticalSection( &msi_custom_action_cs
);
1390 handle_count
= list_count( &msi_pending_custom_actions
);
1391 wait_handles
= HeapAlloc( GetProcessHeap(), 0, handle_count
* sizeof(HANDLE
) );
1394 LIST_FOR_EACH_ENTRY_SAFE( info
, cursor
, &msi_pending_custom_actions
, msi_custom_action_info
, entry
)
1396 if (info
->package
== package
)
1398 if (DuplicateHandle(GetCurrentProcess(), info
->handle
, GetCurrentProcess(), &wait_handles
[handle_count
], SYNCHRONIZE
, FALSE
, 0))
1403 LeaveCriticalSection( &msi_custom_action_cs
);
1405 for (i
= 0; i
< handle_count
; i
++)
1407 msi_dialog_check_messages( wait_handles
[i
] );
1408 CloseHandle( wait_handles
[i
] );
1411 HeapFree( GetProcessHeap(), 0, wait_handles
);
1414 typedef struct _msi_custom_remote_impl
{
1415 const IWineMsiRemoteCustomActionVtbl
*lpVtbl
;
1417 } msi_custom_remote_impl
;
1419 static inline msi_custom_remote_impl
* mcr_from_IWineMsiRemoteCustomAction( IWineMsiRemoteCustomAction
* iface
)
1421 return (msi_custom_remote_impl
*) iface
;
1424 static HRESULT WINAPI
mcr_QueryInterface( IWineMsiRemoteCustomAction
*iface
,
1425 REFIID riid
,LPVOID
*ppobj
)
1427 if( IsEqualCLSID( riid
, &IID_IUnknown
) ||
1428 IsEqualCLSID( riid
, &IID_IWineMsiRemoteCustomAction
) )
1430 IUnknown_AddRef( iface
);
1435 return E_NOINTERFACE
;
1438 static ULONG WINAPI
mcr_AddRef( IWineMsiRemoteCustomAction
*iface
)
1440 msi_custom_remote_impl
* This
= mcr_from_IWineMsiRemoteCustomAction( iface
);
1442 return InterlockedIncrement( &This
->refs
);
1445 static ULONG WINAPI
mcr_Release( IWineMsiRemoteCustomAction
*iface
)
1447 msi_custom_remote_impl
* This
= mcr_from_IWineMsiRemoteCustomAction( iface
);
1450 r
= InterlockedDecrement( &This
->refs
);
1456 static HRESULT WINAPI
mcr_GetActionInfo( IWineMsiRemoteCustomAction
*iface
, LPCGUID custom_action_guid
,
1457 INT
*type
, MSIHANDLE
*handle
, BSTR
*dll
, BSTR
*func
, IWineMsiRemotePackage
**remote_package
)
1459 msi_custom_action_info
*info
;
1461 info
= find_action_by_guid( custom_action_guid
);
1466 *handle
= alloc_msihandle( &info
->package
->hdr
);
1467 *dll
= SysAllocString( info
->source
);
1468 *func
= SysAllocString( info
->target
);
1470 release_custom_action_data( info
);
1471 return create_msi_remote_package( NULL
, (LPVOID
*)remote_package
);
1474 static const IWineMsiRemoteCustomActionVtbl msi_custom_remote_vtbl
=
1482 HRESULT
create_msi_custom_remote( IUnknown
*pOuter
, LPVOID
*ppObj
)
1484 msi_custom_remote_impl
* This
;
1486 This
= msi_alloc( sizeof *This
);
1488 return E_OUTOFMEMORY
;
1490 This
->lpVtbl
= &msi_custom_remote_vtbl
;