NSIS Service Lib - Revision history

Zinthose: /* Usage in Unicode NSIS */ 3013.. lol

2013-06-24T14:55:54Z

Usage in Unicode NSIS: 3013.. lol

â† Older revision		Revision as of 14:55, 24 June 2013
Line 444:		Line 444:
	\| <strike>StartServiceA</strike> \|\| <strike>StartServiceW</strike>		\| <strike>StartServiceA</strike> \|\| <strike>StartServiceW</strike>
	\|}		\|}
	Dynamic support for ASCII and Unicode added on 6/21/~~3013~~ by [[User:Zinthose\|Zinthose]]		Dynamic support for ASCII and Unicode added on 6/21/2013 by [[User:Zinthose\|Zinthose]]

	== Comments ==		== Comments ==

Zinthose: /* The Script */ Opps Bug

2013-06-21T20:48:16Z

The Script: Opps Bug

â† Older revision		Revision as of 20:48, 21 June 2013
Line 105:		Line 105:
	## Added by Zinthose for Native Unicode Support		## Added by Zinthose for Native Unicode Support
	!ifdef NSIS_UNICODE		!ifdef NSIS_UNICODE
	!define APITAG = "W"		!define APITAG "W"
	!else		!else
	!define APITAG = "A"		!define APITAG "A"
	!endif		!endif

Zinthose: /* The Script */

2013-06-21T20:08:56Z

The Script

â† Older revision		Revision as of 20:08, 21 June 2013
Line 69:		Line 69:
	; 1.7 - 04/11/2010 - Added get running service process id (Nico)		; 1.7 - 04/11/2010 - Added get running service process id (Nico)
	; 1.8 - 24/03/2011 - Added starttype and servicetype (Sergius)		; 1.8 - 24/03/2011 - Added starttype and servicetype (Sergius)
	; 1.8.1 - 24/03/~~2011~~ - Added dynamic ASCII & Unicode support (Zinthose)		; 1.8.1 - 21/06/2013 - Added dynamic ASCII & Unicode support (Zinthose)

	!ifndef SERVICELIB		!ifndef SERVICELIB

Zinthose: /* The Script */ Adjusted version and added to change log

2013-06-21T20:08:08Z

The Script: Adjusted version and added to change log

â† Older revision		Revision as of 20:08, 21 June 2013
Line 7:		Line 7:
	<highlight-nsis>		<highlight-nsis>
	; NSIS SERVICE LIBRARY - servicelib.nsh		; NSIS SERVICE LIBRARY - servicelib.nsh
	; Version 1.8 - ~~Mar 24th~~, ~~2011~~		; Version 1.8.1 - Jun 21th, 2013
	; Questions/Comments - dselkirk@hotmail.com		; Questions/Comments - dselkirk@hotmail.com
	;		;
Line 69:		Line 69:
	; 1.7 - 04/11/2010 - Added get running service process id (Nico)		; 1.7 - 04/11/2010 - Added get running service process id (Nico)
	; 1.8 - 24/03/2011 - Added starttype and servicetype (Sergius)		; 1.8 - 24/03/2011 - Added starttype and servicetype (Sergius)
			; 1.8.1 - 24/03/2011 - Added dynamic ASCII & Unicode support (Zinthose)

	!ifndef SERVICELIB		!ifndef SERVICELIB
	!define SERVICELIB		!define SERVICELIB

Zinthose: /* Usage in Unicode NSIS */ Added dynamic ASCII and Unicode support

2013-06-21T20:05:30Z

Usage in Unicode NSIS: Added dynamic ASCII and Unicode support

