mirror of https://github.com/PurpleI2P/i2pd.git
I2P: End-to-End encrypted and anonymous Internet
https://i2pd.website/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
419 lines
12 KiB
419 lines
12 KiB
; 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 |