mirror of https://github.com/PurpleI2P/i2pd.git
Mikal
10 years ago
3 changed files with 758 additions and 0 deletions
@ -0,0 +1,282 @@
@@ -0,0 +1,282 @@
|
||||
# NSIS Installer script. (Tested with NSIS 2.64 on Windows 7) |
||||
# Author: Mikal Villa (Meeh) |
||||
# Version: 1.0 |
||||
Name PurpleI2P |
||||
|
||||
RequestExecutionLevel highest |
||||
SetCompressor /SOLID lzma |
||||
ShowInstDetails show |
||||
|
||||
# General Symbol Definitions |
||||
!define REGKEY "SOFTWARE\$(^Name)" |
||||
!define VERSION 0.2.0.0 |
||||
!define COMPANY "The Privacy Solutions Project" |
||||
!define URL "https://i2p.io" |
||||
|
||||
# MUI Symbol Definitions |
||||
!define MUI_ICON "ictoopie.ico" |
||||
#!define MUI_WELCOMEFINISHPAGE_BITMAP "../share/pixmaps/nsis-wizard.bmp" |
||||
!define MUI_HEADERIMAGE |
||||
!define MUI_HEADERIMAGE_RIGHT |
||||
#!define MUI_HEADERIMAGE_BITMAP "../share/pixmaps/nsis-header.bmp" |
||||
!define MUI_FINISHPAGE_NOAUTOCLOSE |
||||
!define MUI_STARTMENUPAGE_REGISTRY_ROOT HKLM |
||||
!define MUI_STARTMENUPAGE_REGISTRY_KEY ${REGKEY} |
||||
!define MUI_STARTMENUPAGE_REGISTRY_VALUENAME StartMenuGroup |
||||
!define MUI_STARTMENUPAGE_DEFAULTFOLDER PurpleI2P |
||||
!define MUI_FINISHPAGE_RUN $INSTDIR\i2pd.exe |
||||
!define MUI_FINISHPAGE_SHOWREADME $INSTDIR\Readme.txt |
||||
|
||||
|
||||
!define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\modern-uninstall.ico" |
||||
!define MUI_UNWELCOMEFINISHPAGE_BITMAP "../share/pixmaps/nsis-wizard.bmp" |
||||
!define MUI_UNFINISHPAGE_NOAUTOCLOSE |
||||
|
||||
# Included files |
||||
!include Sections.nsh |
||||
!include MUI2.nsh |
||||
!include nsDialogs.nsh |
||||
!include winmessages.nsh |
||||
!include logiclib.nsh |
||||
# Local included files |
||||
!include nsi\helper_readme.nsh |
||||
;!include nsi\servicelib.nsh |
||||
|
||||
# Variables |
||||
Var StartMenuGroup |
||||
|
||||
# Installer pages |
||||
# Execution flow of installer windows |
||||
!insertmacro MUI_PAGE_WELCOME |
||||
!insertmacro MUI_PAGE_README "../Readme.md" |
||||
!insertmacro MUI_PAGE_DIRECTORY |
||||
# Disabled for now. Use the bat |
||||
;Page custom mode_selection # Meeh's hack for installing and starting service. |
||||
!insertmacro MUI_PAGE_STARTMENU Application $StartMenuGroup |
||||
!insertmacro MUI_PAGE_INSTFILES |
||||
!insertmacro MUI_PAGE_FINISH |
||||
|
||||
# Uninstall pages |
||||
!insertmacro MUI_UNPAGE_CONFIRM |
||||
!insertmacro MUI_UNPAGE_INSTFILES |
||||
|
||||
# Installer languages |
||||
!insertmacro MUI_LANGUAGE English |
||||
|
||||
# Installer attributes |
||||
OutFile PurpleI2P-0.2.0.0-win32-setup.exe |
||||
InstallDir $PROGRAMFILES\PurpleI2P |
||||
CRCCheck on |
||||
XPStyle on |
||||
BrandingText " " |
||||
ShowInstDetails show |
||||
VIProductVersion 0.2.0.0 |
||||
VIAddVersionKey ProductName PurpleI2P |
||||
VIAddVersionKey ProductVersion "${VERSION}" |
||||
VIAddVersionKey CompanyName "${COMPANY}" |
||||
VIAddVersionKey CompanyWebsite "${URL}" |
||||
VIAddVersionKey FileVersion "${VERSION}" |
||||
VIAddVersionKey FileDescription "" |
||||
VIAddVersionKey LegalCopyright "" |
||||
InstallDirRegKey HKCU "${REGKEY}" Path |
||||
ShowUninstDetails show |
||||
|
||||
# Readme definitions |
||||
|
||||
;-------------------------------- |
||||
;Languages |
||||
;Set up install lang strings for 1st lang |
||||
${ReadmeLanguage} "${LANG_ENGLISH}" \ |
||||
"Read Me" \ |
||||
"Please review the following important information." \ |
||||
"About $(^name):" \ |
||||
"$\n Click on scrollbar arrows or press Page Down to review the entire text." |
||||
|
||||
;Add 2nd language |
||||
!insertmacro MUI_LANGUAGE "Norwegian" |
||||
|
||||
;set up install lang strings for second lang |
||||
${ReadmeLanguage} "${LANG_NORWEGIAN}" \ |
||||
"Les meg!" \ |
||||
"Vennligst les informasjonen om hvordan du skal bruke PurpleI2P." \ |
||||
"Om $(^name):" \ |
||||
"$\n Klikk på scrollbaren til høyre for å se hele innholdet." |
||||
|
||||
;-------------------------------- |
||||
|
||||
# Installer sections |
||||
Section -Main SEC0000 |
||||
SetOutPath $INSTDIR |
||||
SetOverwrite on |
||||
File /oname=i2pd.exe Release\i2pd.exe |
||||
File /oname=install_service.bat install_service.bat |
||||
File /oname=uninstall_service.bat uninstall_service.bat |
||||
File /oname=LICENSE.txt ..\LICENSE |
||||
File /oname=Readme.txt ..\README.md |
||||
SetOutPath $INSTDIR\src |
||||
File /r /x *.nsi /x *.rc /x *.exe /x *.obj /x *.nsh /x *.sln /x *.vcxproj /x *.tlog /x *.log /x *.res /x *.pdb /x *.suo /x *.opensdf /x *.filters /x *.sdf /x *.iss /x *.aps /x .gitignore /x *.o ../\*.* |
||||
SetOutPath $INSTDIR |
||||
RMDir /r /REBOOTOK $INSTDIR\src\.git # Remove git directory |
||||
RMDir /r /REBOOTOK $INSTDIR\src\Win32\Release # Removing release directory |
||||
RMDir /r /REBOOTOK $INSTDIR\src\Win32\nsi |
||||
WriteRegStr HKCU "${REGKEY}\Components" Main 1 |
||||
SectionEnd |
||||
|
||||
Section -post SEC0001 |
||||
WriteRegStr HKCU "${REGKEY}" Path $INSTDIR |
||||
SetOutPath $INSTDIR |
||||
WriteUninstaller $INSTDIR\uninstall.exe |
||||
!insertmacro MUI_STARTMENU_WRITE_BEGIN Application |
||||
CreateDirectory $SMPROGRAMS\$StartMenuGroup |
||||
CreateShortcut "$SMPROGRAMS\$StartMenuGroup\PurpleI2P.lnk" $INSTDIR\i2pd.exe |
||||
CreateShortcut "$SMPROGRAMS\$StartMenuGroup\Install PurpleI2P Service.lnk" $INSTDIR\install_service.bat |
||||
CreateShortcut "$SMPROGRAMS\$StartMenuGroup\Uninstall PurpleI2P Service.lnk" $INSTDIR\uninstall_service.bat |
||||
CreateShortcut "$SMPROGRAMS\$StartMenuGroup\Uninstall PurpleI2P.lnk" $INSTDIR\uninstall.exe |
||||
!insertmacro MUI_STARTMENU_WRITE_END |
||||
WriteRegStr HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" DisplayName "$(^Name)" |
||||
WriteRegStr HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" DisplayVersion "${VERSION}" |
||||
WriteRegStr HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" Publisher "${COMPANY}" |
||||
WriteRegStr HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" URLInfoAbout "${URL}" |
||||
WriteRegStr HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" DisplayIcon $INSTDIR\uninstall.exe |
||||
WriteRegStr HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" UninstallString $INSTDIR\uninstall.exe |
||||
WriteRegDWORD HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" NoModify 1 |
||||
WriteRegDWORD HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" NoRepair 1 |
||||
WriteRegStr HKCR "i2pd" "URL Protocol" "" |
||||
WriteRegStr HKCR "i2pd" "" "URL:i2pd" # TODO: if a instance of own is found, relaunch with a proxyfied browser to open webage. (e.g i2pd://meeh.i2p) |
||||
WriteRegStr HKCR "i2pd\DefaultIcon" "" $INSTDIR\i2pd.exe |
||||
WriteRegStr HKCR "i2pd\shell\open\command" "" '"$INSTDIR\i2pd.exe" "%1"' |
||||
SectionEnd |
||||
|
||||
# Macro for selecting uninstaller sections |
||||
!macro SELECT_UNSECTION SECTION_NAME UNSECTION_ID |
||||
Push $R0 |
||||
ReadRegStr $R0 HKCU "${REGKEY}\Components" "${SECTION_NAME}" |
||||
StrCmp $R0 1 0 next${UNSECTION_ID} |
||||
!insertmacro SelectSection "${UNSECTION_ID}" |
||||
GoTo done${UNSECTION_ID} |
||||
next${UNSECTION_ID}: |
||||
!insertmacro UnselectSection "${UNSECTION_ID}" |
||||
done${UNSECTION_ID}: |
||||
Pop $R0 |
||||
!macroend |
||||
|
||||
|
||||
# Uninstaller sections |
||||
Section /o -un.Main UNSEC0000 |
||||
Delete /REBOOTOK $INSTDIR\i2pd.exe |
||||
Delete /REBOOTOK $INSTDIR\LICENSE.txt |
||||
Delete /REBOOTOK $INSTDIR\Readme.txt |
||||
Delete /REBOOTOK $INSTDIR\install_service.bat |
||||
Delete /REBOOTOK $INSTDIR\uninstall_service.bat |
||||
RMDir /r /REBOOTOK $INSTDIR\src |
||||
DeleteRegValue HKCU "${REGKEY}\Components" Main |
||||
SectionEnd |
||||
|
||||
Section -un.post UNSEC0001 |
||||
DeleteRegKey HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" |
||||
Delete /REBOOTOK "$SMPROGRAMS\$StartMenuGroup\Uninstall PurpleI2P.lnk" |
||||
Delete /REBOOTOK "$SMPROGRAMS\$StartMenuGroup\PurpleI2P.lnk" |
||||
Delete /REBOOTOK "$SMPROGRAMS\$StartMenuGroup\Install PurpleI2P Service.lnk" |
||||
Delete /REBOOTOK "$SMPROGRAMS\$StartMenuGroup\UnInstall PurpleI2P Service.lnk" |
||||
Delete /REBOOTOK "$SMSTARTUP\PurpleI2P.lnk" |
||||
Delete /REBOOTOK $INSTDIR\uninstall.exe |
||||
Delete /REBOOTOK $INSTDIR\debug.log |
||||
DeleteRegValue HKCU "${REGKEY}" StartMenuGroup |
||||
DeleteRegValue HKCU "${REGKEY}" Path |
||||
DeleteRegKey /IfEmpty HKCU "${REGKEY}\Components" |
||||
DeleteRegKey /IfEmpty HKCU "${REGKEY}" |
||||
DeleteRegKey HKCR "i2pd" |
||||
RmDir /REBOOTOK $SMPROGRAMS\$StartMenuGroup |
||||
RmDir /REBOOTOK $INSTDIR |
||||
Push $R0 |
||||
StrCpy $R0 $StartMenuGroup 1 |
||||
StrCmp $R0 ">" no_smgroup |
||||
no_smgroup: |
||||
Pop $R0 |
||||
SectionEnd |
||||
|
||||
; var hwndExecModeRadio |
||||
; var hwndRunServiceNowRadio |
||||
|
||||
; Function mode_selection |
||||
; nsDialogs::Create 1018 |
||||
; Pop $0 |
||||
; ${NSD_CreateLabel} 0 10 75% 20u "How would you like PurpleI2P (i2pd) to run?" |
||||
; Pop $0 |
||||
|
||||
; ${NSD_CreateRadioButton} 20 60 80% 25u "Service Mode" |
||||
; Pop $hwndExecModeRadio |
||||
; ${NSD_AddStyle} $hwndExecModeRadio ${WS_GROUP} |
||||
|
||||
; ${NSD_CreateRadioButton} 20 90 80% 25u "Command line Mode" |
||||
; Pop $0 |
||||
|
||||
; ${NSD_CreateButton} 20 150 -40 14u "Do it!" |
||||
; Pop $0 |
||||
; ${NSD_OnClick} $0 perform_mode |
||||
|
||||
; nsDialogs::Show |
||||
; FunctionEnd |
||||
|
||||
; Function start_now_selection |
||||
; nsDialogs::Create 1018 |
||||
; Pop $0 |
||||
; ${NSD_CreateLabel} 0 10 75% 20u "Enable the service now?" |
||||
; Pop $0 |
||||
|
||||
; ${NSD_CreateRadioButton} 20 60 80% 25u "Yes" |
||||
; Pop $hwndRunServiceNowRadio |
||||
; ${NSD_AddStyle} $hwndRunServiceNowRadio ${WS_GROUP} |
||||
|
||||
; ${NSD_CreateRadioButton} 20 90 80% 25u "No" |
||||
; Pop $0 |
||||
|
||||
; ${NSD_CreateButton} 20 150 -40 14u "Do it!" |
||||
; Pop $0 |
||||
; ${NSD_OnClick} $0 perform_mode |
||||
|
||||
; nsDialogs::Show |
||||
; FunctionEnd |
||||
|
||||
; Function perform_mode |
||||
; ${NSD_GetState} $hwndExecModeRadio $0 |
||||
; ${If} $0 = ${BST_CHECKED} |
||||
; Call service_mode |
||||
; ${EndIF} |
||||
; FunctionEnd |
||||
|
||||
; Function start_now |
||||
; ${NSD_GetState} $hwndRunServiceNowRadio $0 |
||||
; ${If} $0 = ${BST_CHECKED} |
||||
; Call start_now_selection |
||||
; ${EndIF} |
||||
; FunctionEnd |
||||
|
||||
; Function service_mode |
||||
; Push "create" |
||||
; Push "PurpleI2P Service" |
||||
; Push "$INSTDIR\i2pd.exe;autostart=1;display=PurpleI2P" |
||||
; Call Service |
||||
; Pop $0 ; Actually more to write than !insertmacro, but much more fun :D |
||||
; Push "start" |
||||
; Push "PurpleI2P Service" |
||||
; Call Service |
||||
; Pop $0 |
||||
; Call start_now |
||||
; !define MUI_FINISHPAGE_RUN_NOTCHECKED |
||||
; !define MUI_FINISHPAGE_RUN_TEXT "No need to run now since we already installed and launched it as a Windows service!" |
||||
; FunctionEnd |
||||
|
||||
# Installer functions |
||||
Function .onInit |
||||
InitPluginsDir |
||||
!insertmacro MUI_LANGDLL_DISPLAY |
||||
FunctionEnd |
||||
|
||||
# Uninstaller functions |
||||
Function un.onInit |
||||
ReadRegStr $INSTDIR HKCU "${REGKEY}" Path |
||||
!insertmacro MUI_STARTMENU_GETFOLDER Application $StartMenuGroup |
||||
!insertmacro SELECT_UNSECTION Main ${UNSEC0000} |
||||
!insertmacro MUI_UNGETLANGUAGE |
||||
FunctionEnd |
||||
@ -0,0 +1,57 @@
@@ -0,0 +1,57 @@
|
||||
!verbose push |
||||
!verbose 3 |
||||
|
||||
!ifndef _MUI_EXTRAPAGES_NSH |
||||
!define _MUI_EXTRAPAGES_NSH |
||||
|
||||
!ifmacrondef MUI_EXTRAPAGE_README & MUI_PAGE_README & MUI_UNPAGE_README & ReadmeLangStrings |
||||
|
||||
!macro MUI_EXTRAPAGE_README UN ReadmeFile |
||||
!verbose push |
||||
!verbose 3 |
||||
!define MUI_PAGE_HEADER_TEXT "$(${UN}ReadmeHeader)" |
||||
!define MUI_PAGE_HEADER_SUBTEXT "$(${UN}ReadmeSubHeader)" |
||||
!define MUI_LICENSEPAGE_TEXT_TOP "$(${UN}ReadmeTextTop)" |
||||
!define MUI_LICENSEPAGE_TEXT_BOTTOM "$(${UN}ReadmeTextBottom)" |
||||
!define MUI_LICENSEPAGE_BUTTON "$(^NextBtn)" |
||||
!insertmacro MUI_${UN}PAGE_LICENSE "${ReadmeFile}" |
||||
!verbose pop |
||||
!macroend |
||||
|
||||
!define ReadmeRun "!insertmacro MUI_EXTRAPAGE_README" |
||||
|
||||
|
||||
!macro MUI_PAGE_README ReadmeFile |
||||
!verbose push |
||||
!verbose 3 |
||||
${ReadmeRun} "" "${ReadmeFile}" |
||||
!verbose pop |
||||
!macroend |
||||
|
||||
|
||||
!macro MUI_UNPAGE_README ReadmeFile |
||||
!verbose push |
||||
!verbose 3 |
||||
${ReadmeRun} "UN" "${ReadmeFile}" |
||||
!verbose pop |
||||
!macroend |
||||
|
||||
|
||||
!macro ReadmeLangStrings UN MUI_LANG ReadmeHeader ReadmeSubHeader ReadmeTextTop ReadmeTextBottom |
||||
!verbose push |
||||
!verbose 3 |
||||
LangString ${UN}ReadmeHeader ${MUI_LANG} "${ReadmeHeader}" |
||||
LangString ${UN}ReadmeSubHeader ${MUI_LANG} "${ReadmeSubHeader}" |
||||
LangString ${UN}ReadmeTextTop ${MUI_LANG} "${ReadmeTextTop}" |
||||
LangString ${UN}ReadmeTextBottom ${MUI_LANG} "${ReadmeTextBottom}" |
||||
!verbose pop |
||||
!macroend |
||||
|
||||
!define ReadmeLanguage `!insertmacro ReadmeLangStrings ""` |
||||
|
||||
!define Un.ReadmeLanguage `!insertmacro ReadmeLangStrings "UN"` |
||||
|
||||
!endif |
||||
!endif |
||||
|
||||
!verbose pop |
||||
@ -0,0 +1,419 @@
@@ -0,0 +1,419 @@
|
||||
; 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 |
||||
Loading…
Reference in new issue