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
22 #include "wine/port.h"
36 #include "msiserver.h"
37 #include "wine/debug.h"
38 #include "wine/unicode.h"
39 #include "wine/exception.h"
41 WINE_DEFAULT_DEBUG_CHANNEL(msi
);
43 #define CUSTOM_ACTION_TYPE_MASK 0x3F
45 typedef struct tagMSIRUNNINGACTION
53 typedef UINT (WINAPI
*MsiCustomActionEntryPoint
)( MSIHANDLE
);
55 static CRITICAL_SECTION msi_custom_action_cs
;
56 static CRITICAL_SECTION_DEBUG msi_custom_action_cs_debug
=
58 0, 0, &msi_custom_action_cs
,
59 { &msi_custom_action_cs_debug
.ProcessLocksList
,
60 &msi_custom_action_cs_debug
.ProcessLocksList
},
61 0, 0, { (DWORD_PTR
)(__FILE__
": msi_custom_action_cs") }
63 static CRITICAL_SECTION msi_custom_action_cs
= { &msi_custom_action_cs_debug
, -1, 0, 0, 0, 0 };
65 static struct list msi_pending_custom_actions
= LIST_INIT( msi_pending_custom_actions
);
67 UINT
msi_schedule_action( MSIPACKAGE
*package
, UINT script
, const WCHAR
*action
)
70 WCHAR
**newbuf
= NULL
;
72 if (script
>= TOTAL_SCRIPTS
)
74 FIXME("Unknown script requested %u\n", script
);
75 return ERROR_FUNCTION_FAILED
;
77 TRACE("Scheduling action %s in script %u\n", debugstr_w(action
), script
);
79 count
= package
->script
->ActionCount
[script
];
80 package
->script
->ActionCount
[script
]++;
81 if (count
!= 0) newbuf
= msi_realloc( package
->script
->Actions
[script
],
82 package
->script
->ActionCount
[script
] * sizeof(WCHAR
*) );
83 else newbuf
= msi_alloc( sizeof(WCHAR
*) );
85 newbuf
[count
] = strdupW( action
);
86 package
->script
->Actions
[script
] = newbuf
;
90 UINT
msi_register_unique_action( MSIPACKAGE
*package
, const WCHAR
*action
)
93 WCHAR
**newbuf
= NULL
;
95 if (!package
->script
) return FALSE
;
97 TRACE("Registering %s as unique action\n", debugstr_w(action
));
99 count
= package
->script
->UniqueActionsCount
;
100 package
->script
->UniqueActionsCount
++;
101 if (count
!= 0) newbuf
= msi_realloc( package
->script
->UniqueActions
,
102 package
->script
->UniqueActionsCount
* sizeof(WCHAR
*) );
103 else newbuf
= msi_alloc( sizeof(WCHAR
*) );
105 newbuf
[count
] = strdupW( action
);
106 package
->script
->UniqueActions
= newbuf
;
107 return ERROR_SUCCESS
;
110 BOOL
msi_action_is_unique( const MSIPACKAGE
*package
, const WCHAR
*action
)
114 if (!package
->script
) return FALSE
;
116 for (i
= 0; i
< package
->script
->UniqueActionsCount
; i
++)
118 if (!strcmpW( package
->script
->UniqueActions
[i
], action
)) return TRUE
;
123 static BOOL
check_execution_scheduling_options(MSIPACKAGE
*package
, LPCWSTR action
, UINT options
)
125 if (!package
->script
)
128 if ((options
& msidbCustomActionTypeClientRepeat
) ==
129 msidbCustomActionTypeClientRepeat
)
131 if (!(package
->script
->InWhatSequence
& SEQUENCE_UI
&&
132 package
->script
->InWhatSequence
& SEQUENCE_EXEC
))
134 TRACE("Skipping action due to dbCustomActionTypeClientRepeat option.\n");
138 else if (options
& msidbCustomActionTypeFirstSequence
)
140 if (package
->script
->InWhatSequence
& SEQUENCE_UI
&&
141 package
->script
->InWhatSequence
& SEQUENCE_EXEC
)
143 TRACE("Skipping action due to msidbCustomActionTypeFirstSequence option.\n");
147 else if (options
& msidbCustomActionTypeOncePerProcess
)
149 if (msi_action_is_unique(package
, action
))
151 TRACE("Skipping action due to msidbCustomActionTypeOncePerProcess option.\n");
155 msi_register_unique_action(package
, action
);
161 /* stores the following properties before the action:
163 * [CustomActionData<=>UserSID<=>ProductCode]Action
165 static LPWSTR
msi_get_deferred_action(LPCWSTR action
, LPCWSTR actiondata
,
166 LPCWSTR usersid
, LPCWSTR prodcode
)
171 static const WCHAR format
[] = {
172 '[','%','s','<','=','>','%','s','<','=','>','%','s',']','%','s',0
176 return strdupW(action
);
178 len
= lstrlenW(action
) + lstrlenW(actiondata
) +
179 lstrlenW(usersid
) + lstrlenW(prodcode
) +
180 lstrlenW(format
) - 7;
181 deferred
= msi_alloc(len
* sizeof(WCHAR
));
183 sprintfW(deferred
, format
, actiondata
, usersid
, prodcode
, action
);
187 static void set_deferred_action_props(MSIPACKAGE
*package
, LPWSTR deferred_data
)
189 LPWSTR end
, beg
= deferred_data
+ 1;
191 static const WCHAR sep
[] = {'<','=','>',0};
193 end
= strstrW(beg
, sep
);
195 msi_set_property(package
->db
, szCustomActionData
, beg
);
198 end
= strstrW(beg
, sep
);
200 msi_set_property(package
->db
, szUserSID
, beg
);
203 end
= strchrW(beg
, ']');
205 msi_set_property(package
->db
, szProductCode
, beg
);
208 static MSIBINARY
*create_temp_binary( MSIPACKAGE
*package
, LPCWSTR source
, BOOL dll
)
210 static const WCHAR query
[] = {
211 'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ',
212 '`','B','i' ,'n','a','r','y','`',' ','W','H','E','R','E',' ',
213 '`','N','a','m','e','`',' ','=',' ','\'','%','s','\'',0};
218 WCHAR fmt
[MAX_PATH
], tmpfile
[MAX_PATH
];
219 DWORD sz
= MAX_PATH
, write
;
222 if (msi_get_property(package
->db
, szTempFolder
, fmt
, &sz
) != ERROR_SUCCESS
)
223 GetTempPathW(MAX_PATH
, fmt
);
225 if (!GetTempFileNameW( fmt
, szMsi
, 0, tmpfile
))
227 TRACE("unable to create temp file %s (%u)\n", debugstr_w(tmpfile
), GetLastError());
231 row
= MSI_QueryGetRecord(package
->db
, query
, source
);
235 if (!(binary
= msi_alloc_zero( sizeof(MSIBINARY
) )))
237 msiobj_release( &row
->hdr
);
240 file
= CreateFileW( tmpfile
, GENERIC_WRITE
, 0, NULL
, CREATE_ALWAYS
, FILE_ATTRIBUTE_NORMAL
, NULL
);
241 if (file
== INVALID_HANDLE_VALUE
)
243 msiobj_release( &row
->hdr
);
250 r
= MSI_RecordReadStream( row
, 2, buffer
, &sz
);
251 if (r
!= ERROR_SUCCESS
)
253 ERR("Failed to get stream\n");
256 WriteFile( file
, buffer
, sz
, &write
, NULL
);
257 } while (sz
== sizeof buffer
);
260 msiobj_release( &row
->hdr
);
261 if (r
!= ERROR_SUCCESS
)
263 DeleteFileW( tmpfile
);
268 /* keep a reference to prevent the dll from being unloaded */
269 if (dll
&& !(binary
->module
= LoadLibraryW( tmpfile
)))
271 WARN( "failed to load dll %s (%u)\n", debugstr_w( tmpfile
), GetLastError() );
273 binary
->source
= strdupW( source
);
274 binary
->tmpfile
= strdupW( tmpfile
);
275 list_add_tail( &package
->binaries
, &binary
->entry
);
279 static MSIBINARY
*get_temp_binary( MSIPACKAGE
*package
, LPCWSTR source
, BOOL dll
)
283 LIST_FOR_EACH_ENTRY( binary
, &package
->binaries
, MSIBINARY
, entry
)
285 if (!strcmpW( binary
->source
, source
))
289 return create_temp_binary( package
, source
, dll
);
292 static void file_running_action(MSIPACKAGE
* package
, HANDLE Handle
,
293 BOOL process
, LPCWSTR name
)
295 MSIRUNNINGACTION
*action
;
297 action
= msi_alloc( sizeof(MSIRUNNINGACTION
) );
299 action
->handle
= Handle
;
300 action
->process
= process
;
301 action
->name
= strdupW(name
);
303 list_add_tail( &package
->RunningActions
, &action
->entry
);
306 static UINT
custom_get_process_return( HANDLE process
)
310 GetExitCodeProcess( process
, &rc
);
311 TRACE("exit code is %u\n", rc
);
313 return ERROR_FUNCTION_FAILED
;
314 return ERROR_SUCCESS
;
317 static UINT
custom_get_thread_return( MSIPACKAGE
*package
, HANDLE thread
)
321 GetExitCodeThread( thread
, &rc
);
325 case ERROR_FUNCTION_NOT_CALLED
:
327 case ERROR_INSTALL_USEREXIT
:
328 case ERROR_INSTALL_FAILURE
:
330 case ERROR_NO_MORE_ITEMS
:
331 return ERROR_SUCCESS
;
332 case ERROR_INSTALL_SUSPEND
:
333 ACTION_ForceReboot( package
);
334 return ERROR_SUCCESS
;
336 ERR("Invalid Return Code %d\n",rc
);
337 return ERROR_INSTALL_FAILURE
;
341 static UINT
wait_process_handle(MSIPACKAGE
* package
, UINT type
,
342 HANDLE ProcessHandle
, LPCWSTR name
)
344 UINT rc
= ERROR_SUCCESS
;
346 if (!(type
& msidbCustomActionTypeAsync
))
348 TRACE("waiting for %s\n", debugstr_w(name
));
350 msi_dialog_check_messages(ProcessHandle
);
352 if (!(type
& msidbCustomActionTypeContinue
))
353 rc
= custom_get_process_return(ProcessHandle
);
355 CloseHandle(ProcessHandle
);
359 TRACE("%s running in background\n", debugstr_w(name
));
361 if (!(type
& msidbCustomActionTypeContinue
))
362 file_running_action(package
, ProcessHandle
, TRUE
, name
);
364 CloseHandle(ProcessHandle
);
370 typedef struct _msi_custom_action_info
{
380 } msi_custom_action_info
;
382 static void release_custom_action_data( msi_custom_action_info
*info
)
384 EnterCriticalSection( &msi_custom_action_cs
);
388 list_remove( &info
->entry
);
390 CloseHandle( info
->handle
);
391 msi_free( info
->action
);
392 msi_free( info
->source
);
393 msi_free( info
->target
);
394 msiobj_release( &info
->package
->hdr
);
398 LeaveCriticalSection( &msi_custom_action_cs
);
401 /* must be called inside msi_custom_action_cs if info is in the pending custom actions list */
402 static void addref_custom_action_data( msi_custom_action_info
*info
)
407 static UINT
wait_thread_handle( msi_custom_action_info
*info
)
409 UINT rc
= ERROR_SUCCESS
;
411 if (!(info
->type
& msidbCustomActionTypeAsync
))
413 TRACE("waiting for %s\n", debugstr_w( info
->action
));
415 msi_dialog_check_messages( info
->handle
);
417 if (!(info
->type
& msidbCustomActionTypeContinue
))
418 rc
= custom_get_thread_return( info
->package
, info
->handle
);
420 release_custom_action_data( info
);
424 TRACE("%s running in background\n", debugstr_w( info
->action
));
430 static msi_custom_action_info
*find_action_by_guid( const GUID
*guid
)
432 msi_custom_action_info
*info
;
435 EnterCriticalSection( &msi_custom_action_cs
);
437 LIST_FOR_EACH_ENTRY( info
, &msi_pending_custom_actions
, msi_custom_action_info
, entry
)
439 if (IsEqualGUID( &info
->guid
, guid
))
441 addref_custom_action_data( info
);
447 LeaveCriticalSection( &msi_custom_action_cs
);
455 static void handle_msi_break( LPCWSTR target
)
460 static const WCHAR MsiBreak
[] = { 'M','s','i','B','r','e','a','k',0 };
461 static const WCHAR WindowsInstaller
[] = {
462 'W','i','n','d','o','w','s',' ','I','n','s','t','a','l','l','e','r',0
465 static const WCHAR format
[] = {
466 'T','o',' ','d','e','b','u','g',' ','y','o','u','r',' ',
467 'c','u','s','t','o','m',' ','a','c','t','i','o','n',',',' ',
468 'a','t','t','a','c','h',' ','y','o','u','r',' ','d','e','b','u','g','g','e','r',' ',
469 't','o',' ','p','r','o','c','e','s','s',' ','%','i',' ','(','0','x','%','X',')',' ',
470 'a','n','d',' ','p','r','e','s','s',' ','O','K',0
473 if( !GetEnvironmentVariableW( MsiBreak
, val
, MAX_PATH
))
476 if( strcmpiW( val
, target
))
479 msg
= msi_alloc( (lstrlenW(format
) + 10) * sizeof(WCHAR
) );
483 wsprintfW( msg
, format
, GetCurrentProcessId(), GetCurrentProcessId());
484 MessageBoxW( NULL
, msg
, WindowsInstaller
, MB_OK
);
489 static UINT
get_action_info( const GUID
*guid
, INT
*type
, MSIHANDLE
*handle
,
490 BSTR
*dll
, BSTR
*funcname
,
491 IWineMsiRemotePackage
**package
)
493 IClassFactory
*cf
= NULL
;
494 IWineMsiRemoteCustomAction
*rca
= NULL
;
497 r
= DllGetClassObject( &CLSID_WineMsiRemoteCustomAction
,
498 &IID_IClassFactory
, (LPVOID
*)&cf
);
501 ERR("failed to get IClassFactory interface\n");
502 return ERROR_FUNCTION_FAILED
;
505 r
= IClassFactory_CreateInstance( cf
, NULL
, &IID_IWineMsiRemoteCustomAction
, (LPVOID
*)&rca
);
508 ERR("failed to get IWineMsiRemoteCustomAction interface\n");
509 return ERROR_FUNCTION_FAILED
;
512 r
= IWineMsiRemoteCustomAction_GetActionInfo( rca
, guid
, type
, handle
, dll
, funcname
, package
);
513 IWineMsiRemoteCustomAction_Release( rca
);
516 ERR("GetActionInfo failed\n");
517 return ERROR_FUNCTION_FAILED
;
520 return ERROR_SUCCESS
;
524 extern UINT
CUSTOMPROC_wrapper( MsiCustomActionEntryPoint proc
, MSIHANDLE handle
);
525 __ASM_GLOBAL_FUNC( CUSTOMPROC_wrapper
,
527 __ASM_CFI(".cfi_adjust_cfa_offset 4\n\t")
528 __ASM_CFI(".cfi_rel_offset %ebp,0\n\t")
530 __ASM_CFI(".cfi_def_cfa_register %ebp\n\t")
532 "movl 8(%ebp),%eax\n\t"
535 __ASM_CFI(".cfi_def_cfa %esp,4\n\t")
536 __ASM_CFI(".cfi_same_value %ebp\n\t")
539 static inline UINT
CUSTOMPROC_wrapper( MsiCustomActionEntryPoint proc
, MSIHANDLE handle
)
545 static DWORD
ACTION_CallDllFunction( const GUID
*guid
)
547 MsiCustomActionEntryPoint fn
;
548 MSIHANDLE hPackage
, handle
;
551 UINT r
= ERROR_FUNCTION_FAILED
;
552 BSTR dll
= NULL
, function
= NULL
;
554 IWineMsiRemotePackage
*remote_package
= NULL
;
556 TRACE("%s\n", debugstr_guid( guid
));
558 r
= get_action_info( guid
, &type
, &handle
, &dll
, &function
, &remote_package
);
559 if (r
!= ERROR_SUCCESS
)
562 hModule
= LoadLibraryW( dll
);
565 WARN( "failed to load dll %s (%u)\n", debugstr_w( dll
), GetLastError() );
566 return ERROR_SUCCESS
;
569 proc
= strdupWtoA( function
);
570 fn
= (MsiCustomActionEntryPoint
) GetProcAddress( hModule
, proc
);
574 hPackage
= alloc_msi_remote_handle( (IUnknown
*)remote_package
);
577 IWineMsiRemotePackage_SetMsiHandle( remote_package
, handle
);
578 TRACE("calling %s\n", debugstr_w( function
) );
579 handle_msi_break( function
);
583 r
= CUSTOMPROC_wrapper( fn
, hPackage
);
587 ERR("Custom action (%s:%s) caused a page fault: %08x\n",
588 debugstr_w(dll
), debugstr_w(function
), GetExceptionCode());
593 MsiCloseHandle( hPackage
);
596 ERR("failed to create handle for %p\n", remote_package
);
599 ERR("GetProcAddress(%s) failed\n", debugstr_w( function
) );
601 FreeLibrary(hModule
);
603 IWineMsiRemotePackage_Release( remote_package
);
604 SysFreeString( dll
);
605 SysFreeString( function
);
606 MsiCloseHandle( handle
);
611 static DWORD WINAPI
DllThread( LPVOID arg
)
616 TRACE("custom action (%x) started\n", GetCurrentThreadId() );
618 rc
= ACTION_CallDllFunction( guid
);
620 TRACE("custom action (%x) returned %i\n", GetCurrentThreadId(), rc
);
622 MsiCloseAllHandles();
626 static DWORD
ACTION_CAInstallPackage(const GUID
*guid
)
628 msi_custom_action_info
*info
;
629 UINT r
= ERROR_FUNCTION_FAILED
;
630 INSTALLUILEVEL old_level
;
632 info
= find_action_by_guid(guid
);
635 ERR("failed to find action %s\n", debugstr_guid(guid
));
639 old_level
= MsiSetInternalUI(INSTALLUILEVEL_BASIC
, NULL
);
640 r
= MsiInstallProductW(info
->source
, info
->target
);
641 MsiSetInternalUI(old_level
, NULL
);
643 release_custom_action_data(info
);
648 static DWORD WINAPI
ConcurrentInstallThread(LPVOID arg
)
653 TRACE("concurrent installation (%x) started\n", GetCurrentThreadId());
655 rc
= ACTION_CAInstallPackage(guid
);
657 TRACE("concurrent installation (%x) returned %i\n", GetCurrentThreadId(), rc
);
659 MsiCloseAllHandles();
663 static msi_custom_action_info
*do_msidbCustomActionTypeDll(
664 MSIPACKAGE
*package
, INT type
, LPCWSTR source
, LPCWSTR target
, LPCWSTR action
)
666 msi_custom_action_info
*info
;
668 info
= msi_alloc( sizeof *info
);
672 msiobj_addref( &package
->hdr
);
673 info
->refs
= 2; /* 1 for our caller and 1 for thread we created */
674 info
->package
= package
;
676 info
->target
= strdupW( target
);
677 info
->source
= strdupW( source
);
678 info
->action
= strdupW( action
);
679 CoCreateGuid( &info
->guid
);
681 EnterCriticalSection( &msi_custom_action_cs
);
682 list_add_tail( &msi_pending_custom_actions
, &info
->entry
);
683 LeaveCriticalSection( &msi_custom_action_cs
);
685 info
->handle
= CreateThread( NULL
, 0, DllThread
, &info
->guid
, 0, NULL
);
688 /* release both references */
689 release_custom_action_data( info
);
690 release_custom_action_data( info
);
697 static msi_custom_action_info
*do_msidbCAConcurrentInstall(
698 MSIPACKAGE
*package
, INT type
, LPCWSTR source
, LPCWSTR target
, LPCWSTR action
)
700 msi_custom_action_info
*info
;
702 info
= msi_alloc( sizeof *info
);
706 msiobj_addref( &package
->hdr
);
707 info
->refs
= 2; /* 1 for our caller and 1 for thread we created */
708 info
->package
= package
;
710 info
->target
= strdupW( target
);
711 info
->source
= strdupW( source
);
712 info
->action
= strdupW( action
);
713 CoCreateGuid( &info
->guid
);
715 EnterCriticalSection( &msi_custom_action_cs
);
716 list_add_tail( &msi_pending_custom_actions
, &info
->entry
);
717 LeaveCriticalSection( &msi_custom_action_cs
);
719 info
->handle
= CreateThread( NULL
, 0, ConcurrentInstallThread
, &info
->guid
, 0, NULL
);
722 /* release both references */
723 release_custom_action_data( info
);
724 release_custom_action_data( info
);
731 static UINT
HANDLE_CustomType23(MSIPACKAGE
*package
, LPCWSTR source
,
732 LPCWSTR target
, const INT type
, LPCWSTR action
)
734 msi_custom_action_info
*info
;
735 WCHAR package_path
[MAX_PATH
];
740 msi_get_property(package
->db
, szSourceDir
, package_path
, &size
);
741 lstrcatW(package_path
, szBackSlash
);
742 lstrcatW(package_path
, source
);
744 TRACE("Installing package %s concurrently\n", debugstr_w(package_path
));
746 info
= do_msidbCAConcurrentInstall(package
, type
, package_path
, target
, action
);
748 r
= wait_thread_handle(info
);
749 release_custom_action_data( info
);
753 static UINT
HANDLE_CustomType1(MSIPACKAGE
*package
, LPCWSTR source
,
754 LPCWSTR target
, const INT type
, LPCWSTR action
)
756 msi_custom_action_info
*info
;
760 if (!(binary
= get_temp_binary( package
, source
, TRUE
)))
761 return ERROR_FUNCTION_FAILED
;
763 TRACE("Calling function %s from %s\n", debugstr_w(target
), debugstr_w(binary
->tmpfile
));
765 info
= do_msidbCustomActionTypeDll( package
, type
, binary
->tmpfile
, target
, action
);
767 r
= wait_thread_handle( info
);
768 release_custom_action_data( info
);
772 static HANDLE
execute_command( const WCHAR
*app
, WCHAR
*arg
, const WCHAR
*dir
)
774 static const WCHAR dotexeW
[] = {'.','e','x','e',0};
776 PROCESS_INFORMATION info
;
777 WCHAR
*exe
= NULL
, *cmd
= NULL
, *p
;
785 if (!(exe
= msi_alloc( MAX_PATH
* sizeof(WCHAR
) ))) return INVALID_HANDLE_VALUE
;
786 len_exe
= SearchPathW( NULL
, app
, dotexeW
, MAX_PATH
, exe
, NULL
);
787 if (len_exe
>= MAX_PATH
)
790 if (!(exe
= msi_alloc( len_exe
* sizeof(WCHAR
) ))) return INVALID_HANDLE_VALUE
;
791 len_exe
= SearchPathW( NULL
, app
, dotexeW
, len_exe
, exe
, NULL
);
795 WARN("can't find executable %u\n", GetLastError());
797 return INVALID_HANDLE_VALUE
;
800 if (arg
) len_arg
= strlenW( arg
);
801 if (!(cmd
= msi_alloc( (len_exe
+ len_arg
+ 4) * sizeof(WCHAR
) )))
804 return INVALID_HANDLE_VALUE
;
807 if (strchrW( exe
, ' ' ))
810 memcpy( p
, exe
, len_exe
* sizeof(WCHAR
) );
823 memcpy( p
, arg
, len_arg
* sizeof(WCHAR
) );
827 memset( &si
, 0, sizeof(STARTUPINFOW
) );
828 ret
= CreateProcessW( exe
, exe
? cmd
: arg
, NULL
, NULL
, FALSE
, 0, NULL
, dir
, &si
, &info
);
833 WARN("unable to execute command %u\n", GetLastError());
834 return INVALID_HANDLE_VALUE
;
836 CloseHandle( info
.hThread
);
837 return info
.hProcess
;
840 static UINT
HANDLE_CustomType2(MSIPACKAGE
*package
, LPCWSTR source
,
841 LPCWSTR target
, const INT type
, LPCWSTR action
)
847 if (!(binary
= get_temp_binary( package
, source
, FALSE
))) return ERROR_FUNCTION_FAILED
;
849 deformat_string( package
, target
, &arg
);
850 TRACE("exe %s arg %s\n", debugstr_w(binary
->tmpfile
), debugstr_w(arg
));
852 handle
= execute_command( binary
->tmpfile
, arg
, szCRoot
);
854 if (handle
== INVALID_HANDLE_VALUE
) return ERROR_SUCCESS
;
855 return wait_process_handle( package
, type
, handle
, action
);
858 static UINT
HANDLE_CustomType17(MSIPACKAGE
*package
, LPCWSTR source
,
859 LPCWSTR target
, const INT type
, LPCWSTR action
)
861 msi_custom_action_info
*info
;
865 TRACE("%s %s\n", debugstr_w(source
), debugstr_w(target
));
867 file
= msi_get_loaded_file( package
, source
);
870 ERR("invalid file key %s\n", debugstr_w( source
));
871 return ERROR_FUNCTION_FAILED
;
874 info
= do_msidbCustomActionTypeDll( package
, type
, file
->TargetPath
, target
, action
);
876 r
= wait_thread_handle( info
);
877 release_custom_action_data( info
);
881 static UINT
HANDLE_CustomType18(MSIPACKAGE
*package
, LPCWSTR source
,
882 LPCWSTR target
, const INT type
, LPCWSTR action
)
888 if (!(file
= msi_get_loaded_file( package
, source
))) return ERROR_FUNCTION_FAILED
;
890 deformat_string( package
, target
, &arg
);
891 TRACE("exe %s arg %s\n", debugstr_w(file
->TargetPath
), debugstr_w(arg
));
893 handle
= execute_command( file
->TargetPath
, arg
, szCRoot
);
895 if (handle
== INVALID_HANDLE_VALUE
) return ERROR_SUCCESS
;
896 return wait_process_handle( package
, type
, handle
, action
);
899 static UINT
HANDLE_CustomType19(MSIPACKAGE
*package
, LPCWSTR source
,
900 LPCWSTR target
, const INT type
, LPCWSTR action
)
902 static const WCHAR query
[] = {
903 'S','E','L','E','C','T',' ','`','M','e','s','s','a','g','e','`',' ',
904 'F','R','O','M',' ','`','E','r','r','o','r','`',' ',
905 'W','H','E','R','E',' ','`','E','r','r','o','r','`',' ','=',' ',
909 LPWSTR deformated
= NULL
;
911 deformat_string( package
, target
, &deformated
);
913 /* first try treat the error as a number */
914 row
= MSI_QueryGetRecord( package
->db
, query
, deformated
);
917 LPCWSTR error
= MSI_RecordGetString( row
, 1 );
918 if ((gUILevel
& INSTALLUILEVEL_MASK
) != INSTALLUILEVEL_NONE
)
919 MessageBoxW( NULL
, error
, NULL
, MB_OK
);
920 msiobj_release( &row
->hdr
);
922 else if ((gUILevel
& INSTALLUILEVEL_MASK
) != INSTALLUILEVEL_NONE
)
923 MessageBoxW( NULL
, deformated
, NULL
, MB_OK
);
925 msi_free( deformated
);
927 return ERROR_INSTALL_FAILURE
;
930 static UINT
HANDLE_CustomType50(MSIPACKAGE
*package
, LPCWSTR source
,
931 LPCWSTR target
, const INT type
, LPCWSTR action
)
936 if (!(exe
= msi_dup_property( package
->db
, source
))) return ERROR_SUCCESS
;
938 deformat_string( package
, target
, &arg
);
939 TRACE("exe %s arg %s\n", debugstr_w(exe
), debugstr_w(arg
));
941 handle
= execute_command( exe
, arg
, szCRoot
);
943 if (handle
== INVALID_HANDLE_VALUE
) return ERROR_SUCCESS
;
944 return wait_process_handle( package
, type
, handle
, action
);
947 static UINT
HANDLE_CustomType34(MSIPACKAGE
*package
, LPCWSTR source
,
948 LPCWSTR target
, const INT type
, LPCWSTR action
)
950 const WCHAR
*workingdir
;
954 workingdir
= msi_get_target_folder( package
, source
);
955 if (!workingdir
) return ERROR_FUNCTION_FAILED
;
957 deformat_string( package
, target
, &cmd
);
958 if (!cmd
) return ERROR_FUNCTION_FAILED
;
960 TRACE("cmd %s dir %s\n", debugstr_w(cmd
), debugstr_w(workingdir
));
962 handle
= execute_command( NULL
, cmd
, workingdir
);
964 if (handle
== INVALID_HANDLE_VALUE
) return ERROR_SUCCESS
;
965 return wait_process_handle( package
, type
, handle
, action
);
968 static DWORD
ACTION_CallScript( const GUID
*guid
)
970 msi_custom_action_info
*info
;
974 info
= find_action_by_guid( guid
);
977 ERR("failed to find action %s\n", debugstr_guid( guid
) );
978 return ERROR_FUNCTION_FAILED
;
981 TRACE("function %s, script %s\n", debugstr_w( info
->target
), debugstr_w( info
->source
) );
983 hPackage
= alloc_msihandle( &info
->package
->hdr
);
986 r
= call_script( hPackage
, info
->type
, info
->source
, info
->target
, info
->action
);
987 TRACE("script returned %u\n", r
);
988 MsiCloseHandle( hPackage
);
991 ERR("failed to create handle for %p\n", info
->package
);
993 release_custom_action_data( info
);
997 static DWORD WINAPI
ScriptThread( LPVOID arg
)
1002 TRACE("custom action (%x) started\n", GetCurrentThreadId() );
1004 rc
= ACTION_CallScript( guid
);
1006 TRACE("custom action (%x) returned %i\n", GetCurrentThreadId(), rc
);
1008 MsiCloseAllHandles();
1012 static msi_custom_action_info
*do_msidbCustomActionTypeScript(
1013 MSIPACKAGE
*package
, INT type
, LPCWSTR script
, LPCWSTR function
, LPCWSTR action
)
1015 msi_custom_action_info
*info
;
1017 info
= msi_alloc( sizeof *info
);
1021 msiobj_addref( &package
->hdr
);
1022 info
->refs
= 2; /* 1 for our caller and 1 for thread we created */
1023 info
->package
= package
;
1025 info
->target
= strdupW( function
);
1026 info
->source
= strdupW( script
);
1027 info
->action
= strdupW( action
);
1028 CoCreateGuid( &info
->guid
);
1030 EnterCriticalSection( &msi_custom_action_cs
);
1031 list_add_tail( &msi_pending_custom_actions
, &info
->entry
);
1032 LeaveCriticalSection( &msi_custom_action_cs
);
1034 info
->handle
= CreateThread( NULL
, 0, ScriptThread
, &info
->guid
, 0, NULL
);
1037 /* release both references */
1038 release_custom_action_data( info
);
1039 release_custom_action_data( info
);
1046 static UINT
HANDLE_CustomType37_38(MSIPACKAGE
*package
, LPCWSTR source
,
1047 LPCWSTR target
, const INT type
, LPCWSTR action
)
1050 msi_custom_action_info
*info
;
1052 TRACE("%s %s\n", debugstr_w(source
), debugstr_w(target
));
1054 info
= do_msidbCustomActionTypeScript( package
, type
, target
, NULL
, action
);
1056 r
= wait_thread_handle( info
);
1057 release_custom_action_data( info
);
1061 static UINT
HANDLE_CustomType5_6(MSIPACKAGE
*package
, LPCWSTR source
,
1062 LPCWSTR target
, const INT type
, LPCWSTR action
)
1064 static const WCHAR query
[] = {
1065 'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ',
1066 '`','B','i' ,'n','a','r','y','`',' ','W','H','E','R','E',' ',
1067 '`','N','a','m','e','`',' ','=',' ','\'','%','s','\'',0};
1069 msi_custom_action_info
*info
;
1070 CHAR
*buffer
= NULL
;
1071 WCHAR
*bufferw
= NULL
;
1075 TRACE("%s %s\n", debugstr_w(source
), debugstr_w(target
));
1077 row
= MSI_QueryGetRecord(package
->db
, query
, source
);
1079 return ERROR_FUNCTION_FAILED
;
1081 r
= MSI_RecordReadStream(row
, 2, NULL
, &sz
);
1082 if (r
!= ERROR_SUCCESS
) return r
;
1084 buffer
= msi_alloc( sz
+ 1 );
1085 if (!buffer
) return ERROR_FUNCTION_FAILED
;
1087 r
= MSI_RecordReadStream(row
, 2, buffer
, &sz
);
1088 if (r
!= ERROR_SUCCESS
)
1092 bufferw
= strdupAtoW(buffer
);
1095 r
= ERROR_FUNCTION_FAILED
;
1099 info
= do_msidbCustomActionTypeScript( package
, type
, bufferw
, target
, action
);
1100 r
= wait_thread_handle( info
);
1101 release_custom_action_data( info
);
1109 static UINT
HANDLE_CustomType21_22(MSIPACKAGE
*package
, LPCWSTR source
,
1110 LPCWSTR target
, const INT type
, LPCWSTR action
)
1112 msi_custom_action_info
*info
;
1115 DWORD sz
, szHighWord
= 0, read
;
1117 WCHAR
*bufferw
=NULL
;
1121 TRACE("%s %s\n", debugstr_w(source
), debugstr_w(target
));
1123 file
= msi_get_loaded_file(package
, source
);
1126 ERR("invalid file key %s\n", debugstr_w(source
));
1127 return ERROR_FUNCTION_FAILED
;
1130 hFile
= CreateFileW(file
->TargetPath
, GENERIC_READ
, FILE_SHARE_READ
, NULL
, OPEN_EXISTING
, 0, NULL
);
1131 if (hFile
== INVALID_HANDLE_VALUE
) return ERROR_FUNCTION_FAILED
;
1133 sz
= GetFileSize(hFile
, &szHighWord
);
1134 if (sz
== INVALID_FILE_SIZE
|| szHighWord
!= 0)
1137 return ERROR_FUNCTION_FAILED
;
1139 buffer
= msi_alloc( sz
+ 1 );
1143 return ERROR_FUNCTION_FAILED
;
1145 bRet
= ReadFile(hFile
, buffer
, sz
, &read
, NULL
);
1149 r
= ERROR_FUNCTION_FAILED
;
1153 bufferw
= strdupAtoW(buffer
);
1156 r
= ERROR_FUNCTION_FAILED
;
1159 info
= do_msidbCustomActionTypeScript( package
, type
, bufferw
, target
, action
);
1160 r
= wait_thread_handle( info
);
1161 release_custom_action_data( info
);
1169 static UINT
HANDLE_CustomType53_54(MSIPACKAGE
*package
, LPCWSTR source
,
1170 LPCWSTR target
, const INT type
, LPCWSTR action
)
1172 msi_custom_action_info
*info
;
1176 TRACE("%s %s\n", debugstr_w(source
), debugstr_w(target
));
1178 prop
= msi_dup_property( package
->db
, source
);
1179 if (!prop
) return ERROR_SUCCESS
;
1181 info
= do_msidbCustomActionTypeScript( package
, type
, prop
, NULL
, action
);
1183 r
= wait_thread_handle( info
);
1184 release_custom_action_data( info
);
1188 UINT
ACTION_CustomAction(MSIPACKAGE
*package
, LPCWSTR action
, UINT script
, BOOL execute
)
1190 static const WCHAR query
[] = {
1191 'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ',
1192 '`','C','u','s','t','o','m','A','c','t','i','o','n','`',' ','W','H','E','R','E',' ',
1193 '`','A','c','t','i' ,'o','n','`',' ','=',' ','\'','%','s','\'',0};
1194 UINT rc
= ERROR_SUCCESS
;
1197 LPCWSTR source
, target
;
1198 LPWSTR ptr
, deferred_data
= NULL
;
1199 LPWSTR deformated
= NULL
, action_copy
= strdupW(action
);
1201 /* deferred action: [properties]Action */
1202 if ((ptr
= strrchrW(action_copy
, ']')))
1204 deferred_data
= action_copy
;
1208 row
= MSI_QueryGetRecord( package
->db
, query
, action
);
1211 msi_free(action_copy
);
1212 return ERROR_CALL_NOT_IMPLEMENTED
;
1215 type
= MSI_RecordGetInteger(row
,2);
1217 source
= MSI_RecordGetString(row
,3);
1218 target
= MSI_RecordGetString(row
,4);
1220 TRACE("Handling custom action %s (%x %s %s)\n",debugstr_w(action
),type
,
1221 debugstr_w(source
), debugstr_w(target
));
1223 /* handle some of the deferred actions */
1224 if (type
& msidbCustomActionTypeTSAware
)
1225 FIXME("msidbCustomActionTypeTSAware not handled\n");
1227 if (type
& msidbCustomActionTypeInScript
)
1229 if (type
& msidbCustomActionTypeNoImpersonate
)
1230 WARN("msidbCustomActionTypeNoImpersonate not handled\n");
1234 LPWSTR actiondata
= msi_dup_property(package
->db
, action
);
1235 LPWSTR usersid
= msi_dup_property(package
->db
, szUserSID
);
1236 LPWSTR prodcode
= msi_dup_property(package
->db
, szProductCode
);
1237 LPWSTR deferred
= msi_get_deferred_action(action
, actiondata
, usersid
, prodcode
);
1239 if (type
& msidbCustomActionTypeCommit
)
1241 TRACE("Deferring commit action\n");
1242 msi_schedule_action(package
, COMMIT_SCRIPT
, deferred
);
1244 else if (type
& msidbCustomActionTypeRollback
)
1246 TRACE("Deferring rollback action\n");
1247 msi_schedule_action(package
, ROLLBACK_SCRIPT
, deferred
);
1251 TRACE("Deferring action\n");
1252 msi_schedule_action(package
, INSTALL_SCRIPT
, deferred
);
1256 msi_free(actiondata
);
1264 LPWSTR actiondata
= msi_dup_property( package
->db
, action
);
1266 if (type
& msidbCustomActionTypeInScript
)
1267 package
->scheduled_action_running
= TRUE
;
1269 if (type
& msidbCustomActionTypeCommit
)
1270 package
->commit_action_running
= TRUE
;
1272 if (type
& msidbCustomActionTypeRollback
)
1273 package
->rollback_action_running
= TRUE
;
1276 set_deferred_action_props(package
, deferred_data
);
1277 else if (actiondata
)
1278 msi_set_property(package
->db
, szCustomActionData
, actiondata
);
1280 msi_set_property(package
->db
, szCustomActionData
, szEmpty
);
1282 msi_free(actiondata
);
1285 else if (!check_execution_scheduling_options(package
,action
,type
))
1291 switch (type
& CUSTOM_ACTION_TYPE_MASK
)
1293 case 1: /* DLL file stored in a Binary table stream */
1294 rc
= HANDLE_CustomType1(package
,source
,target
,type
,action
);
1296 case 2: /* EXE file stored in a Binary table stream */
1297 rc
= HANDLE_CustomType2(package
,source
,target
,type
,action
);
1299 case 18: /*EXE file installed with package */
1300 rc
= HANDLE_CustomType18(package
,source
,target
,type
,action
);
1302 case 19: /* Error that halts install */
1303 rc
= HANDLE_CustomType19(package
,source
,target
,type
,action
);
1306 rc
= HANDLE_CustomType17(package
,source
,target
,type
,action
);
1308 case 23: /* installs another package in the source tree */
1309 deformat_string(package
,target
,&deformated
);
1310 rc
= HANDLE_CustomType23(package
,source
,deformated
,type
,action
);
1311 msi_free(deformated
);
1313 case 50: /*EXE file specified by a property value */
1314 rc
= HANDLE_CustomType50(package
,source
,target
,type
,action
);
1316 case 34: /*EXE to be run in specified directory */
1317 rc
= HANDLE_CustomType34(package
,source
,target
,type
,action
);
1319 case 35: /* Directory set with formatted text. */
1320 deformat_string(package
,target
,&deformated
);
1321 MSI_SetTargetPathW(package
, source
, deformated
);
1322 msi_free(deformated
);
1324 case 51: /* Property set with formatted text. */
1328 deformat_string(package
,target
,&deformated
);
1329 rc
= msi_set_property( package
->db
, source
, deformated
);
1330 if (rc
== ERROR_SUCCESS
&& !strcmpW( source
, szSourceDir
))
1331 msi_reset_folders( package
, TRUE
);
1332 msi_free(deformated
);
1334 case 37: /* JScript/VBScript text stored in target column. */
1336 rc
= HANDLE_CustomType37_38(package
,source
,target
,type
,action
);
1339 case 6: /* JScript/VBScript file stored in a Binary table stream. */
1340 rc
= HANDLE_CustomType5_6(package
,source
,target
,type
,action
);
1342 case 21: /* JScript/VBScript file installed with the product. */
1344 rc
= HANDLE_CustomType21_22(package
,source
,target
,type
,action
);
1346 case 53: /* JScript/VBScript text specified by a property value. */
1348 rc
= HANDLE_CustomType53_54(package
,source
,target
,type
,action
);
1351 FIXME("unhandled action type %u (%s %s)\n", type
& CUSTOM_ACTION_TYPE_MASK
,
1352 debugstr_w(source
), debugstr_w(target
));
1356 package
->scheduled_action_running
= FALSE
;
1357 package
->commit_action_running
= FALSE
;
1358 package
->rollback_action_running
= FALSE
;
1359 msi_free(action_copy
);
1360 msiobj_release(&row
->hdr
);
1364 void ACTION_FinishCustomActions(const MSIPACKAGE
* package
)
1367 HANDLE
*wait_handles
;
1368 unsigned int handle_count
, i
;
1369 msi_custom_action_info
*info
, *cursor
;
1371 while ((item
= list_head( &package
->RunningActions
)))
1373 MSIRUNNINGACTION
*action
= LIST_ENTRY( item
, MSIRUNNINGACTION
, entry
);
1375 list_remove( &action
->entry
);
1377 TRACE("waiting for %s\n", debugstr_w( action
->name
) );
1378 msi_dialog_check_messages( action
->handle
);
1380 CloseHandle( action
->handle
);
1381 msi_free( action
->name
);
1385 EnterCriticalSection( &msi_custom_action_cs
);
1387 handle_count
= list_count( &msi_pending_custom_actions
);
1388 wait_handles
= msi_alloc( handle_count
* sizeof(HANDLE
) );
1391 LIST_FOR_EACH_ENTRY_SAFE( info
, cursor
, &msi_pending_custom_actions
, msi_custom_action_info
, entry
)
1393 if (info
->package
== package
)
1395 if (DuplicateHandle(GetCurrentProcess(), info
->handle
, GetCurrentProcess(), &wait_handles
[handle_count
], SYNCHRONIZE
, FALSE
, 0))
1400 LeaveCriticalSection( &msi_custom_action_cs
);
1402 for (i
= 0; i
< handle_count
; i
++)
1404 msi_dialog_check_messages( wait_handles
[i
] );
1405 CloseHandle( wait_handles
[i
] );
1408 msi_free( wait_handles
);
1411 typedef struct _msi_custom_remote_impl
{
1412 IWineMsiRemoteCustomAction IWineMsiRemoteCustomAction_iface
;
1414 } msi_custom_remote_impl
;
1416 static inline msi_custom_remote_impl
*impl_from_IWineMsiRemoteCustomAction( IWineMsiRemoteCustomAction
*iface
)
1418 return CONTAINING_RECORD(iface
, msi_custom_remote_impl
, IWineMsiRemoteCustomAction_iface
);
1421 static HRESULT WINAPI
mcr_QueryInterface( IWineMsiRemoteCustomAction
*iface
,
1422 REFIID riid
,LPVOID
*ppobj
)
1424 if( IsEqualCLSID( riid
, &IID_IUnknown
) ||
1425 IsEqualCLSID( riid
, &IID_IWineMsiRemoteCustomAction
) )
1427 IUnknown_AddRef( iface
);
1432 return E_NOINTERFACE
;
1435 static ULONG WINAPI
mcr_AddRef( IWineMsiRemoteCustomAction
*iface
)
1437 msi_custom_remote_impl
* This
= impl_from_IWineMsiRemoteCustomAction( iface
);
1439 return InterlockedIncrement( &This
->refs
);
1442 static ULONG WINAPI
mcr_Release( IWineMsiRemoteCustomAction
*iface
)
1444 msi_custom_remote_impl
* This
= impl_from_IWineMsiRemoteCustomAction( iface
);
1447 r
= InterlockedDecrement( &This
->refs
);
1453 static HRESULT WINAPI
mcr_GetActionInfo( IWineMsiRemoteCustomAction
*iface
, LPCGUID custom_action_guid
,
1454 INT
*type
, MSIHANDLE
*handle
, BSTR
*dll
, BSTR
*func
, IWineMsiRemotePackage
**remote_package
)
1456 msi_custom_action_info
*info
;
1458 info
= find_action_by_guid( custom_action_guid
);
1463 *handle
= alloc_msihandle( &info
->package
->hdr
);
1464 *dll
= SysAllocString( info
->source
);
1465 *func
= SysAllocString( info
->target
);
1467 release_custom_action_data( info
);
1468 return create_msi_remote_package( NULL
, (LPVOID
*)remote_package
);
1471 static const IWineMsiRemoteCustomActionVtbl msi_custom_remote_vtbl
=
1479 HRESULT
create_msi_custom_remote( IUnknown
*pOuter
, LPVOID
*ppObj
)
1481 msi_custom_remote_impl
* This
;
1483 This
= msi_alloc( sizeof *This
);
1485 return E_OUTOFMEMORY
;
1487 This
->IWineMsiRemoteCustomAction_iface
.lpVtbl
= &msi_custom_remote_vtbl
;