ShellExecEx - Revision history

209.195.89.100: /* Example */

2011-12-03T12:26:01Z

Example

â† Older revision		Revision as of 12:26, 3 December 2011
Line 10:		Line 10:
	<highlight-nsis>		<highlight-nsis>
	!define IfProcExistsH "!insertmacro _IfProcExistsH"		!define IfProcExistsH "!insertmacro _IfProcExistsH"
	!macro _IfProcExistsH _ProcHandle_ _GotoIfTrue_ _GotoIfFalse_		!macro _IfProcExistsH _ProcHandle_ _GotoIfTrue_ _GotoIfFalse_ ;; gotos: no negative numbers, use labels instead
	Push "$0"		Push "$0"
	ClearErrors		ClearErrors

209.195.89.100 at 11:10, 3 December 2011

2011-12-03T11:10:22Z

â† Older revision		Revision as of 11:10, 3 December 2011
Line 3:		Line 3:

	== Description ==		== Description ==
	Executes files via the ShellExecuteEx api, uses three modes: 1. nowait, returns process id, 2. nowait, returns process handle, and 3. wait mode, returns process exit code. ~~WinXP.~~SP1/~~Win2003~~ or higher is required for mode 1.		Executes files via the ShellExecuteEx api, uses three modes: 1. nowait - returns process id, 2. nowait - returns process handle, and 3. wait mode - returns process exit code. XP-SP1/2003 or higher is required for mode 1.


Line 13:		Line 13:
	Push "$0"		Push "$0"
	ClearErrors		ClearErrors
	System::Call 'kernel32::WaitForSingleObject(i ${_ProcHandle_}, i 0) i .r0'		System::Call 'kernel32::WaitForSingleObject(i ${_ProcHandle_}, i 0) i .r0' ;; no wait, just check if ok
	IntCmp $0 0 +2		IntCmp $0 0 +2
	SetErrors		SetErrors
Line 32:		Line 32:
	<highlight-nsis>		<highlight-nsis>
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Gets the parent ~~folder~~		;; Gets the parent directory
	;; P1 :out: ~~Folder containing file or~~ dir ~~(parent folder)~~		;; P1 :out: Parent dir
	;; P2 :in: File/Dir		;; P2 :in: File/Dir
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 70:		Line 70:
	;; P7 :in: Mode: 1=Nowait, Return Process Id		;; P7 :in: Mode: 1=Nowait, Return Process Id
	;; 2=Nowait, Return Process Handle (must close the handle yourself)		;; 2=Nowait, Return Process Handle (must close the handle yourself)
	;; 3=Wait, Return Exit Code		;; 3=Wait, Return Process Exit Code
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	!define ShellExecEx "!insertmacro _ShellExecEx"		!define ShellExecEx "!insertmacro _ShellExecEx"
Line 120:		Line 120:
	Goto end		Goto end
	; wait:		; wait:
	System::Call 'kernel32::WaitForSingleObject(i r2, i -1)'		System::Call 'kernel32::WaitForSingleObject(i r2, i -1)' ;; wait indefinitely for the process to exit
	System::Call 'kernel32::GetExitCodeProcess(i r2,*i .r4)'		System::Call 'kernel32::GetExitCodeProcess(i r2,*i .r4)'
	System::Call 'Kernel32::CloseHandle(i r2)'		System::Call 'Kernel32::CloseHandle(i r2)'

209.195.89.100: /* Function */

2011-12-02T21:48:59Z

Function

â† Older revision		Revision as of 21:48, 2 December 2011
Line 88:		Line 88:
	Exch $1 ;; File		Exch $1 ;; File
	Exch 2		Exch 2
	Exch $2 ;; Params		Exch $2 ;; Params / process handle
	Exch 3		Exch 3
	Exch $3 ;; WorkDir		Exch $3 ;; WorkDir

209.195.89.100: /* Function */

2011-12-02T21:47:21Z

Function

