NSIS Service Lib: Difference between revisions
From NSIS Wiki
Jump to navigationJump to search
m (→Usage in Unicode NSIS: 3013.. lol) |
|||
(20 intermediate revisions by 11 users not shown) | |||
Line 7: | Line 7: | ||
<highlight-nsis> | <highlight-nsis> | ||
; NSIS SERVICE LIBRARY - servicelib.nsh | ; NSIS SERVICE LIBRARY - servicelib.nsh | ||
; Version 1. | ; Version 1.8.1 - Jun 21th, 2013 | ||
; Questions/Comments - dselkirk@hotmail.com | ; Questions/Comments - dselkirk@hotmail.com | ||
; | ; | ||
Line 14: | Line 14: | ||
; | ; | ||
; Inputs: | ; Inputs: | ||
; action - systemlib action ie. create, delete, start, stop, pause, | ; action - systemlib action ie. create, delete, start, stop, pause, | ||
; | ; continue, installed, running, status | ||
; name - name of service to manipulate | ; name - name of service to manipulate | ||
; param - action parameters; usage: var1=value1;var2=value2;...etc. | ; param - action parameters; usage: var1=value1;var2=value2;...etc. | ||
; (don't forget to add a ';' after the last value!) | ; (don't forget to add a ';' after the last value!) | ||
; | ; | ||
; Actions: | ; Actions: | ||
; create - creates a new windows service | ; create - creates a new windows service | ||
; | ; Parameters: | ||
; | ; path - path to service executable | ||
; | ; autostart - automatically start with system ie. 1|0 | ||
; | ; interact - interact with the desktop ie. 1|0 | ||
; | ; depend - service dependencies | ||
; | ; user - user that runs the service | ||
; | ; password - password of the above user | ||
; display - display name in service's console | |||
; description - Description of service | |||
; starttype - start type (supersedes autostart) | |||
; servicetype - service type (supersedes interact) | |||
; | ; | ||
; delete - deletes a windows service | ; delete - deletes a windows service | ||
; start - start a stopped windows service | ; start - start a stopped windows service | ||
; stop - stops a running windows service | ; stop - stops a running windows service | ||
; pause - pauses a running windows service | ; pause - pauses a running windows service | ||
; continue - continues a paused windows service | ; continue - continues a paused windows service | ||
; installed - is the provided service installed | ; installed - is the provided service installed | ||
; | ; Parameters: | ||
; | ; action - if true then invokes the specified action | ||
; running - is the provided service running | ; running - is the provided service running | ||
; | ; Parameters: | ||
; | ; action - if true then invokes the specified action | ||
; status - check the status of the provided service | ; status - check the status of the provided service | ||
; | ; | ||
; Usage: | ; Usage: | ||
Line 57: | Line 59: | ||
; | ; | ||
; History: | ; History: | ||
; | ; 1.0 - 09/15/2003 - Initial release | ||
; | ; 1.1 - 09/16/2003 - Changed &l to i, thx brainsucker | ||
; | ; 1.2 - 02/29/2004 - Fixed documentation. | ||
; 1.3 - 01/05/2006 - Fixed interactive flag and pop order (Kichik) | |||
; 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.1 - 06/12/2009 - Added use of __UNINSTALL__ | |||
; 1.6 - 08/02/2010 - Fixed description implementation (Anders) | |||
; 1.7 - 04/11/2010 - Added get running service process id (Nico) | |||
; 1.8 - 24/03/2011 - Added starttype and servicetype (Sergius) | |||
; 1.8.1 - 21/06/2013 - Added dynamic ASCII & Unicode support (Zinthose) | |||
!ifndef SERVICELIB | !ifndef SERVICELIB | ||
!define SERVICELIB | !define SERVICELIB | ||
!define SC_MANAGER_ALL_ACCESS 0x3F | !define SC_MANAGER_ALL_ACCESS 0x3F | ||
!define SERVICE_ALL_ACCESS 0xF01FF | !define SC_STATUS_PROCESS_INFO 0x0 | ||
!define SERVICE_ALL_ACCESS 0xF01FF | |||
!define SERVICE_CONTROL_STOP | |||
!define SERVICE_CONTROL_PAUSE | !define SERVICE_CONTROL_STOP 1 | ||
!define SERVICE_CONTROL_CONTINUE | !define SERVICE_CONTROL_PAUSE 2 | ||
!define SERVICE_CONTROL_CONTINUE 3 | |||
!define SERVICE_STOPPED 0x1 | |||
!define SERVICE_START_PENDING 0x2 | !define SERVICE_STOPPED 0x1 | ||
!define SERVICE_STOP_PENDING 0x3 | !define SERVICE_START_PENDING 0x2 | ||
!define SERVICE_RUNNING 0x4 | !define SERVICE_STOP_PENDING 0x3 | ||
!define SERVICE_CONTINUE_PENDING 0x5 | !define SERVICE_RUNNING 0x4 | ||
!define SERVICE_PAUSE_PENDING 0x6 | !define SERVICE_CONTINUE_PENDING 0x5 | ||
!define SERVICE_PAUSED 0x7 | !define SERVICE_PAUSE_PENDING 0x6 | ||
!define SERVICE_PAUSED 0x7 | |||
! | |||
!define | !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 | |||
## Added by Zinthose for Native Unicode Support | |||
!ifdef NSIS_UNICODE | |||
!define APITAG "W" | |||
!else | |||
!define APITAG "A" | |||
!endif | !endif | ||
!macro SERVICE ACTION NAME PARAM | !macro SERVICE ACTION NAME PARAM | ||
Push '${ACTION}' | Push '${ACTION}' | ||
Push '${NAME}' | Push '${NAME}' | ||
Push '${PARAM}' | Push '${PARAM}' | ||
Call | !ifdef __UNINSTALL__ | ||
Call un.Service | |||
!else | |||
Call Service | |||
!endif | |||
!macroend | !macroend | ||
!macro FUNC_GETPARAM | !macro FUNC_GETPARAM | ||
Push $0 | Push $0 | ||
Line 137: | Line 168: | ||
Exch $0 | Exch $0 | ||
!macroend | !macroend | ||
!macro CALL_GETPARAM VAR NAME DEFAULT LABEL | !macro CALL_GETPARAM VAR NAME DEFAULT LABEL | ||
Push $1 | Push $1 | ||
Line 147: | Line 178: | ||
StrCpy ${VAR} $6 | StrCpy ${VAR} $6 | ||
!macroend | !macroend | ||
!macro FUNC_SERVICE UN | !macro FUNC_SERVICE UN | ||
Push $0 | Push $0 | ||
Line 166: | Line 197: | ||
;$4 OpenSCManager | ;$4 OpenSCManager | ||
;$5 OpenService | ;$5 OpenService | ||
StrCpy $0 "false" | StrCpy $0 "false" | ||
System::Call 'advapi32:: | 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:: | 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 | ||
lbl_select: | lbl_select: | ||
StrCmp $3 "delete" lbl_delete | StrCmp $3 "delete" lbl_delete | ||
Line 184: | Line 214: | ||
StrCmp $3 "running" lbl_running | StrCmp $3 "running" lbl_running | ||
StrCmp $3 "status" lbl_status | StrCmp $3 "status" lbl_status | ||
StrCmp $3 "processid" lbl_processid | |||
Goto lbl_done | Goto lbl_done | ||
; create service | ; create service | ||
lbl_create: | lbl_create: | ||
Push $R1 ; | Push $R1 ;depend | ||
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 $R8 ;description | |||
!insertmacro CALL_GETPARAM $R1 "depend" "n" "lbl_depend" | |||
StrCpy $R1 't "$R1"' | |||
lbl_depend: | |||
StrCmp $R1 "n" 0 lbl_machine ;old name of depend param | |||
!insertmacro CALL_GETPARAM $R1 "machine" "n" "lbl_machine" | !insertmacro CALL_GETPARAM $R1 "machine" "n" "lbl_machine" | ||
StrCpy $R1 't "$R1"' | |||
lbl_machine: | lbl_machine: | ||
!insertmacro CALL_GETPARAM $R2 "user" "n" "lbl_user" | !insertmacro CALL_GETPARAM $R2 "user" "n" "lbl_user" | ||
StrCpy $R2 't "$R2"' | |||
lbl_user: | lbl_user: | ||
!insertmacro CALL_GETPARAM $R3 "password" "n" "lbl_password" | !insertmacro CALL_GETPARAM $R3 "password" "n" "lbl_password" | ||
StrCpy $R3 't "$R3"' | |||
lbl_password: | lbl_password: | ||
!insertmacro CALL_GETPARAM $R4 "interact" " | !insertmacro CALL_GETPARAM $R4 "interact" "${SERVICE_WIN32_OWN_PROCESS}" "lbl_interact" | ||
StrCpy $6 | StrCpy $6 ${SERVICE_WIN32_OWN_PROCESS} | ||
IntCmp $R4 0 +2 | IntCmp $R4 0 +2 | ||
IntOp $ | IntOp $6 $6 | ${SERVICE_INTERACTIVE_PROCESS} | ||
StrCpy $R4 $6 | StrCpy $R4 $6 | ||
lbl_interact: | lbl_interact: | ||
!insertmacro CALL_GETPARAM $R5 "autostart" " | !insertmacro CALL_GETPARAM $R4 "servicetype" "$R4" "lbl_servicetype" | ||
StrCpy $6 | 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 | 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" | ||
lbl_path: | lbl_path: | ||
System::Call 'advapi32:: | !insertmacro CALL_GETPARAM $R7 "display" "$2" "lbl_display" | ||
i R4, i R5, i 0, t R6, n, n, R1, R2, R3) i.r6' | lbl_display: | ||
!insertmacro CALL_GETPARAM $R8 "description" "$2" "lbl_description" | |||
lbl_description: | |||
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' | |||
; write description of service (SERVICE_CONFIG_DESCRIPTION) | |||
System::Call 'advapi32::ChangeServiceConfig2${APITAG}(ir6,i1,*t "$R8")i.R7' | |||
strcmp $R7 "error" 0 lbl_descriptioncomplete | |||
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\$2" "Description" $R8 | |||
lbl_descriptioncomplete: | |||
Pop $R8 | |||
Pop $R7 | |||
Pop $R6 | Pop $R6 | ||
Pop $R5 | Pop $R5 | ||
Line 230: | Line 291: | ||
Pop $R1 | Pop $R1 | ||
StrCmp $6 0 lbl_done lbl_good | StrCmp $6 0 lbl_done lbl_good | ||
; delete service | ; delete service | ||
lbl_delete: | lbl_delete: | ||
System::Call 'advapi32::DeleteService(i r5) i.r6' | System::Call 'advapi32::DeleteService(i r5) i.r6' | ||
StrCmp $6 0 lbl_done lbl_good | StrCmp $6 0 lbl_done lbl_good | ||
; start service | ; start service | ||
lbl_start: | lbl_start: | ||
System::Call 'advapi32:: | 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 | ||
; stop service | ; stop service | ||
lbl_stop: | lbl_stop: | ||
Line 249: | Line 310: | ||
Pop $R1 | Pop $R1 | ||
StrCmp $6 0 lbl_done lbl_good | StrCmp $6 0 lbl_done lbl_good | ||
; pause service | ; pause service | ||
lbl_pause: | lbl_pause: | ||
Line 258: | Line 319: | ||
Pop $R1 | Pop $R1 | ||
StrCmp $6 0 lbl_done lbl_good | StrCmp $6 0 lbl_done lbl_good | ||
; continue service | ; continue service | ||
lbl_continue: | lbl_continue: | ||
Line 267: | Line 328: | ||
Pop $R1 | Pop $R1 | ||
StrCmp $6 0 lbl_done lbl_good | StrCmp $6 0 lbl_done lbl_good | ||
; is installed | ; is installed | ||
lbl_installed: | lbl_installed: | ||
Line 273: | Line 334: | ||
StrCpy $3 $7 | StrCpy $3 $7 | ||
Goto lbl_select | Goto lbl_select | ||
; is service running | ; is service running | ||
lbl_running: | lbl_running: | ||
Line 287: | Line 348: | ||
StrCpy $3 $7 | StrCpy $3 $7 | ||
Goto lbl_select | Goto lbl_select | ||
lbl_status: | lbl_status: | ||
Push $R1 | Push $R1 | ||
Line 313: | Line 374: | ||
IntCmp $6 ${SERVICE_PAUSED} lbl_done | IntCmp $6 ${SERVICE_PAUSED} lbl_done | ||
StrCpy $0 "unknown" | StrCpy $0 "unknown" | ||
Goto lbl_done | |||
lbl_processid: | |||
Push $R1 | |||
Push $R2 | |||
System::Call '*(i,i,i,i,i,i,i,i,i) i.R1' | |||
System::Call '*(i 0) i.R2' | |||
System::Call "advapi32::QueryServiceStatusEx(i r5, i ${SC_STATUS_PROCESS_INFO}, i $R1, i 36, i $R2) i" | |||
System::Call "*$R1(i,i,i,i,i,i,i, i .r0)" | |||
System::Free $R2 | |||
System::Free $R1 | |||
Pop $R2 | |||
Pop $R1 | |||
Goto lbl_done | |||
lbl_good: | lbl_good: | ||
StrCpy $0 "true" | StrCpy $0 "true" | ||
Line 327: | Line 402: | ||
Exch 3 | Exch 3 | ||
Pop $5 | Pop $5 | ||
Pop $7 | |||
Pop $6 | Pop $6 | ||
Exch $0 | Exch $0 | ||
!macroend | !macroend | ||
Function Service | Function Service | ||
!insertmacro FUNC_SERVICE "" | !insertmacro FUNC_SERVICE "" | ||
FunctionEnd | FunctionEnd | ||
Function un.Service | Function un.Service | ||
!insertmacro FUNC_SERVICE "un." | !insertmacro FUNC_SERVICE "un." | ||
FunctionEnd | FunctionEnd | ||
Function GetParam | Function GetParam | ||
!insertmacro FUNC_GETPARAM | !insertmacro FUNC_GETPARAM | ||
FunctionEnd | FunctionEnd | ||
Function un.GetParam | Function un.GetParam | ||
!insertmacro FUNC_GETPARAM | !insertmacro FUNC_GETPARAM | ||
FunctionEnd | FunctionEnd | ||
!undef APITAG | |||
!endif | !endif | ||
</highlight-nsis> | </highlight-nsis> | ||
== Usage in Unicode NSIS == | |||
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. | |||
<strike>All you need to do is replace the following API function names:</strike> | |||
{| | |||
! <strike>ASCII</strike> !! <strike>Unicode</strike> | |||
|- | |||
| <strike>OpenSCManagerA</strike> || <strike>OpenSCManagerW</strike> | |||
|- | |||
| <strike>OpenServiceA</strike> || <strike>OpenServiceW</strike> | |||
|- | |||
| <strike>CreateServiceA</strike> || <strike>CreateServiceW</strike> | |||
|- | |||
| <strike>ChangeServiceConfig2A</strike> || <strike>ChangeServiceConfig2W</strike> | |||
|- | |||
| <strike>StartServiceA</strike> || <strike>StartServiceW</strike> | |||
|} | |||
Dynamic support for ASCII and Unicode added on 6/21/2013 by [[User:Zinthose|Zinthose]] | |||
== 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]] |
Latest revision as of 14:55, 24 June 2013
Author: dselkirk (talk, contrib) |
Description
In an attempt to reduce the number of plugins my install needs I created NSIS Service Lib. The only requirement is the system plugin. This of course will only work on a NT system so please check before running. Enjoy!
The Script
; NSIS SERVICE LIBRARY - servicelib.nsh ; Version 1.8.1 - Jun 21th, 2013 ; Questions/Comments - dselkirk@hotmail.com ; ; Description: ; Provides an interface to window services ; ; Inputs: ; action - systemlib action ie. create, delete, start, stop, pause, ; continue, installed, running, status ; name - name of service to manipulate ; param - action parameters; usage: var1=value1;var2=value2;...etc. ; (don't forget to add a ';' after the last value!) ; ; Actions: ; create - creates a new windows service ; Parameters: ; path - path to service executable ; autostart - automatically start with system ie. 1|0 ; interact - interact with the desktop ie. 1|0 ; depend - service dependencies ; user - user that runs the service ; password - password of the above user ; display - display name in service's console ; description - Description of service ; starttype - start type (supersedes autostart) ; servicetype - service type (supersedes interact) ; ; delete - deletes a windows service ; start - start a stopped windows service ; stop - stops a running windows service ; pause - pauses a running windows service ; continue - continues a paused windows service ; installed - is the provided service installed ; Parameters: ; action - if true then invokes the specified action ; running - is the provided service running ; Parameters: ; action - if true then invokes the specified action ; status - check the status of the provided service ; ; Usage: ; Method 1: ; Push "action" ; Push "name" ; Push "param" ; Call Service ; Pop $0 ;response ; ; Method 2: ; !insertmacro SERVICE "action" "name" "param" ; ; History: ; 1.0 - 09/15/2003 - Initial release ; 1.1 - 09/16/2003 - Changed &l to i, thx brainsucker ; 1.2 - 02/29/2004 - Fixed documentation. ; 1.3 - 01/05/2006 - Fixed interactive flag and pop order (Kichik) ; 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.1 - 06/12/2009 - Added use of __UNINSTALL__ ; 1.6 - 08/02/2010 - Fixed description implementation (Anders) ; 1.7 - 04/11/2010 - Added get running service process id (Nico) ; 1.8 - 24/03/2011 - Added starttype and servicetype (Sergius) ; 1.8.1 - 21/06/2013 - Added dynamic ASCII & Unicode support (Zinthose) !ifndef 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 SERVICE_CONTROL_PAUSE 2 !define SERVICE_CONTROL_CONTINUE 3 !define SERVICE_STOPPED 0x1 !define SERVICE_START_PENDING 0x2 !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 ## Added by Zinthose for Native Unicode Support !ifdef NSIS_UNICODE !define APITAG "W" !else !define APITAG "A" !endif !macro SERVICE ACTION NAME PARAM Push '${ACTION}' Push '${NAME}' Push '${PARAM}' !ifdef __UNINSTALL__ Call un.Service !else Call Service !endif !macroend !macro FUNC_GETPARAM Push $0 Push $1 Push $2 Push $3 Push $4 Push $5 Push $6 Push $7 Exch 8 Pop $1 ;name Exch 8 Pop $2 ;source StrCpy $0 "" StrLen $7 $2 StrCpy $3 0 lbl_loop: IntCmp $3 $7 0 0 lbl_done StrLen $4 "$1=" StrCpy $5 $2 $4 $3 StrCmp $5 "$1=" 0 lbl_next IntOp $5 $3 + $4 StrCpy $3 $5 lbl_loop2: IntCmp $3 $7 0 0 lbl_done StrCpy $6 $2 1 $3 StrCmp $6 ";" 0 lbl_next2 IntOp $6 $3 - $5 StrCpy $0 $2 $6 $5 Goto lbl_done lbl_next2: IntOp $3 $3 + 1 Goto lbl_loop2 lbl_next: IntOp $3 $3 + 1 Goto lbl_loop lbl_done: Pop $5 Pop $4 Pop $3 Pop $2 Pop $1 Exch 2 Pop $6 Pop $7 Exch $0 !macroend !macro CALL_GETPARAM VAR NAME DEFAULT LABEL Push $1 Push ${NAME} Call ${UN}GETPARAM Pop $6 StrCpy ${VAR} "${DEFAULT}" StrCmp $6 "" "${LABEL}" 0 StrCpy ${VAR} $6 !macroend !macro FUNC_SERVICE UN Push $0 Push $1 Push $2 Push $3 Push $4 Push $5 Push $6 Push $7 Exch 8 Pop $1 ;param Exch 8 Pop $2 ;name Exch 8 Pop $3 ;action ;$0 return ;$4 OpenSCManager ;$5 OpenService StrCpy $0 "false" System::Call 'advapi32::OpenSCManager${APITAG}(n, n, i ${SC_MANAGER_ALL_ACCESS}) i.r4' IntCmp $4 0 lbl_done StrCmp $3 "create" lbl_create System::Call 'advapi32::OpenService${APITAG}(i r4, t r2, i ${SERVICE_ALL_ACCESS}) i.r5' IntCmp $5 0 lbl_done lbl_select: StrCmp $3 "delete" lbl_delete StrCmp $3 "start" lbl_start StrCmp $3 "stop" lbl_stop StrCmp $3 "pause" lbl_pause StrCmp $3 "continue" lbl_continue StrCmp $3 "installed" lbl_installed StrCmp $3 "running" lbl_running StrCmp $3 "status" lbl_status StrCmp $3 "processid" lbl_processid Goto lbl_done ; create service lbl_create: Push $R1 ;depend Push $R2 ;user Push $R3 ;password Push $R4 ;servicetype/interact Push $R5 ;starttype/autostart Push $R6 ;path Push $R7 ;display Push $R8 ;description !insertmacro CALL_GETPARAM $R1 "depend" "n" "lbl_depend" StrCpy $R1 't "$R1"' lbl_depend: StrCmp $R1 "n" 0 lbl_machine ;old name of depend param !insertmacro CALL_GETPARAM $R1 "machine" "n" "lbl_machine" StrCpy $R1 't "$R1"' lbl_machine: !insertmacro CALL_GETPARAM $R2 "user" "n" "lbl_user" StrCpy $R2 't "$R2"' lbl_user: !insertmacro CALL_GETPARAM $R3 "password" "n" "lbl_password" StrCpy $R3 't "$R3"' lbl_password: !insertmacro CALL_GETPARAM $R4 "interact" "${SERVICE_WIN32_OWN_PROCESS}" "lbl_interact" StrCpy $6 ${SERVICE_WIN32_OWN_PROCESS} IntCmp $R4 0 +2 IntOp $6 $6 | ${SERVICE_INTERACTIVE_PROCESS} StrCpy $R4 $6 lbl_interact: !insertmacro CALL_GETPARAM $R4 "servicetype" "$R4" "lbl_servicetype" lbl_servicetype: !insertmacro CALL_GETPARAM $R5 "autostart" "${SERVICE_DEMAND_START}" "lbl_autostart" StrCpy $6 ${SERVICE_DEMAND_START} IntCmp $R5 0 +2 StrCpy $6 ${SERVICE_AUTO_START} StrCpy $R5 $6 lbl_autostart: !insertmacro CALL_GETPARAM $R5 "starttype" "$R5" "lbl_starttype" lbl_starttype: !insertmacro CALL_GETPARAM $R6 "path" "n" "lbl_path" lbl_path: !insertmacro CALL_GETPARAM $R7 "display" "$2" "lbl_display" lbl_display: !insertmacro CALL_GETPARAM $R8 "description" "$2" "lbl_description" lbl_description: 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' ; write description of service (SERVICE_CONFIG_DESCRIPTION) System::Call 'advapi32::ChangeServiceConfig2${APITAG}(ir6,i1,*t "$R8")i.R7' strcmp $R7 "error" 0 lbl_descriptioncomplete WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\$2" "Description" $R8 lbl_descriptioncomplete: Pop $R8 Pop $R7 Pop $R6 Pop $R5 Pop $R4 Pop $R3 Pop $R2 Pop $R1 StrCmp $6 0 lbl_done lbl_good ; delete service lbl_delete: System::Call 'advapi32::DeleteService(i r5) i.r6' StrCmp $6 0 lbl_done lbl_good ; start service lbl_start: System::Call 'advapi32::StartService${APITAG}(i r5, i 0, i 0) i.r6' StrCmp $6 0 lbl_done lbl_good ; stop service lbl_stop: Push $R1 System::Call '*(i,i,i,i,i,i,i) i.R1' System::Call 'advapi32::ControlService(i r5, i ${SERVICE_CONTROL_STOP}, i $R1) i' System::Free $R1 Pop $R1 StrCmp $6 0 lbl_done lbl_good ; pause service lbl_pause: Push $R1 System::Call '*(i,i,i,i,i,i,i) i.R1' System::Call 'advapi32::ControlService(i r5, i ${SERVICE_CONTROL_PAUSE}, i $R1) i' System::Free $R1 Pop $R1 StrCmp $6 0 lbl_done lbl_good ; continue service lbl_continue: Push $R1 System::Call '*(i,i,i,i,i,i,i) i.R1' System::Call 'advapi32::ControlService(i r5, i ${SERVICE_CONTROL_CONTINUE}, i $R1) i' System::Free $R1 Pop $R1 StrCmp $6 0 lbl_done lbl_good ; is installed lbl_installed: !insertmacro CALL_GETPARAM $7 "action" "" "lbl_good" StrCpy $3 $7 Goto lbl_select ; is service running lbl_running: Push $R1 System::Call '*(i,i,i,i,i,i,i) i.R1' System::Call 'advapi32::QueryServiceStatus(i r5, i $R1) i' System::Call '*$R1(i, i.r6)' System::Free $R1 Pop $R1 IntFmt $6 "0x%X" $6 StrCmp $6 ${SERVICE_RUNNING} 0 lbl_done !insertmacro CALL_GETPARAM $7 "action" "" "lbl_good" StrCpy $3 $7 Goto lbl_select lbl_status: Push $R1 System::Call '*(i,i,i,i,i,i,i) i.R1' System::Call 'advapi32::QueryServiceStatus(i r5, i $R1) i' System::Call '*$R1(i, i .r6)' System::Free $R1 Pop $R1 IntFmt $6 "0x%X" $6 StrCpy $0 "running" IntCmp $6 ${SERVICE_RUNNING} lbl_done StrCpy $0 "stopped" IntCmp $6 ${SERVICE_STOPPED} lbl_done StrCpy $0 "start_pending" IntCmp $6 ${SERVICE_START_PENDING} lbl_done StrCpy $0 "stop_pending" IntCmp $6 ${SERVICE_STOP_PENDING} lbl_done StrCpy $0 "running" IntCmp $6 ${SERVICE_RUNNING} lbl_done StrCpy $0 "continue_pending" IntCmp $6 ${SERVICE_CONTINUE_PENDING} lbl_done StrCpy $0 "pause_pending" IntCmp $6 ${SERVICE_PAUSE_PENDING} lbl_done StrCpy $0 "paused" IntCmp $6 ${SERVICE_PAUSED} lbl_done StrCpy $0 "unknown" Goto lbl_done lbl_processid: Push $R1 Push $R2 System::Call '*(i,i,i,i,i,i,i,i,i) i.R1' System::Call '*(i 0) i.R2' System::Call "advapi32::QueryServiceStatusEx(i r5, i ${SC_STATUS_PROCESS_INFO}, i $R1, i 36, i $R2) i" System::Call "*$R1(i,i,i,i,i,i,i, i .r0)" System::Free $R2 System::Free $R1 Pop $R2 Pop $R1 Goto lbl_done lbl_good: StrCpy $0 "true" lbl_done: IntCmp $5 0 +2 System::Call 'advapi32::CloseServiceHandle(i r5) n' IntCmp $4 0 +2 System::Call 'advapi32::CloseServiceHandle(i r4) n' Pop $4 Pop $3 Pop $2 Pop $1 Exch 3 Pop $5 Pop $7 Pop $6 Exch $0 !macroend Function Service !insertmacro FUNC_SERVICE "" FunctionEnd Function un.Service !insertmacro FUNC_SERVICE "un." FunctionEnd Function GetParam !insertmacro FUNC_GETPARAM FunctionEnd Function un.GetParam !insertmacro FUNC_GETPARAM FunctionEnd !undef APITAG !endif
Usage in Unicode NSIS
You can also use this library with 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:
Dynamic support for ASCII and Unicode added on 6/21/2013 by Zinthose
Comments
There is a little problem in CreateService with two-dimensional array parameter - http://forums.winamp.com/showthread.php?t=336671