â† Older revision		Revision as of 20:05, 21 June 2013
Line 429:		Line 429:
	You can also use this library with [http://www.scratchpaper.com/ Unicode NSIS]. Then you can use non-ASCII characters, in the service's description for example.		You can also use this library with [http://www.scratchpaper.com/ Unicode NSIS]. Then you can use non-ASCII characters, in the service's description for example.

	All you need to do is replace the following API function names:		<strike>All you need to do is replace the following API function names:</strike>
	{\|		{\|
	! ASCII !! Unicode		! <strike>ASCII</strike> !! <strike>Unicode</strike>
	\|-		\|-
	\| OpenSCManagerA \|\| OpenSCManagerW		\| <strike>OpenSCManagerA</strike> \|\| <strike>OpenSCManagerW</strike>
	\|-		\|-
	\| OpenServiceA \|\| OpenServiceW		\| <strike>OpenServiceA</strike> \|\| <strike>OpenServiceW</strike>
	\|-		\|-
	\| CreateServiceA \|\| CreateServiceW		\| <strike>CreateServiceA</strike> \|\| <strike>CreateServiceW</strike>
	\|-		\|-
	\| ChangeServiceConfig2A \|\| ChangeServiceConfig2W		\| <strike>ChangeServiceConfig2A</strike> \|\| <strike>ChangeServiceConfig2W</strike>
	\|-		\|-
	\| StartServiceA \|\| StartServiceW		\| <strike>StartServiceA</strike> \|\| <strike>StartServiceW</strike>
	\|}		\|}
			Dynamic support for ASCII and Unicode added on 6/21/3013 by [[User:Zinthose\|Zinthose]]

	== Comments ==		== Comments ==

Zinthose: /* The Script */ Added automatic support Unicode

2013-06-21T20:00:54Z

The Script: Added automatic support Unicode

â† Older revision		Revision as of 20:00, 21 June 2013
Line 88:		Line 88:
	!define SERVICE_PAUSE_PENDING 0x6		!define SERVICE_PAUSE_PENDING 0x6
	!define SERVICE_PAUSED 0x7		!define SERVICE_PAUSED 0x7

	!define SERVICE_KERNEL_DRIVER 0x00000001		!define SERVICE_KERNEL_DRIVER 0x00000001
	!define SERVICE_FILE_SYSTEM_DRIVER 0x00000002		!define SERVICE_FILE_SYSTEM_DRIVER 0x00000002
Line 94:		Line 94:
	!define SERVICE_WIN32_SHARE_PROCESS 0x00000020		!define SERVICE_WIN32_SHARE_PROCESS 0x00000020
	!define SERVICE_INTERACTIVE_PROCESS 0x00000100		!define SERVICE_INTERACTIVE_PROCESS 0x00000100


	!define SERVICE_BOOT_START 0x00000000		!define SERVICE_BOOT_START 0x00000000
	!define SERVICE_SYSTEM_START 0x00000001		!define SERVICE_SYSTEM_START 0x00000001
Line 101:		Line 101:
	!define SERVICE_DEMAND_START 0x00000003		!define SERVICE_DEMAND_START 0x00000003
	!define SERVICE_DISABLED 0x00000004		!define SERVICE_DISABLED 0x00000004

			## Added by Zinthose for Native Unicode Support
			!ifdef NSIS_UNICODE
			!define APITAG = "W"
			!else
			!define APITAG = "A"
			!endif

	!macro SERVICE ACTION NAME PARAM		!macro SERVICE ACTION NAME PARAM
Line 191:		Line 198:

	StrCpy $0 "false"		StrCpy $0 "false"
	System::Call 'advapi32::~~OpenSCManagerA~~(n, n, i ${SC_MANAGER_ALL_ACCESS}) i.r4'		System::Call 'advapi32::OpenSCManager${APITAG}(n, n, i ${SC_MANAGER_ALL_ACCESS}) i.r4'
	IntCmp $4 0 lbl_done		IntCmp $4 0 lbl_done
	StrCmp $3 "create" lbl_create		StrCmp $3 "create" lbl_create
	System::Call 'advapi32::~~OpenServiceA~~(i r4, t r2, i ${SERVICE_ALL_ACCESS}) i.r5'		System::Call 'advapi32::OpenService${APITAG}(i r4, t r2, i ${SERVICE_ALL_ACCESS}) i.r5'
	IntCmp $5 0 lbl_done		IntCmp $5 0 lbl_done

Line 235:		Line 242:
	StrCpy $R3 't "$R3"'		StrCpy $R3 't "$R3"'
	lbl_password:		lbl_password:

	!insertmacro CALL_GETPARAM $R4 "interact" "${SERVICE_WIN32_OWN_PROCESS}" "lbl_interact"		!insertmacro CALL_GETPARAM $R4 "interact" "${SERVICE_WIN32_OWN_PROCESS}" "lbl_interact"
	StrCpy $6 ${SERVICE_WIN32_OWN_PROCESS}		StrCpy $6 ${SERVICE_WIN32_OWN_PROCESS}
Line 242:		Line 249:
	StrCpy $R4 $6		StrCpy $R4 $6
	lbl_interact:		lbl_interact:

	!insertmacro CALL_GETPARAM $R4 "servicetype" "$R4" "lbl_servicetype"		!insertmacro CALL_GETPARAM $R4 "servicetype" "$R4" "lbl_servicetype"
	lbl_servicetype:		lbl_servicetype:

	!insertmacro CALL_GETPARAM $R5 "autostart" "${SERVICE_DEMAND_START}" "lbl_autostart"		!insertmacro CALL_GETPARAM $R5 "autostart" "${SERVICE_DEMAND_START}" "lbl_autostart"
	StrCpy $6 ${SERVICE_DEMAND_START}		StrCpy $6 ${SERVICE_DEMAND_START}
Line 252:		Line 259:
	StrCpy $R5 $6		StrCpy $R5 $6
	lbl_autostart:		lbl_autostart:

	!insertmacro CALL_GETPARAM $R5 "starttype" "$R5" "lbl_starttype"		!insertmacro CALL_GETPARAM $R5 "starttype" "$R5" "lbl_starttype"
	lbl_starttype:		lbl_starttype:
Line 265:		Line 272:
	lbl_description:		lbl_description:

	System::Call 'advapi32::~~CreateServiceA~~(i r4, t r2, t R7, i ${SERVICE_ALL_ACCESS}, \		System::Call 'advapi32::CreateService${APITAG}(i r4, t r2, t R7, i ${SERVICE_ALL_ACCESS}, \
	i R4, i R5, i 0, t R6, n, n, $R1, $R2, $R3) i.r6'		i R4, i R5, i 0, t R6, n, n, $R1, $R2, $R3) i.r6'

	; write description of service (SERVICE_CONFIG_DESCRIPTION)		; write description of service (SERVICE_CONFIG_DESCRIPTION)
	System::Call 'advapi32::~~ChangeServiceConfig2A~~(ir6,i1,*t "$R8")i.R7'		System::Call 'advapi32::ChangeServiceConfig2${APITAG}(ir6,i1,*t "$R8")i.R7'
	strcmp $R7 "error" 0 lbl_descriptioncomplete		strcmp $R7 "error" 0 lbl_descriptioncomplete
	WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\$2" "Description" $R8		WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\$2" "Description" $R8
Line 291:		Line 298:
	; start service		; start service
	lbl_start:		lbl_start:
	System::Call 'advapi32::~~StartServiceA~~(i r5, i 0, i 0) i.r6'		System::Call 'advapi32::StartService${APITAG}(i r5, i 0, i 0) i.r6'
	StrCmp $6 0 lbl_done lbl_good		StrCmp $6 0 lbl_done lbl_good

Line 414:		Line 421:
	!insertmacro FUNC_GETPARAM		!insertmacro FUNC_GETPARAM
	FunctionEnd		FunctionEnd

			!undef APITAG
	!endif		!endif
	</highlight-nsis>		</highlight-nsis>

Christifuzius: added /* Usage in Unicode NSIS */

2012-01-10T14:28:42Z

added Usage in Unicode NSIS

@@ Line 417: / Line 417: @@
 !endif
 </highlight-nsis>
 == Comments ==

Slappy at 05:51, 2 November 2011

2011-11-02T05:51:16Z

â† Older revision		Revision as of 05:51, 2 November 2011
Line 417:		Line 417:
	!endif		!endif
	</highlight-nsis>		</highlight-nsis>

			== Comments ==
			There is a little problem in CreateService with two-dimensional array parameter - http://forums.winamp.com/showthread.php?t=336671

	[[Category:System Plugin Examples]]		[[Category:System Plugin Examples]]

Sergius: Updated script to version 1.8.

2011-03-24T12:51:27Z

Updated script to version 1.8.

â† Older revision		Revision as of 12:51, 24 March 2011
Line 7:		Line 7:
	<highlight-nsis>		<highlight-nsis>
	; NSIS SERVICE LIBRARY - servicelib.nsh		; NSIS SERVICE LIBRARY - servicelib.nsh
	; Version 1.7 - ~~Nov 4th~~, ~~2010~~		; Version 1.8 - Mar 24th, 2011
	; Questions/Comments - dselkirk@hotmail.com		; Questions/Comments - dselkirk@hotmail.com
	;		;
Line 31:		Line 31:
	; display - display name in service's console		; display - display name in service's console
	; description - Description of service		; description - Description of service
			; starttype - start type (supersedes autostart)
			; servicetype - service type (supersedes interact)
	;		;
	; delete - deletes a windows service		; delete - deletes a windows service
Line 44:		Line 46:
	; action - if true then invokes the specified action		; action - if true then invokes the specified action
	; status - check the status of the provided service		; status - check the status of the provided service
	;
	~~; If run from uninstall define "UN" as "un." before running.~~
	;		;
	; Usage:		; Usage:
Line 65:		Line 65:
	; 1.4 - 12/07/2006 - Added display and depend, fixed datatypes (Vitoco)		; 1.4 - 12/07/2006 - Added display and depend, fixed datatypes (Vitoco)
	; 1.5 - 06/25/2008 - Added description of service.(DeSafe.com/liuqixing#gmail.com)		; 1.5 - 06/25/2008 - Added description of service.(DeSafe.com/liuqixing#gmail.com)
			; 1.5.1 - 06/12/2009 - Added use of __UNINSTALL__
	; 1.6 - 08/02/2010 - Fixed description implementation (Anders)		; 1.6 - 08/02/2010 - Fixed description implementation (Anders)
	; 1.7 - 04/11/2010 - Added get running service process id (Nico)		; 1.7 - 04/11/2010 - Added get running service process id (Nico)
			; 1.8 - 24/03/2011 - Added starttype and servicetype (Sergius)

	!ifndef SERVICELIB		!ifndef SERVICELIB
	!define SERVICELIB		!define SERVICELIB

	~~!define SC_MANAGER_ALL_ACCESS 0x3F~~
	~~!define SC_STATUS_PROCESS_INFO 0x0~~
	~~!define SERVICE_ALL_ACCESS 0xF01FF~~

	!define ~~SERVICE_CONTROL_STOP 1~~		!define SC_MANAGER_ALL_ACCESS 0x3F
	!define ~~SERVICE_CONTROL_PAUSE 2~~		!define SC_STATUS_PROCESS_INFO 0x0
	!define ~~SERVICE_CONTROL_CONTINUE 3~~		!define SERVICE_ALL_ACCESS 0xF01FF

	!define ~~SERVICE_STOPPED 0x1~~		!define SERVICE_CONTROL_STOP 1
	!define ~~SERVICE_START_PENDING 0x2~~		!define SERVICE_CONTROL_PAUSE 2
	!define ~~SERVICE_STOP_PENDING 0x3~~		!define SERVICE_CONTROL_CONTINUE 3
	~~!define SERVICE_RUNNING 0x4~~
	~~!define SERVICE_CONTINUE_PENDING 0x5~~
	~~!define SERVICE_PAUSE_PENDING 0x6~~
	~~!define SERVICE_PAUSED 0x7~~

	!~~ifndef UN~~		!define SERVICE_STOPPED 0x1
	!define ~~UN ""~~		!define SERVICE_START_PENDING 0x2
	!~~endif~~		!define SERVICE_STOP_PENDING 0x3
			!define SERVICE_RUNNING 0x4
			!define SERVICE_CONTINUE_PENDING 0x5
			!define SERVICE_PAUSE_PENDING 0x6
			!define SERVICE_PAUSED 0x7

			!define SERVICE_KERNEL_DRIVER 0x00000001
			!define SERVICE_FILE_SYSTEM_DRIVER 0x00000002
			!define SERVICE_WIN32_OWN_PROCESS 0x00000010
			!define SERVICE_WIN32_SHARE_PROCESS 0x00000020
			!define SERVICE_INTERACTIVE_PROCESS 0x00000100


			!define SERVICE_BOOT_START 0x00000000
			!define SERVICE_SYSTEM_START 0x00000001
			!define SERVICE_AUTO_START 0x00000002
			!define SERVICE_DEMAND_START 0x00000003
			!define SERVICE_DISABLED 0x00000004

	!macro SERVICE ACTION NAME PARAM		!macro SERVICE ACTION NAME PARAM
Line 95:		Line 106:
	Push '${NAME}'		Push '${NAME}'
	Push '${PARAM}'		Push '${PARAM}'
	Call ~~${UN}~~Service		!ifdef __UNINSTALL__
			Call un.Service
			!else
			Call Service
			!endif
	!macroend		!macroend

Line 199:		Line 214:
	Push $R2 ;user		Push $R2 ;user
	Push $R3 ;password		Push $R3 ;password
	Push $R4 ;interact		Push $R4 ;servicetype/interact
	Push $R5 ;autostart		Push $R5 ;starttype/autostart
	Push $R6 ;path		Push $R6 ;path
	Push $R7 ;display		Push $R7 ;display
Line 220:		Line 235:
	StrCpy $R3 't "$R3"'		StrCpy $R3 't "$R3"'
	lbl_password:		lbl_password:

	!insertmacro CALL_GETPARAM $R4 "interact" "~~0x10~~" "lbl_interact"		!insertmacro CALL_GETPARAM $R4 "interact" "${SERVICE_WIN32_OWN_PROCESS}" "lbl_interact"
	StrCpy $6 ~~0x10~~		StrCpy $6 ${SERVICE_WIN32_OWN_PROCESS}
	IntCmp $R4 0 +2		IntCmp $R4 0 +2
	IntOp $6 $6 \| ~~0x100~~		IntOp $6 $6 \| ${SERVICE_INTERACTIVE_PROCESS}
	StrCpy $R4 $6		StrCpy $R4 $6
	lbl_interact:		lbl_interact:

	!insertmacro CALL_GETPARAM $R5 "autostart" "~~0x3~~" "lbl_autostart"		!insertmacro CALL_GETPARAM $R4 "servicetype" "$R4" "lbl_servicetype"
	StrCpy $6 ~~0x3~~		lbl_servicetype:

			!insertmacro CALL_GETPARAM $R5 "autostart" "${SERVICE_DEMAND_START}" "lbl_autostart"
			StrCpy $6 ${SERVICE_DEMAND_START}
	IntCmp $R5 0 +2		IntCmp $R5 0 +2
	StrCpy $6 ~~0x2~~		StrCpy $6 ${SERVICE_AUTO_START}
	StrCpy $R5 $6		StrCpy $R5 $6
	lbl_autostart:		lbl_autostart:

			!insertmacro CALL_GETPARAM $R5 "starttype" "$R5" "lbl_starttype"
			lbl_starttype:

	!insertmacro CALL_GETPARAM $R6 "path" "n" "lbl_path"		!insertmacro CALL_GETPARAM $R6 "path" "n" "lbl_path"
Line 359:		Line 380:
	Pop $R1		Pop $R1
	Goto lbl_done		Goto lbl_done

	lbl_good:		lbl_good:
	StrCpy $0 "true"		StrCpy $0 "true"

194.2.155.253: /* The Script */

2010-11-04T12:29:43Z

The Script

Show changes