â† Older revision		Revision as of 21:47, 2 December 2011
Line 92:		Line 92:
	Exch $3 ;; WorkDir		Exch $3 ;; WorkDir
	Exch 4		Exch 4
	Exch $4 ;; Show		Exch $4 ;; Show / return value
	Exch 5		Exch 5
	Exch $5 ;; Mode		Exch $5 ;; Mode

Lloigor: /* Function */

2011-12-02T20:48:28Z

Function

â† Older revision		Revision as of 20:48, 2 December 2011
Line 97:		Line 97:
	Push "$9" ;; shellexecuteinfo struct		Push "$9" ;; shellexecuteinfo struct

			ClearErrors
	StrCmpS "" "$3" 0 wdok		StrCmpS "" "$3" 0 wdok
	${PathPath} $3 "$1"		${PathPath} $3 "$1"

Lloigor: /* Function */

2011-12-02T20:45:45Z

Function

â† Older revision		Revision as of 20:45, 2 December 2011
Line 106:		Line 106:
	System::Call 'shell32::ShellExecuteEx(i r9) i .r1' ;; execute the file		System::Call 'shell32::ShellExecuteEx(i r9) i .r1' ;; execute the file
	StrCmpS 0 $1 0 +4 ;; if there was errors, then		StrCmpS 0 $1 0 +4 ;; if there was errors, then
	StrCpy $3 -1 ; return -1 and set the error flag		StrCpy $4 -1 ; return -1 and set the error flag
	SetErrors		SetErrors
	Goto end		Goto end

Lloigor: /* Function */

2011-12-02T20:43:42Z

Function

â† Older revision		Revision as of 20:43, 2 December 2011
Line 62:		Line 62:
	;; Executes a file with the ShellExecuteEx api		;; Executes a file with the ShellExecuteEx api
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; P1 :out: Return value, depends on the mode (P7). On error returns 0 and sets the error flag		;; P1 :out: Return value, depends on the mode (P7). On error returns -1 and sets the error flag
	;; P2 :in: Verb. if="" then it opens with default associated app		;; P2 :in: Verb. if="" then it opens with default associated app
	;; P3 :in: File		;; P3 :in: File
Line 106:		Line 106:
	System::Call 'shell32::ShellExecuteEx(i r9) i .r1' ;; execute the file		System::Call 'shell32::ShellExecuteEx(i r9) i .r1' ;; execute the file
	StrCmpS 0 $1 0 +4 ;; if there was errors, then		StrCmpS 0 $1 0 +4 ;; if there was errors, then
	StrCpy $3 0 ; ~~set~~ return ~~value to 0~~ and set the error flag		StrCpy $3 -1 ; return -1 and set the error flag
	SetErrors		SetErrors
	Goto end		Goto end

Lloigor: /* Function */

2011-12-02T20:36:27Z

Function

â† Older revision		Revision as of 20:36, 2 December 2011
Line 62:		Line 62:
	;; Executes a file with the ShellExecuteEx api		;; Executes a file with the ShellExecuteEx api
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; P1 :out: Return value, depends on the mode (P5). On error returns 0 and sets the error flag		;; P1 :out: Return value, depends on the mode (P7). On error returns 0 and sets the error flag
	;; P2 :in: Verb. if="" then it opens with default associated app		;; P2 :in: Verb. if="" then it opens with default associated app
	;; P3 :in: File		;; P3 :in: File

Lloigor: /* Function */

2011-12-02T20:25:49Z

Function

â† Older revision		Revision as of 20:25, 2 December 2011
Line 60:		Line 60:

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; Executes ~~files~~ with the ShellExecuteEx api		;; Executes a file with the ShellExecuteEx api
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;; P1 :out: Return value, depends on the mode (P5)		;; P1 :out: Return value, depends on the mode (P5). On error returns 0 and sets the error flag
	;; P2 :in: Verb. if="" then it opens with default associated app		;; P2 :in: Verb. if="" then it opens with default associated app
	;; P3 :in: File		;; P3 :in: File
Line 69:		Line 69:
	;; P6 :in: Show flag. if="" then SH_SHOW is used (http://msdn.microsoft.com/en-us/library/bb762153(v=VS.85).aspx)		;; P6 :in: Show flag. if="" then SH_SHOW is used (http://msdn.microsoft.com/en-us/library/bb762153(v=VS.85).aspx)
	;; P7 :in: Mode: 1=Nowait, Return Process Id		;; P7 :in: Mode: 1=Nowait, Return Process Id
	;; 2=Nowait, Return Process Handle (must close the handle yourself)		;; 2=Nowait, Return Process Handle (must close the handle yourself)
	;; 3=Wait, Return Exit Code		;; 3=Wait, Return Exit Code
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	!define ShellExecEx "!insertmacro _ShellExecEx"		!define ShellExecEx "!insertmacro _ShellExecEx"
Line 84:		Line 84:
	!macroend		!macroend
	Function ShellExecEx		Function ShellExecEx
	Exch $0 ;; ~~verb~~		Exch $0 ;; Verb
	Exch		Exch
	Exch $1 ;; File		Exch $1 ;; File
Line 104:		Line 104:
	System::Call '*(&i60) i .r9' ;; allocate the structure		System::Call '*(&i60) i .r9' ;; allocate the structure
	System::Call '*$9(i 60, i 0x140, i $HWNDPARENT, t r0, t r1, t r2, t r3, i r4) i .r9' ;; assign the values to the struct		System::Call '*$9(i 60, i 0x140, i $HWNDPARENT, t r0, t r1, t r2, t r3, i r4) i .r9' ;; assign the values to the struct
	System::Call '~~Shell32~~::ShellExecuteEx(i r9) i .r1' ;; execute the file		System::Call 'shell32::ShellExecuteEx(i r9) i .r1' ;; execute the file
	StrCmpS 0 $1 0 +4 ;; if there was errors, then		StrCmpS 0 $1 0 +4 ;; if there was errors, then
	StrCpy $3 0 ; set return value to 0 and set the error flag		StrCpy $3 0 ; set return value to 0 and set the error flag
Line 110:		Line 110:
	Goto end		Goto end

	System::Call '*$9(i, i, i, i, i, i, i, i, i, i, i, i, i, i, i .r2)'		System::Call '*$9(i, i, i, i, i, i, i, i, i, i, i, i, i, i, i .r2)' ;; get the process handle

	IntCmp $5 2 +4 0 +6 ;; 1:nowait-pid, 2:nowait-handle, 3:wait-exitcode		IntCmp $5 2 +4 0 +6 ;; 1:nowait-pid, 2:nowait-handle, 3:wait-exitcode
	System::Call '~~Kernel32~~::GetProcessId(i r2) i .r4'		System::Call 'kernel32::GetProcessId(i r2) i .r4'
	System::Call '~~Kernel32~~::CloseHandle(i r2)'		System::Call 'kernel32::CloseHandle(i r2)'
	Goto end		Goto end
	; handle:		; handle:
Line 120:		Line 119:
	Goto end		Goto end
	; wait:		; wait:
	System::Call '~~Kernel32~~::WaitForSingleObject(i r2, i -1)'		System::Call 'kernel32::WaitForSingleObject(i r2, i -1)'
	System::Call '~~Kernel32~~::GetExitCodeProcess(i r2,*i .r4)'		System::Call 'kernel32::GetExitCodeProcess(i r2,*i .r4)'
	System::Call 'Kernel32::CloseHandle(i r2)'		System::Call 'Kernel32::CloseHandle(i r2)'

Lloigor: /* Example */

2011-12-02T20:09:05Z

Example

â† Older revision		Revision as of 20:09, 2 December 2011
Line 7:		Line 7:

	== Example ==		== Example ==
			Tests if a process, identified by a handle, still exists.
	<highlight-nsis>		<highlight-nsis>
	!define IfProcExistsH "!insertmacro _IfProcExistsH"		!define IfProcExistsH "!insertmacro _IfProcExistsH"