Permalink
Fetching contributors…
Cannot retrieve contributors at this time
4576 lines (3963 sloc) 144 KB
/*-----------------------------------------------------------------------------------------------------
NSIS Installer script for OpenCPN (Windows)
NSIS version 2.46
Written by Gunther Pilz (Netsurfer) netsurfer@opencpn.de
-------------------------------------------------------------------------------------------------------
CMake variables
CPACK_PACKAGE_NAME "OpenCPN"
CPACK_NSIS_PACKAGE_NAME_LC "opencpn"
CPACK_PACKAGE_VENDOR "opencpn.org"
CPACK_PACKAGE_VERSION_MAJOR ${VERSION_MAJOR}
CPACK_PACKAGE_VERSION_MINOR ${VERSION_MINOR}
CPACK_PACKAGE_VERSION_PATCH ${VERSION_PATCH}
CPACK_PACKAGE_VERSION ${PACKAGE_VERSION}
CPACK_NSIS_INSTALLED_ICON_NAME "opencpn.exe"
CPACK_PACKAGE_ICON "${CMAKE_SOURCE_DIR}/src/bitmaps\\\\opencpn.ico"
CPACK_NSIS_EXTRA_INSTALL_COMMANDS ${CPACK_NSIS_EXTRA_INSTALL_COMMANDS}
CPACK_RESOURCE_FILE_LICENSE "${CMAKE_CURRENT_SOURCE_DIR}/data/license.txt"
CPACK_BUILDWIN_DIR "${CMAKE_SOURCE_DIR}/buildwin"
CPACK_NSIS_DIR "${CMAKE_SOURCE_DIR}/buildwin/NSIS_Unicode")
#CPACK_INSTALL_CMAKE_PROJECTS "${CMAKE_CURRENT_BINARY_DIR};${PACKAGE_NAME};ALL;/"
#CPACK_PACKAGE_EXECUTABLES ${PACKAGE_NAME} "OpenCPN"
#CPACK_PACKAGE_INSTALL_DIRECTORY ${PACKAGE_NAME} "OpenCPN"
#CPACK_PACKAGE_DESCRIPTION_SUMMARY "OpenCPN ${PACKAGE_VERSION}"
#CPACK_NSIS_LINK_NAME "${CPACK_PACKAGE_NAME} ${PACKAGE_VERSION}"
#CPACK_NSIS_DISPLAY_NAME "${CPACK_PACKAGE_NAME} Version ${PACKAGE_VERSION}"
#CPACK_NSIS_HELP_LINK "http:\\\\\\\\www.opencpn.org"
#CPACK_NSIS_URL_INFO_ABOUT "http:\\\\\\\\www.opencpn.org"
#CPACK_NSIS_CONTACT "http:\\\\\\\\www.opencpn.org"
#CPACK_PACKAGE_FILE_NAME "${PACKAGE_NAME}_${VERSION_MAJOR}.${VERSION_MINOR}.${VERSION_PATCH}_setup"
----------------------------------------------------------------------------------------------------------*/
;# Set compression
SetCompressor /FINAL lzma
;--------------------------------
;# You must define these values
!define OCPN_INSTALLER_VERSION "1.0.0"
/*
!define CPACK_NSIS_INSTALLED_ICON_NAME "opencpn.exe"
!define CPACK_NSIS_PACKAGE_NAME_LC "opencpn"
!define CPACK_NSIS_DISPLAY_NAME "${CPACK_PACKAGE_NAME} ${PACKAGE_VERSION}"
!define CPACK_PACKAGE_ICON "${CMAKE_SOURCE_DIR}/src/bitmaps/opencpn.ico"
!define CPACK_BUILDWIN_DIR "${CMAKE_SOURCE_DIR}/buildwin"
!define CPACK_NSIS_DIR "${CMAKE_SOURCE_DIR}/buildwin/NSIS_Unicode"
*/
!define /date YEAR "%Y"
!define OUTPUT_FILE_NAME "@CPACK_NSIS_PACKAGE_NAME_LC@_@CPACK_PACKAGE_VERSION@_setup.exe"
!define INST_DIR "@CPACK_TEMPORARY_DIRECTORY@"
!define REG_ROOT_KEY "Software"
!define REG_KEY "Software\OpenCPN"
!define REG_ROOT_KEY_UN "Software\Microsoft\Windows\CurrentVersion\Uninstall"
!define REG_KEY_UN "Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN @CPACK_PACKAGE_VERSION@"
!define CSIDL_LOCAL_APPDATA "0x1C"
!define Explode "!insertmacro Explode"
!define unExplode "!insertmacro unExplode"
;--------------------------------
;# Variables
Var INST_USER_SID
Var CONFIG_EXISTS
Var CONFIG_EMPTY
Var INI_EXISTS
Var CHARTDB_EXISTS
Var SENC_EXISTS
Var CM93_EXISTS
Var NAVOBJ_EXISTS
Var LOG_EXISTS
Var REG_LANG
Var Count_SecGrpResetConfig
Var SecGrpEndSetConfig_Text
Var RESET_CONFIG
Var STARTMENU_FOLDER
Var OLD_INSTALLS
Var Prev_Install_RegKey
Var MULTIPLE_INSTALLS
Var VERSION_EXISTS
Var VERSION_NEWER
Var VERSION_OLDER
Var CANCEL_INSTALLER
Var VERSION_DATE
Var LANG_NAME
Var Status_SecGrpSetConfig
Var MAJOR_D
Var MINOR_D
Var PATCH_D
Var PATCH_ND
Var LM_VERSION
Var LM_VERSION_INST
Var LM_VERSION_UNINST
Var latest_version
Var latest_pathexe
Var BU_X
Var BU_Y
Var UAT
Var OUAT
Var USERS_APPDATA
Var ADMIN_APPDATA
Var USERS_NAME
Var counter_tmp
Var CurrentDirVar
Var CurrentFileVar
Var CONTEXT
Var REG_CHARTDIRS
Var USERNAME
Var IS_ADMIN
Var Compare_Version_Result
Var Inst_Or_Uninst
Var Marquee_Handle
Var Banner_Text_Blink
Var error_tmp
# onSelChange
Var ConfigSetLang
Var ConfigSetChartDir
Var SetConfig
# Installer Pages
Var Skip_Page_CleanUp
Var Skip_Page_TypeInst
Var Skip_Page_SetConfig
Var Skip_Page_Directory
Var Skip_Page_Startmenu
Var Skip_Page_Confirm
# Page_TypeInst
Var Label_TypeInst_Reinstall
Var RB_Reinstall
Var Label_TypeInst_Upgrade
Var RB_Upgrade
Var Label_TypeInst_Downgrade
Var RB_Downgrade
Var Label_TypeInst_Parallel
Var GroupBox_TypeInst
Var RB_Parallel
Var TI_REINSTALL
Var TI_UPGRADE
Var TI_DOWNGRADE
Var TI_PARALLEL
Var GroupBox_Size
Var INSTALL_TYPE
# Page_SetConfig
Var Label_SetConfig
Var GroupBox_Language_SetConfig
Var CheckBox_Language_SetConfig
Var GroupBox_ChartDir_SetConfig
Var DirRequest_SetConfig
Var Button_Delete_SetConfig
Var Button_DeleteAll_SetConfig
Var Button_Add_SetConfig
Var ListBox_SetConfig
;# Page_SetConfig_Leave
Var CHART_DIR_TMP_FILE
Var CHART_DIR_EMPTY
Var CONFIG_SET_LANG
# Uninstaller Pages
Var Skip_UnPage_Components
;--------------------------------
;# Execution Level
RequestExecutionLevel highest
;--------------------------------
;# Includes
!addincludedir "@CPACK_NSIS_DIR@/Include"
!addplugindir "@CPACK_NSIS_DIR@/Plugins"
!include MUI2.nsh
!include LogicLib.nsh
!include nsDialogs.nsh
!include Sections.nsh
!include StrFunc.nsh
!include WordFunc.nsh
!include TextFunc.nsh
!include FileFunc.nsh
!include WinVer.nsh
!include UAC.nsh
!define MUI_UI "@CPACK_NSIS_DIR@/UI/opencpn_ui.exe"
;--------------------------------
;# General
;# Name and file
Name "@CPACK_NSIS_PACKAGE_NAME@"
OutFile "@CPACK_TOPLEVEL_DIRECTORY@/${OUTPUT_FILE_NAME}"
;# Default installation folder
InstallDir "$PROGRAMFILES\OpenCPN"
BrandingText /TRIMLEFT "OpenCPN $(Installer) v${OCPN_INSTALLER_VERSION}"
;--------------------------------
;# Interface Settings
!define MUI_CUSTOMFUNCTION_GUIINIT myGuiInit
!define MUI_CUSTOMFUNCTION_UNGUIINIT un.myGuiInit
!define MUI_ABORTWARNING
;# MUI Settings / Header
!define MUI_ICON "@CPACK_PACKAGE_ICON@"
!define MUI_HEADERIMAGE
!define MUI_HEADERIMAGE_LEFT
!define MUI_HEADERIMAGE_BITMAP "@CPACK_NSIS_DIR@\Bitmaps\header-install.bmp"
!define MUI_HEADERIMAGE_UNBITMAP "@CPACK_NSIS_DIR@\Bitmaps\header-uninstall.bmp"
;# MUI Settings / Wizard
!define MUI_WELCOMEFINISHPAGE_BITMAP "@CPACK_NSIS_DIR@\Bitmaps\wizard-install.bmp"
!define MUI_UNWELCOMEFINISHPAGE_BITMAP "@CPACK_NSIS_DIR@\Bitmaps\wizard-uninstall.bmp"
;# Set Multi-Language settings
;# Language Selection Dialog Settings
;# Show all languages, despite user's codepage
!define MUI_LANGDLL_ALLLANGUAGES
/*
;# Remember the installer language
!define MUI_LANGDLL_REGISTRY_ROOT "HKLM"
!define MUI_LANGDLL_REGISTRY_KEY "${REG_KEY_UN}"
!define MUI_LANGDLL_REGISTRY_VALUENAME "SetupLanguage"
!define MUI_LANGDLL_WINDOWTITLE "$(LangDialog_Title)"
!define MUI_LANGDLL_INFO "$(LangDialog_Text)"
*/
;--------------------------------
;# Calls for making respective functions available
${StrLoc}
;--------------------------------
;##################################################################################################
;# Macros #
;##################################################################################################
!ifndef ___EnumHKU___
!define ___EnumHKU___
!include LogicLib.nsh
!include WordFunc.nsh
!define TOKEN_QUERY 0x0008
!define TOKEN_ADJUST_PRIVILEGES 0x0020
!define SE_RESTORE_NAME SeRestorePrivilege
!define SE_PRIVILEGE_ENABLED 0x00000002
!define HKEY_USERS 0x80000003
Var key
Var logged
Var EnumHKU_counter
Var SID
Var USERPROFILE
!macro _EnumHKU_AdjustTokens
StrCpy $R1 0
System::Call "kernel32::GetCurrentProcess() i .R0"
System::Call "advapi32::OpenProcessToken(i R0, i ${TOKEN_QUERY}|${TOKEN_ADJUST_PRIVILEGES}, *i R1R1) i .R0"
${If} $R0 != 0
System::Call "advapi32::LookupPrivilegeValue(t n, t '${SE_RESTORE_NAME}', *l .R2) i .R0"
${If} $R0 != 0
System::Call "*(i 1, l R2, i ${SE_PRIVILEGE_ENABLED}) i .R0"
System::Call "advapi32::AdjustTokenPrivileges(i R1, i 0, i R0, i 0, i 0, i 0)"
System::Free $R0
${EndIf}
System::Call "kernel32::CloseHandle(i R1)"
${EndIf}
!macroend
!macro _EnumHKU_InvokeCallback CALLBACK SUBKEY
Push $0
Push $1
Push $R0
Push $R1
Push $R2
Push $R3
Push $R4
Push $R5
Push $R6
Push "${SUBKEY}"
Call "${CALLBACK}"
Pop $R6
Pop $R5
Pop $R4
Pop $R3
Pop $R2
Pop $R1
Pop $R0
Pop $1
Pop $0
!macroend
!macro _EnumHKU_Load FILE CALLBACK SUBKEY
GetFullPathName /SHORT $R2 ${FILE}
System::Call "advapi32::RegLoadKeyW(i ${HKEY_USERS}, t '${SUBKEY}', t R2) i .R3"
${If} $R3 == 0
!insertmacro _EnumHKU_InvokeCallback ${CALLBACK} "${SUBKEY}"
;System::Call "advapi32::RegUnLoadKeyW(i ${HKEY_USERS}, t '${SUBKEY}')"
IntOp $EnumHKU_counter $EnumHKU_counter + 1
${EndIf}
!macroend
!macro EnumHKU UN CALLBACK SUBKEY
Push $0
Push $1
StrCpy $EnumHKU_counter 0
GetFunctionAddress $0 "${CALLBACK}"
StrCpy $1 "${SUBKEY}_$EnumHKU_counter"
StrCpy $key ${SUBKEY}
Call ${UN}_EnumHKU
Pop $1
Pop $0
!macroend
!define EnumHKU '!insertmacro EnumHKU ""'
!define un.EnumHKU '!insertmacro EnumHKU "un."'
!macro _EnumHKU UN
Function ${UN}_EnumHKU
Push $R0
Push $R1
Push $R2
Push $R3
Push $R4
Push $R5
Push $R6
# enumerate logged on users
StrCpy $R0 0
${Do}
EnumRegKey $R1 HKU "" $R0
${If} $R1 != ""
StrLen $R4 $R1
${If} $R4 > 8
StrCpy $R6 0
${WordFind} "$R1" "_Classes" "E*" $R6
IfErrors 0 cont
ReadRegStr $R5 HKU "$R1\Volatile Environment" USERPROFILE
ExpandEnvStrings $R5 $R5
StrCpy $USERPROFILE $R5
StrCpy $logged "on"
!insertmacro _EnumHKU_InvokeCallback $0 $R1
StrCpy $USERPROFILE ""
StrCpy $logged ""
${EndIf}
cont:
IntOp $R0 $R0 + 1
${EndIf}
${LoopUntil} $R1 == ""
# enumerate logged off users
System::Call "kernel32::GetVersion() i .R0"
IntOp $R0 $R0 & 0x80000000
${If} $R0 == 0
# nt
!insertmacro _EnumHKU_AdjustTokens
StrCpy $R0 0
${Do}
EnumRegKey $R1 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" $R0
${If} $R1 != ""
StrLen $R4 $R1
${If} $R4 > 8
ClearErrors
ReadRegStr $R5 HKU "$R1\Volatile Environment" HOMEPATH
IfErrors 0 cont1
ReadRegStr $R5 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\$R1" ProfileImagePath
ExpandEnvStrings $R5 $R5
StrCpy $USERPROFILE $R5
StrCpy $logged "off"
!insertmacro _EnumHKU_Load "$R5\NTUSER.DAT" $0 $1
StrCpy $1 "$key_$EnumHKU_counter"
StrCpy $USERPROFILE ""
StrCpy $logged ""
${EndIf}
cont1:
IntOp $R0 $R0 + 1
${EndIf}
${LoopUntil} $R1 == ""
${Else}
# 9x
ClearErrors
FindFirst $R1 $R2 "$WINDIR\Profiles\*.*"
${Unless} ${Errors}
${Do}
${If} $R2 != "."
${AndIf} $R2 != ".."
${If} ${FileExists} "$WINDIR\Profiles\$R2\USER.DAT"
!insertmacro _EnumHKU_Load "$WINDIR\Profiles\$R2\USER.DAT" $0 $1
${EndIf}
${EndIf}
ClearErrors
FindNext $R1 $R2
${LoopUntil} ${Errors}
FindClose $R1
${EndUnless}
${Endif}
Pop $R6
Pop $R5
Pop $R4
Pop $R3
Pop $R2
Pop $R1
Pop $R0
FunctionEnd
!macroend
!insertmacro _EnumHKU ""
!insertmacro _EnumHKU "un."
!endif
!macro IndexOf Var Str Char
Push "${Char}"
Push "${Str}"
Call IndexOf
Pop "${Var}"
!macroend
!define IndexOf "!insertmacro IndexOf"
!macro RIndexOf Var Str Char
Push "${Char}"
Push "${Str}"
Call RIndexOf
Pop "${Var}"
!macroend
!define RIndexOf "!insertmacro RIndexOf"
!macro Explode Length Separator String
Push `${Separator}`
Push `${String}`
Call Explode
Pop `${Length}`
!macroend
!macro unExplode Length Separator String
Push `${Separator}`
Push `${String}`
Call un.Explode
Pop `${Length}`
!macroend
!ifndef _RecFind_Included
!define _RecFind_Included
Var _RecFindVar1
Var _RecFindVar2
!macro _RecFindOpen Dir CurrentDirVar CurrentFileVar
!define _Local `${__LINE__}`
!define _Dir `${Dir}`
!define _CurrentDirVar `${CurrentDirVar}`
!define _CurrentFileVar `${CurrentFileVar}`
!define _RecFindOpenSet
StrCpy $_RecFindVar2 1
Push ``
`nextDir${_Local}:`
Pop `${_CurrentDirVar}`
IntOp $_RecFindVar2 $_RecFindVar2 - 1
!macroend
!define RecFindOpen `!insertmacro _RecFindOpen`
!macro _RecFindFirst
!ifndef _RecFindOpenSet
!error `Incorrect use of RecFind commands!`
!else
!define _RecFindFirstSet
!endif
ClearErrors
FindFirst $_RecFindVar1 `${_CurrentFileVar}` `${_Dir}${_CurrentDirVar}\*.*`
IfErrors `Done${_Local}`
`checkFile${_Local}:`
StrCmp ${_CurrentFileVar} . `nextFile${_Local}`
StrCmp ${_CurrentFileVar} .. `nextFile${_Local}`
IfFileExists `${_Dir}${_CurrentDirVar}\${_CurrentFileVar}\*.*` 0 +4
Push `${_CurrentDirVar}\${_CurrentFileVar}`
IntOp $_RecFindVar2 $_RecFindVar2 + 1
Goto `nextFile${_Local}`
!macroend
!define RecFindFirst `!insertmacro _RecFindFirst`
!macro _RecFindNext
!ifndef _RecFindOpenSet | _RecFindFirstSet
!error `Incorrect use of RecFind commands!`
!else
!define _RecFindNextSet
!endif
`nextFile${_Local}:`
ClearErrors
FindNext $_RecFindVar1 `${_CurrentFileVar}`
IfErrors 0 `checkFile${_Local}`
StrCmp $_RecFindVar2 0 +3
FindClose $_RecFindVar1
Goto `nextDir${_Local}`
!macroend
!define RecFindNext `!insertmacro _RecFindNext`
!macro _RecFindClose
!ifndef _RecFindOpenSet | _RecFindFirstSet | _RecFindNextSet
!error `Incorrect use of RecFind commands!`
!else
!undef _RecFindOpenSet
!undef _RecFindFirstSet
!undef _RecFindNextSet
!endif
`Done${_Local}:`
FindClose $_RecFindVar1
StrCmp $_RecFindVar2 0 +4
Pop $_RecFindVar1
IntOp $_RecFindVar2 $_RecFindVar2 - 1
Goto -3
!undef _CurrentFileVar
!undef _CurrentDirVar
!undef _Dir
!undef _Local
!macroend
!define RecFindClose `!insertmacro _RecFindClose`
!endif
;--------------------------------------------------------------------------------------------------
;##################################################################################################
;# PAGES #
;##################################################################################################
;# Installer Pages #
;##################################################################################################
/* Var Skip_Page_CleanUp
Var Skip_Page_TypeInst
Var Skip_Page_SetConfig
Var Skip_Page_Directory
Var Skip_Page_Startmenu
Var Skip_Page_Confirm
*/
;# Welcome page
!define MUI_WELCOMEPAGE_TITLE_3LINES
!insertmacro MUI_PAGE_WELCOME
;# License page
!define MUI_PAGE_CUSTOMFUNCTION_LEAVE Page_License_Leave
;!insertmacro MUI_PAGE_LICENSE "@CPACK_RESOURCE_FILE_LICENSE@"
!define MUI_LICENSEPAGE_BUTTON "$(^NextBtn)"
!define MUI_LICENSEPAGE_TEXT_BOTTOM $(License_Message)
!insertmacro MUI_PAGE_LICENSE $(license)
;# Clean up page - only shown if previous installation(s) <= 2.2.823 were found - checked in .onInit function
Page custom Page_CleanUp Page_CleanUp_Leave
;# Install type page - only shown if previous installation(s) > 2.2.823 were found - checked in .onInit function
Page custom Page_TypeInst Page_TypeInst_Leave
;# Components page
!define MUI_COMPONENTSPAGE_SMALLDESC
!define MUI_PAGE_HEADER_TEXT $(CP_HEADER_TEXT)
!define MUI_PAGE_HEADER_SUBTEXT $(CP_HEADER_SUBTEXT)
!define MUI_COMPONENTSPAGE_TEXT_TOP $(CP_TOP)
!define MUI_COMPONENTSPAGE_TEXT_COMPLIST $(CP_COMPLIST)
!define MUI_COMPONENTSPAGE_TEXT_INSTTYPE "" ;#CHANGE $(CP_INSTTYPE)
;!define MUI_COMPONENTSPAGE_TEXT_DESCRIPTION_TITLE $(CP_DESCRIPTION_TITLE) ;# for this we can use the default text
;!define MUI_COMPONENTSPAGE_TEXT_DESCRIPTION_INFO $(CP_DESCRIPTION_INFO) ;# for this we can use the default text
!define MUI_PAGE_CUSTOMFUNCTION_PRE Page_Components_Pre
!define MUI_PAGE_CUSTOMFUNCTION_SHOW Page_Components_Show
!define MUI_PAGE_CUSTOMFUNCTION_LEAVE Page_Components_Leave
!insertmacro MUI_PAGE_COMPONENTS
;# Directory page - allows for changing/ selecting the install directory
!define MUI_DIRECTORYPAGE_VERIFYONLEAVE
!define MUI_PAGE_CUSTOMFUNCTION_PRE Page_Directory_Pre
!define MUI_PAGE_CUSTOMFUNCTION_LEAVE Page_Directory_Leave
!insertmacro MUI_PAGE_DIRECTORY
;# Start Menu Folder page - allows for changing/ selecting the Start Menu Folder (if Shortcuts get installed is configured on the Components page)
!define MUI_STARTMENUPAGE_NODISABLE
!define MUI_STARTMENUPAGE_REGISTRY_ROOT "SHCTX"
!define MUI_STARTMENUPAGE_REGISTRY_KEY "${REG_KEY_UN}"
!define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "StartMenuFolder"
!define MUI_STARTMENUPAGE_DEFAULTFOLDER "OpenCPN"
!define MUI_PAGE_CUSTOMFUNCTION_PRE Page_Startmenu_Pre
!insertmacro MUI_PAGE_STARTMENU "Application" $STARTMENU_FOLDER
;# Set Config page - selecting chart director[y|ies] and setting the language in opencpn.ini - only available if opencpn.ini does not exist (or is being deleted)
Page custom Page_SetConfig Page_SetConfig_Leave
;# Confirm page - shows all settings for the installation (is mainly needed to always have the 'Install' button on the right page, ie. if Start Menu page is skipped)
Page custom Page_Confirm
;# Install page
!define MUI_PAGE_CUSTOMFUNCTION_SHOW Page_Instfiles_Show
!insertmacro MUI_PAGE_INSTFILES
;# Finish page
#!define MUI_FINISHPAGE_RUN opencpn.exe
!define MUI_FINISHPAGE_RUN
!define MUI_FINISHPAGE_RUN_FUNCTION ExecAppFile
!define MUI_FINISHPAGE_SHOWREADME install.log
!define MUI_FINISHPAGE_SHOWREADME_TEXT $(Show_Readme_Text)
!define MUI_FINISHPAGE_SHOWREADME_NOTCHECKED
!define MUI_FINISHPAGE_LINK $(Finish_Link_Text)
!define MUI_FINISHPAGE_LINK_LOCATION $(Finish_Link_URL)
!define MUI_FINISHPAGE_LINK_COLOR 000080
!define MUI_FINISHPAGE_NOREBOOTSUPPORT
!define MUI_FINISHPAGE_TITLE_3LINES
!insertmacro MUI_PAGE_FINISH
;--------------------------------
;##################################################################################################
;# Uninstaller Pages #
;##################################################################################################
;# Welcome page
!define MUI_WELCOMEPAGE_TITLE_3LINES
!insertmacro MUI_UNPAGE_WELCOME
;# Components page
!define MUI_PAGE_CUSTOMFUNCTION_PRE un.Page_Components_Pre
!insertmacro MUI_UNPAGE_COMPONENTS
;# Confirm page
!insertmacro MUI_UNPAGE_CONFIRM
;# Uninstall page
!insertmacro MUI_UNPAGE_INSTFILES
;# Finish page
!define MUI_FINISHPAGE_TITLE_3LINES
!insertmacro MUI_UNPAGE_FINISH
;--------------------------------------------------------------------------------------------------
;##################################################################################################
;# Languages #
;##################################################################################################
;# Languages
!insertmacro MUI_LANGUAGE "English" ;# first language is the default language
!insertmacro MUI_LANGUAGE "German"
!include /NONFATAL "Langstrings_GERMAN.nsh"
!insertmacro MUI_LANGUAGE "French"
!include /NONFATAL "Langstrings_FRENCH.nsh"
!insertmacro MUI_LANGUAGE "Czech"
!include /NONFATAL "Langstrings_CZECH.nsh"
!insertmacro MUI_LANGUAGE "Danish"
!include /NONFATAL "Langstrings_DANISH.nsh"
!insertmacro MUI_LANGUAGE "Spanish"
!include /NONFATAL "Langstrings_SPANISH.nsh"
!insertmacro MUI_LANGUAGE "Italian"
!include /NONFATAL "Langstrings_ITALIAN.nsh"
!insertmacro MUI_LANGUAGE "Dutch"
!include /NONFATAL "Langstrings_DUTCH.nsh"
!insertmacro MUI_LANGUAGE "Polish"
!include /NONFATAL "Langstrings_POLISH.nsh"
!insertmacro MUI_LANGUAGE "PortugueseBR"
!include /NONFATAL "Langstrings_PORTUGUESEBR.nsh"
!insertmacro MUI_LANGUAGE "Portuguese"
!include /NONFATAL "Langstrings_PORTUGUESE.nsh"
!insertmacro MUI_LANGUAGE "Russian"
!include /NONFATAL "Langstrings_RUSSIAN.nsh"
!insertmacro MUI_LANGUAGE "Swedish"
!include /NONFATAL "Langstrings_SWEDISH.nsh"
!insertmacro MUI_LANGUAGE "Finnish"
!include /NONFATAL "Langstrings_FINNISH.nsh"
!insertmacro MUI_LANGUAGE "Norwegian"
!include /NONFATAL "Langstrings_NORWEGIAN.nsh"
!insertmacro MUI_LANGUAGE "TradChinese"
!include /NONFATAL "Langstrings_CHINESETW.nsh"
;--------------------------------
;# Reserve Files
;# If you are using solid compression, files that are required before
;# the actual installation should be stored first in the data block,
;# because this will make your installer start faster.
!insertmacro MUI_RESERVEFILE_LANGDLL
;# Remember the installer language
!define MUI_LANGDLL_REGISTRY_ROOT "HKLM"
!define MUI_LANGDLL_REGISTRY_KEY "${REG_KEY_UN}"
!define MUI_LANGDLL_REGISTRY_VALUENAME "SetupLanguage"
!define MUI_LANGDLL_WINDOWTITLE $(LangDialog_Title)
!define MUI_LANGDLL_INFO $(LangDialog_Text)
;--------------------------------------------------------------------------------------------------
;##################################################################################################
;# S E C T I O N S #
;##################################################################################################
;# Installer Sections #
;##################################################################################################
Section "-Topmost Section" SecTopmost ;# this needs to be always the first section to be executed!
SetShellVarContext all
SetOutPath $INSTDIR
${If} $INSTALL_TYPE == 1
${OrIf} $INSTALL_TYPE == 2
${OrIf} $INSTALL_TYPE == 3
ReadRegStr $0 HKLM "$Prev_Install_RegKey" "UninstallString"
${StrFilter} "$0" "" "" "$\"" $0
ClearErrors
ExecWait '"$0" /S /type=1 _?=$INSTDIR'
IfErrors 0 +2
DetailPrint "Error on uninstalling"
Sleep 100
Delete $0
${EndIf}
SectionEnd
;# Reset/ Delete Config Section
SectionGroup "!Reset Config Section Group" SecGrpResetConfig
Section /o "Delete Config File Section" SecDeleteConfigFile
;# Delete config file (opencpn.ini)
SetShellVarContext all
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini"
Delete "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini"
ClearErrors
${EndIf}
SectionEnd
Section /o "Delete ChartDB Section" SecDeleteChartDB
;# Delete chart DB (CHRTLIST.DAT)
SetShellVarContext all
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\CHRTLIST.DAT"
Delete "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\CHRTLIST.DAT"
ClearErrors
${EndIf}
SectionEnd
Section /o "Delete SENC Section" SecDeleteSENC
;# Delete SENC directory
SetShellVarContext all
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\SENC\*.*"
RMDir /r "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\SENC"
ClearErrors
${EndIf}
SectionEnd
Section /o "Delete SENC Section" SecDeleteCM93
;# Delete SENC directory
SetShellVarContext all
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\cm93\*.*"
RMDir /r "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\cm93"
ClearErrors
${EndIf}
SectionEnd
Section /o "Delete Navobject Section" SecDeleteNavobjFile
;# Delete navobject file (navobj.xml)
SetShellVarContext all
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\navobj.xml"
Delete "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\navobj.xml"
ClearErrors
${EndIf}
SectionEnd
Section /o "Delete Log File Section" SecDeleteLogFile
;# Delete log file (opencpn.log)
SetShellVarContext all
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.log"
Delete "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.log"
ClearErrors
${EndIf}
SectionEnd
SectionGroupEnd
;# Shortcut Section
SectionGroup /e "!Shortcuts Section Group" SecGrpShortcuts
Section "Startmenu Shortcut Section" SecShortcutStartmenu
;# Start Menu
SetShellVarContext all
SetOutPath $INSTDIR
!insertmacro MUI_STARTMENU_WRITE_BEGIN Application
;# Create shortcuts
CreateDirectory "$SMPROGRAMS\$STARTMENU_FOLDER"
CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\OpenCPN @CPACK_PACKAGE_VERSION@.lnk" "$INSTDIR\opencpn.exe"
CreateDirectory "$SMPROGRAMS\$STARTMENU_FOLDER\$(Uninstall_Folder_Name)"
CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\$(Uninstall_Folder_Name)\$(Uninstall_Link).lnk" "$INSTDIR\Uninstall @CPACK_PACKAGE_VERSION@.exe"
!insertmacro MUI_STARTMENU_WRITE_END
SectionEnd
Section "Desktop Shortcut Section" SecShortcutDesktop
SetShellVarContext all
CreateShortCut "$DESKTOP\OpenCPN @CPACK_PACKAGE_VERSION@.lnk" "$INSTDIR\opencpn.exe"
SectionEnd
SectionGroupEnd
;# Write Config Section
Section "!Set Config Section" SecSetConfig
;# Write settings for config file (opencpn.ini) to HKLM Software\OpenCPN
${If} $CONFIG_SET_LANG == 1
;Call Write_Reg_Lang
WriteRegStr HKLM "Software\OpenCPN" "InstallerLanguage" $REG_LANG
${EndIf}
${If} $CHART_DIR_TMP_FILE == 1
Call Write_Reg_ChartDirs
${EndIf}
SectionEnd
;# Install Section /hidden
Section "-Install Section" SecInstall
@CPACK_NSIS_FULL_INSTALL@
@CPACK_NSIS_EXTRA_INSTALL_COMMANDS@
;# Create uninstaller
WriteUninstaller "$INSTDIR\Uninstall @CPACK_PACKAGE_VERSION@.exe"
;# Registry Entries
SetShellVarContext all ;# make sure that we write to HKLM
;# HKLM Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN <DisplayVersion>
WriteRegStr SHCTX "${REG_KEY_UN}" "DisplayName" "@CPACK_PACKAGE_NAME@ @CPACK_PACKAGE_VERSION@"
WriteRegStr SHCTX "${REG_KEY_UN}" "DisplayVersion" "@CPACK_PACKAGE_VERSION@"
WriteRegStr SHCTX "${REG_KEY_UN}" "CompareVersion" "$VERSION_DATE"
WriteRegStr SHCTX "${REG_KEY_UN}" "StartMenuPath" "$SMPROGRAMS\$STARTMENU_FOLDER"
WriteRegStr SHCTX "${REG_KEY_UN}" "InstallLocation" "$INSTDIR"
WriteRegStr SHCTX "${REG_KEY_UN}" "UninstallString" "$\"$INSTDIR\Uninstall @CPACK_PACKAGE_VERSION@.exe$\""
WriteRegStr SHCTX "${REG_KEY_UN}" "QuietUninstallString" "$\"$INSTDIR\Uninstall @CPACK_PACKAGE_VERSION@.exe /S$\""
WriteRegStr SHCTX "${REG_KEY_UN}" "ConfigLocation" "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@"
WriteRegStr SHCTX "${REG_KEY_UN}" "DisplayIcon" "$INSTDIR\@CPACK_NSIS_INSTALLED_ICON_NAME@"
WriteRegStr SHCTX "${REG_KEY_UN}" "Publisher" "@CPACK_PACKAGE_VENDOR@"
WriteRegDWORD SHCTX "${REG_KEY_UN}" "VersionMajor" $MAJOR_D
WriteRegDWORD SHCTX "${REG_KEY_UN}" "VersionMinor" $MINOR_D
WriteRegDWORD SHCTX "${REG_KEY_UN}" "VersionPatch" $PATCH_D
WriteRegDWORD SHCTX "${REG_KEY_UN}" "NoModify" 1
WriteRegDWORD SHCTX "${REG_KEY_UN}" "NoRepair" 1
WriteRegStr SHCTX "${REG_KEY_UN}" "HelpLink" "http://opencpn.org/"
WriteRegStr SHCTX "${REG_KEY_UN}" "URLInfoAbout" "http://opencpn.org/"
WriteRegStr SHCTX "${REG_KEY_UN}" "Contact" "http://opencpn.org/"
WriteRegStr SHCTX "${REG_KEY_UN}" "InstallUser" "$USERS_NAME"
${If} ${UAC_IsInnerInstance}
WriteRegStr SHCTX "${REG_KEY_UN}" "InstallAdminUser" "$USERNAME"
${EndIf}
;# Create the config folder if it does not exist and set full access rights to it
${IfNot} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\*.*"
CreateDirectory "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@"
Sleep 250
${EndIf}
AccessControlW::GrantOnFile "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@" "(BU)" "GenericRead + GenericExecute + GenericWrite + Delete + FullAccess"
;# Save the log file
StrCpy $0 "$INSTDIR\install.log"
Push $0
Call DumpLog
SectionEnd
;--------------------------------
;##################################################################################################
;# Uninstaller Sections #
;##################################################################################################
Section "-un.Delete Config RegKey" UnSecDeleteConfigRegKey
DeleteRegKey HKLM "${REG_KEY}"
SectionEnd
Section /o "-un.Backup Config to RegKey" UnSecBackupConfigToRegKey
SetShellVarContext all
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini"
ClearErrors
StrCpy $0 ""
StrCpy $2 0
loop:
IntOp $2 $2 + 1
ReadINIStr $1 "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini" "ChartDirectories" "ChartDir$2"
StrCmp $1 "" cont
${WordReplace} "$1" "\\" "\" "+" $3
${unExplode} $4 "^" "$3"
Pop $5
StrCmp $5 "" cont
StrCmp $0 "" 0 +2
StrCpy $0 $5
StrCpy $0 "$0;$5"
Goto loop
cont:
WriteRegStr HKLM "${REG_KEY}" "ChartDirs" "$0"
ReadINIStr $0 "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini" "Settings" "Locale"
StrCmp $0 "" +2 0
WriteRegStr HKLM "${REG_KEY}" "InstallerLanguage" "$0"
${EndIf}
SectionEnd
Section "un.Delete Config Folder" UnSecDeleteConfigFolder
SetShellVarContext all
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\*.*"
RMDir /r "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@"
ClearErrors
${EndIf}
SectionEnd
Section "-un.Uninstall" UnSecUninstall
;# Delete all Shortcuts
Push $INSTDIR
Call un.Delete_Desktop_Shortcuts
Push $INSTDIR
Call un.Delete_Start_Menu_Shortcuts
;# Delete subdirs and files in INSTDIR
;# Remove the uninstaller itself
ReadRegStr $0 HKLM "${REG_KEY_UN}" "UninstallString"
${StrFilter} "$0" "" "" "$\"" $0
Delete $0
;# Remove the installation log file
Delete "$INSTDIR\install.log"
@CPACK_NSIS_DELETE_FILES@
@CPACK_NSIS_DELETE_DIRECTORIES@
;# Remove the installation directory INSTDIR if it is empty
ClearErrors
RMDir "$INSTDIR"
IfErrors 0 cont
IfSilent cont
MessageBox MB_OK|MB_ICONEXCLAMATION "$(Msg_Error_Remove_InstDir)"
cont:
;# Remove RegKey
DeleteRegKey HKLM "${REG_KEY_UN}"
SectionEnd
;--------------------------------------------------------------------------------------------------
;##################################################################################################
;# F U N C T I O N S #
;##################################################################################################
;# Installer Functions #
;##################################################################################################
;# .onInit Function
Function .onInit
;# Check if Windows version is at least XP (not Win 98, Win 2000 or older)
${IfNot} ${AtLeastWinXP}
MessageBox MB_OK|MB_ICONEXCLAMATION "$(Installer_Unsupported_Windows_Version)"
Abort
${Else}
${If} ${IsWinXP}
${AndIf} ${AtMostServicePack} 2
MessageBox MB_OK|MB_ICONEXCLAMATION "$(Installer_Unsupported_XP_SP_Version)"
Abort
${EndIf}
${EndIf}
;Prevent multiple instances of the installer
${IfNot} ${UAC_IsInnerInstance}
System::Call 'kernel32::CreateMutexW(i 0, i 0, t "ocpn_inst_@CPACK_PACKAGE_VERSION@") i .r1 ?e'
Pop $R0
StrCmp $R0 0 +3
MessageBox MB_OK|MB_ICONEXCLAMATION "$(Installer_Running)"
Abort
${EndIf}
Call GetUserInfo
StrCpy $USERS_NAME $USERNAME
;# Macros to be inserted
${If} $IS_ADMIN == 1
!insertmacro MUI_LANGDLL_DISPLAY
${EndIf}
SetShellVarContext current
StrCpy $USERS_APPDATA $APPDATA
StrCpy $ADMIN_APPDATA $APPDATA
;# UAC check if user has Admin privileges and prompt for elevation if not
uac_tryagain:
!insertmacro UAC_RunElevated
StrCpy $Inst_Or_Uninst "$(Installer)"
${Switch} $0
${Case} 0
${IfThen} $1 = 1 ${|} Quit ${|} ;# we are the outer process, the inner process has done its work, we are done
${IfThen} $3 <> 0 ${|} ${Break} ${|} ;# we are admin, let the show go on
${If} $1 = 3 ;# RunAs completed successfully, but with a non-admin user
MessageBox mb_IconExclamation|mb_TopMost|mb_SetForeground "$(Msg_UAC_Admin_Retry)" /SD IDNO IDOK uac_tryagain IDNO 0
${EndIf}
;# fall-through and die
${Case} 1223
MessageBox mb_IconStop|mb_TopMost|mb_SetForeground "$(Msg_UAC_Admin_Abort)"
Quit
${Case} 1062
MessageBox mb_IconStop|mb_TopMost|mb_SetForeground "$(Msg_UAC_Logon_Abort)"
Quit
${Default}
MessageBox mb_IconStop|mb_TopMost|mb_SetForeground "$(Msg_UAC_No_Elevation)"
Quit
${EndSwitch}
########## from here we can be sure to run with admin privileges ##########
;# Delete all temporary files created during the installation
Delete "$TEMP\opencpn_*.tmp"
;DeleteRegKey HKCU "Software\OpenCPN" ;# remove RegKey possibly exists - was used by versions 2.2.808 to 2.2.823
;# Check for unloaded Registry hive from previous installation attempt e.g. when installer crashed
StrCpy $0 0
!insertmacro _EnumHKU_AdjustTokens
${Do}
EnumRegKey $1 HKU "" $0
StrCmp $1 "" done
IntOp $0 $0 + 1
ClearErrors
${WordFind} "$1" "opencpn-inst-tmp-sid" "E*" $2
IfErrors +2 0
System::Call "advapi32::RegUnLoadKeyW(i ${HKEY_USERS}, t '$1') i .r3"
${Loop}
done:
${If} ${UAC_IsInnerInstance}
!insertmacro UAC_AsUser_GetGlobalVar $USERS_APPDATA
!insertmacro UAC_AsUser_GetGlobalVar $USERS_NAME
${EndIf}
ClearErrors
Var /GLOBAL INST_PARAMS
Var /GLOBAL FORCE_SCAN
${GetParameters} $INST_PARAMS
${GetOptions} "$INST_PARAMS" "/scan" $FORCE_SCAN
IfErrors +2
# Get the user's SID from the username
ReadRegStr $0 HKCU "Volatile Environment" "USERNAME"
System::Call /NOUNLOAD '*(&w${NSIS_MAX_STRLEN})i.R9'
System::Call /NOUNLOAD 'advapi32::LookupAccountNameW(,t "$0",i R9,*i ${NSIS_MAX_STRLEN},w .R8,*i ${NSIS_MAX_STRLEN},*i .r4)i.r5'
System::Call /NOUNLOAD 'advapi32::ConvertSidToStringSidW(i R9,*t .R8)i.r5'
StrCpy $INST_USER_SID $R8
Call VersionDate
;# check for previous installed versions conforming to this installer
Call Check_Prev_Installs
;# check for old installed versions prior to the ones that uses this installer
StrCpy $OLD_INSTALLS 0
Call Reg_Scan_Old_Versions_HKLM
Call EnumProfileList
Call Get_Users_Values
${If} $OLD_INSTALLS == 0
StrCpy $Skip_Page_CleanUp 1
${EndIf}
;# make sure that the DWORD values for the Registry only contain digits
${StrFilter} "@CPACK_PACKAGE_VERSION_MAJOR@" "1" "" "" $MAJOR_D
${StrFilter} "@CPACK_PACKAGE_VERSION_MINOR@" "1" "" "" $MINOR_D
${StrFilter} "@CPACK_PACKAGE_VERSION_PATCH@" "1" "" "" $PATCH_D
;Call GetAllUsers
FunctionEnd
;--------------------------------
;# myGuiInit Function
/*
Var CONFIG_EMPTY
Var INI_EXISTS
Var CHARTDB_EXISTS
Var SENC_EXISTS
Var CM93_EXISTS
Var NAVOBJ_EXISTS
Var LOG_EXISTS
Var REG_LANG
Var Count_SecGrpResetConfig
Var SecGrpEndSetConfig_Text
*/
Function myGuiInit
;Get chosen installer language
${Switch} $LANGUAGE
${Case} ${LANG_CZECH}
StrCpy $LANG_NAME "Čeština"
StrCpy $REG_LANG "cs_CZ"
${Break}
${Case} ${LANG_DANISH}
StrCpy $LANG_NAME "Dansk"
StrCpy $REG_LANG "da_DK"
${Break}
${Case} ${LANG_GERMAN}
StrCpy $LANG_NAME "Deutsch"
StrCpy $REG_LANG "de_DE"
${Break}
${Case} ${LANG_ENGLISH}
StrCpy $LANG_NAME "English"
StrCpy $REG_LANG "en_US"
${Break}
${Case} ${LANG_SPANISH}
StrCpy $LANG_NAME "Español"
StrCpy $REG_LANG "es_ES"
${Break}
${Case} ${LANG_FRENCH}
StrCpy $LANG_NAME "Français"
StrCpy $REG_LANG "fr_FR"
${Break}
${Case} ${LANG_ITALIAN}
StrCpy $LANG_NAME "Italiano"
StrCpy $REG_LANG "it_IT"
${Break}
${Case} ${LANG_DUTCH}
StrCpy $LANG_NAME "Nederlandse"
StrCpy $REG_LANG "nl_NL"
${Break}
${Case} ${LANG_POLISH}
StrCpy $LANG_NAME "Polski"
StrCpy $REG_LANG "pl_PL"
${Break}
${Case} ${LANG_PORTUGUESE}
StrCpy $LANG_NAME "Português"
StrCpy $REG_LANG "pt_PT"
${Break}
${Case} ${LANG_PORTUGUESEBR}
StrCpy $LANG_NAME "Português Brasileiro"
StrCpy $REG_LANG "pt_BR"
${Break}
${Case} ${LANG_SWEDISH}
StrCpy $LANG_NAME "Svenska"
StrCpy $REG_LANG "sv_SE"
${Break}
${Case} ${LANG_RUSSIAN}
StrCpy $LANG_NAME "Русский"
StrCpy $REG_LANG "ru_RU"
${Break}
${Case} ${LANG_NORWEGIAN}
StrCpy $LANG_NAME "Norsk"
StrCpy $REG_LANG "nb_NO"
${Break}
${Case} ${LANG_FINNISH}
StrCpy $LANG_NAME "Suomalainen"
StrCpy $REG_LANG "fi_FI"
${Break}
${Case} ${LANG_TRADCHINESE}
StrCpy $LANG_NAME "正體中文"
StrCpy $REG_LANG "zh_TW"
${Break}
${Default}
${Break}
${EndSwitch}
;# Set Sections Text
SectionSetText ${SecGrpShortcuts} $(SecGrpShortcuts_Text)
SectionSetText ${SecShortcutStartmenu} $(SecShortcutStartmenu_Text)
SectionSetText ${SecShortcutDesktop} $(SecShortcutDesktop_Text)
SectionSetText ${SecSetConfig} $(SecSetConfig_Text)
;# Look for config dir ("%APPDATA%\opencpn) and the several config files
Call Check_Config_Exists
${If} $CONFIG_EXISTS != 1
${OrIf} $CONFIG_EMPTY == 1
Call Hide_SecGrpResetConfig
IntOp $0 ${SF_SELECTED} | ${SF_BOLD}
SectionSetFlags ${SecSetConfig} $0
StrCpy $SetConfig 1
${EndIf}
SetShellVarContext all ;# switch SetShellVarContext back to ALL
FunctionEnd
;--------------------------------
;# onSelChange
;Var ConfigSetLang
;Var ConfigSetChartDir
;Var SetConfig
Function .onSelChange
;# Check if all available Sections in SecGrpResetConfig are selected => set SecGrpResetConfig to selected instead of partially selected
Push $0
Push $1
Push $2
Push $3
Push $R0
Push $R1
StrCpy $0 ${SecGrpResetConfig}
StrCpy $1 0
StrCpy $2 0
${Do}
IntOp $0 $0 + 1
${If} ${SectionIsSectionGroupEnd} $0
Goto end
${EndIf}
SectionGetText $0 $R0
${If} $R0 != ""
${AndIf} ${SectionIsSelected} $0
Goto found_selected
${ElseIf} $R0 != ""
${AndIfNot} ${SectionIsSelected} $0
Goto found_unselected
${EndIf}
${Loop}
found_selected:
StrCpy $0 ${SecGrpResetConfig}
${Do}
IntOp $0 $0 + 1
${If} ${SectionIsSectionGroupEnd} $0
Goto end
${EndIf}
SectionGetText $0 $R0
${If} $R0 == ""
${AndIfNot} ${SectionIsSelected} $0
SectionSetFlags $0 ${SF_SELECTED}
${EndIf}
${Loop}
found_unselected:
StrCpy $0 ${SecGrpResetConfig}
${Do}
IntOp $0 $0 + 1
${If} ${SectionIsSectionGroupEnd} $0
Goto end
${EndIf}
SectionGetText $0 $R0
${If} $R0 == ""
${AndIf} ${SectionIsSelected} $0
!insertmacro ClearSectionFlag $0 ${SF_SELECTED}
${EndIf}
${Loop}
end:
SectionGetText ${SecDeleteConfigFile} $R1
${If} $R1 != ""
${IfNot} ${SectionIsReadOnly} ${SecSetConfig}
${AndIfNot} ${SectionIsSelected} ${SecSetConfig}
${AndIf} $SetConfig == 1
StrCpy $SetConfig 0
${EndIf}
${IfNot} ${SectionIsSelected} ${SecDeleteConfigFile}
${AndIf} ${SectionIsSelected} ${SecSetConfig}
!insertmacro ClearSectionFlag ${SecSetConfig} ${SF_SELECTED}
IntOp $0 ${SF_RO} | ${SF_BOLD}
SectionSetFlags ${SecSetConfig} $0
;SectionSetFlags ${SecSetConfig} ${SF_RO}
StrCpy $SetConfig 1
${ElseIfNot} ${SectionIsSelected} ${SecDeleteConfigFile}
${AndIfNot} ${SectionIsSelected} ${SecSetConfig}
IntOp $0 ${SF_RO} | ${SF_BOLD}
SectionSetFlags ${SecSetConfig} $0
;SectionSetFlags ${SecSetConfig} ${SF_RO}
StrCpy $SetConfig 0
${ElseIf} ${SectionIsSelected} ${SecDeleteConfigFile}
${AndIfNot} ${SectionIsSelected} ${SecSetConfig}
${AndIf} $SetConfig == 1
!insertmacro ClearSectionFlag ${SecSetConfig} ${SF_RO}
IntOp $0 ${SF_SELECTED} | ${SF_BOLD}
SectionSetFlags ${SecSetConfig} $0
;SectionSetFlags ${SecSetConfig} ${SF_SELECTED}
${ElseIf} ${SectionIsSelected} ${SecDeleteConfigFile}
${AndIf} $SetConfig == 0
!insertmacro ClearSectionFlag ${SecSetConfig} ${SF_RO}
StrCpy $SetConfig 0
${EndIf}
${EndIf}
Pop $R1
Pop $R0
Pop $3
Pop $2
Pop $1
Pop $0
FunctionEnd
Function .OnInstFailed
Call InstallerEnd
FunctionEnd
Function .OnInstSuccess
Call InstallerEnd
FunctionEnd
Function .onGUIEnd
Call InstallerEnd
FunctionEnd
Function InstallerEnd
;# Delete all temporary files created during the installation
Delete "$TEMP\opencpn_*.tmp"
${If} $EnumHKU_counter > 0
${ForEach} $1 $EnumHKU_counter 0 - 1
System::Call "advapi32::RegUnLoadKeyW(i ${HKEY_USERS}, t '$key_$1')"
${Next}
${Endif}
FunctionEnd
;--------------------------------
;##################################################################################################
;# Installer Page Functions #
;##################################################################################################
;# Page_License_Leave
Function Page_License_Leave
FindWindow $mui.ComponentsPage "#32770" "" $HWNDPARENT
System::Call "*(i 0, i 0, i 4, i 8) i .r1"
System::Call "User32::MapDialogRect(i $mui.ComponentsPage, i r1) i .r2"
System::Call "*$1(i .r2, i.r3, i.r4, i.r5)"
System::Free $1
StrCpy $BU_X $4
StrCpy $BU_Y $5
FunctionEnd
;--------------------------------
;# Page_CleanUp
Var Label_CleanUp
Var Label_FullScan_CleanUp
Var GroupBox_CleanUp
Var ListBox_CleanUp
Var Button_FullScan_CleanUp
Var Button_UnselectAll_CleanUp
Var Button_SelectAll_CleanUp
Var Button_Uninstall_Selected_CleanUp
Var Banner_Handle
Var MSG_Box_Uninstall_Shown
Function Page_CleanUp
${If} $Skip_Page_CleanUp == 1
Abort
${EndIf}
!ifndef PBS_MARQUEE
!define PBS_MARQUEE 0x08
!endif
!ifndef PBM_SETMARQUEE
!define PBM_SETMARQUEE 0x040A
!endif
!ifndef GWL_STYLE
!define GWL_STYLE -16
!endif
${IfNot} $MSG_Box_Uninstall_Shown == 1
MessageBox MB_YESNO|MB_ICONQUESTION "$(Msg_Uninstall_Old_Versions)" IDYES cont IDNO skip
${Else}
Goto cont
${EndIf}
skip:
Abort
cont:
StrCpy $MSG_Box_Uninstall_Shown 1
!insertmacro MUI_HEADER_TEXT "$(Page_CleanUp_Title)" "$(Page_CleanUp_Subtitle)"
nsDialogs::Create /NOUNLOAD 1018
Pop $0
${If} $0 == error
Abort
${EndIf}
${NSD_CreateLabel} 0 0 200u 16u "$(LAB_FullScan_CleanUp)"
Pop $Label_FullScan_CleanUp
${NSD_CreateButton} 220u 0 70u 15u "$(BT_FullScan_CleanUp)"
Pop $Button_FullScan_CleanUp
GetFunctionAddress $0 Button_FullScan_CleanUp_Click
nsDialogs::OnClick /NOUNLOAD $Button_FullScan_CleanUp $0
${NSD_CreateLabel} 0 22u 100% 24u "$(Label_CleanUp_Text)"
Pop $Label_CleanUp
${NSD_CreateGroupBox} 0 55u 100% 85u "$(Install_Location_Default)"
Pop $GroupBox_CleanUp
!define __NSD_ListBoxMultiselect_CLASS LISTBOX
!define __NSD_ListBoxMultiselect_STYLE ${DEFAULT_STYLES}|${WS_TABSTOP}|${WS_VSCROLL}|${LBS_DISABLENOSCROLL}|${LBS_HASSTRINGS}|${LBS_NOINTEGRALHEIGHT}|${LBS_NOTIFY}|${LBS_MULTIPLESEL}
!define __NSD_ListBoxMultiselect_EXSTYLE ${WS_EX_WINDOWEDGE}|${WS_EX_CLIENTEDGE}
!insertmacro __NSD_DefineControl ListBoxMultiselect
${NSD_CreateListboxMultiselect} 10u 70u 200u 65u "$(LB_CleanUp)"
Pop $ListBox_CleanUp
GetFunctionAddress $0 ListBox_CleanUp_Change
nsDialogs::OnChange /NOUNLOAD $ListBox_CleanUp $0
${NSD_CreateButton} 220u 70u 70u 15u "$(BT_UnselectAll_CleanUp)"
Pop $Button_UnselectAll_CleanUp
GetFunctionAddress $0 Button_UnselectAll_CleanUp_Click
nsDialogs::OnClick /NOUNLOAD $Button_UnselectAll_CleanUp $0
${NSD_CreateButton} 220u 100u 70u 15u "$(BT_SelectAll_CleanUp)"
Pop $Button_SelectAll_CleanUp
GetFunctionAddress $0 Button_SelectAll_CleanUp_Click
nsDialogs::OnClick /NOUNLOAD $Button_SelectAll_CleanUp $0
${NSD_CreateButton} 220u 120u 70u 15u "$(BT_Uninstall_Selected_CleanUp)"
Pop $Button_Uninstall_Selected_CleanUp
GetFunctionAddress $0 Button_Uninstall_Selected_CleanUp_Click
nsDialogs::OnClick /NOUNLOAD $Button_Uninstall_Selected_CleanUp $0
;# First check if HDD scan was already done
${If} ${FileExists} "$TEMP\opencpn_hdd_full_scan.tmp"
EnableWindow $Button_FullScan_CleanUp 0
EnableWindow $Label_FullScan_CleanUp 0
SendMessage $GroupBox_CleanUp ${WM_SETTEXT} 0 "STR:$(Install_Location_HDD_Scan)"
ClearErrors
FileOpen $R0 "$TEMP\opencpn_hdd_full_scan.tmp" r
IfErrors done1
${Do}
FileReadUTF16LE $R0 $R1
${If} $R1 == ""
Goto done1
${Else}
${TrimNewLines} $R1 $R1
SendMessage $ListBox_CleanUp ${LB_ADDSTRING} 0 "STR:$R1"
${EndIf}
${Loop}
done1:
FileClose $R0
;# if not get values from LM_VERSION and opencpn_old_installs.tmp file
${Else}
${IfNot} ${FileExists} "$TEMP\opencpn_hdd_quick_scan.tmp"
;# Scan the default locations for program installations on a per-user and all-users basis
Banner::show /NOUNLOAD /set 76 "$(Search_old_installations)"
Banner::getWindow /NOUNLOAD
Pop $Banner_Handle
ShowWindow $Banner_Handle ${SW_HIDE}
${NSD_AddExStyle} $Banner_Handle ${WS_EX_APPWINDOW}
ShowWindow $Banner_Handle ${SW_SHOW}
GetDlgItem $2 $Banner_Handle 1030
SendMessage $2 ${WM_SETTEXT} 0 "STR:$(text_please_wait_1)"
; Get progress bar handle.
GetDlgItem $Marquee_Handle $Banner_Handle 1004
; Set PBS_MARQUEE style for the progress bar control.
System::Call "user32::GetWindowLong(i $Marquee_Handle, i ${GWL_STYLE}) i .r1"
System::Call "user32::SetWindowLong(i $Marquee_Handle, i ${GWL_STYLE}, i $1|${PBS_MARQUEE})"
; Send PBM_SETMARQUEE message to start the marquee.
; lParam is time in milliseconds between marquee animation updates.
SendMessage $Marquee_Handle ${PBM_SETMARQUEE} 1 50
System::Call "User32::SetWindowPos(i $Banner_Handle, i -1, i 0, i 0, i 0, i 0, i 83)"
HideWindow
Call Quick_Scan_Old_Versions
ShowWindow $HWNDPARENT ${SW_SHOW}
BringToFront
SendMessage $Marquee_Handle ${PBM_SETMARQUEE} 0 0
System::Call "user32::SetWindowLong(i $Marquee_Handle, i ${GWL_STYLE}, i $1)"
Banner::destroy
${EndIf}
ClearErrors
FileOpen $R0 "$TEMP\opencpn_hdd_quick_scan.tmp" r
IfErrors done2
${Do}
FileReadUTF16LE $R0 $R1
${If} $R1 == ""
Goto done2
${Else}
${TrimNewLines} $R1 $R1
SendMessage $ListBox_CleanUp ${LB_ADDSTRING} 0 "STR:$R1"
${EndIf}
${Loop}
done2:
FileClose $R0
${EndIf}
/*
;# Pre-select all listbox-items
${NSD_LB_GetCount} $ListBox_CleanUp $1
IntOp $1 $1 - 1
SendMessage $ListBox_CleanUp ${LB_SELITEMRANGEEX} 0 $1
*/
Call ListBox_CleanUp_Change
nsDialogs::Show
FunctionEnd
Function Button_FullScan_CleanUp_Click
SendMessage $ListBox_CleanUp ${LB_RESETCONTENT} 0 0
Banner::show /NOUNLOAD /set 76 "$(Scanning_HDD)"
Banner::getWindow /NOUNLOAD
Pop $Banner_Handle
ShowWindow $Banner_Handle ${SW_HIDE}
SendMessage $Banner_Handle ${WM_SETTEXT} 0 "STR:$(OCPN_Scanning_HDD)"
${NSD_AddExStyle} $Banner_Handle ${WS_EX_APPWINDOW}
ShowWindow $Banner_Handle ${SW_SHOW}
GetDlgItem $2 $Banner_Handle 1030
SendMessage $2 ${WM_SETTEXT} 0 "STR:$(text_please_wait_1)"
; Get progress bar handle.
GetDlgItem $Marquee_Handle $Banner_Handle 1004
; Set PBS_MARQUEE style for the progress bar control.
System::Call "user32::GetWindowLong(i $Marquee_Handle, i ${GWL_STYLE}) i .r1"
System::Call "user32::SetWindowLong(i $Marquee_Handle, i ${GWL_STYLE}, i $1|${PBS_MARQUEE})"
; Send PBM_SETMARQUEE message to start the marquee.
; lParam is time in milliseconds between marquee animation updates.
SendMessage $Marquee_Handle ${PBM_SETMARQUEE} 1 50
System::Call "User32::SetWindowPos(i $Banner_Handle, i -1, i 0, i 0, i 0, i 0, i 83)"
HideWindow
Call Full_Scan_Old_Versions
${If} ${FileExists} "$TEMP\opencpn_hdd_full_scan.tmp"
Delete "$TEMP\opencpn_hdd_quick_scan.tmp"
${EndIf}
;# If install locations were found compare with Registry keys
${If} $counter_tmp > 0
${If} $LM_VERSION_INST != ""
ClearErrors
FileOpen $R0 "$TEMP\opencpn_hdd_full_scan.tmp" r
IfErrors done1
${Do}
FileReadUTF16LE $R0 $R1
${If} $R1 == ""
Goto done1
${Else}
${TrimNewLines} $R1 $R1
StrCmp $R1 $R2 done1
${EndIf}
${Loop}
;# Path from Registry key wasn't found => delete RegKey
DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN_is1"
StrCpy $LM_VERSION_INST ""
done1:
FileClose $R0
${EndIf}
${If} ${FileExists} "$TEMP\opencpn_old_installs.tmp"
;# Clear the stack
ClearErrors
${Do}
Pop $0
IfErrors empty
${Loop}
empty:
ClearErrors
FileOpen $R0 "$TEMP\opencpn_old_installs.tmp" r
IfErrors done3
${Do}
FileReadUTF16LE $R0 $R3
FileReadUTF16LE $R0 $R2
${If} $R3 == ""
Goto done3
${Else}
${TrimNewLines} $R3 $R3
${TrimNewLines} $R2 $R2
FileReadUTF16LE $R0 $R1
${TrimNewLines} $R1 $R1
ClearErrors
FileOpen $0 "$TEMP\opencpn_hdd_full_scan.tmp" r
IfErrors next
${Do}
FileReadUTF16LE $0 $1
${If} $1 == ""
Goto next
${Else}
${TrimNewLines} $1 $1
StrCmp $1 $R1 done2
${EndIf}
${Loop}
;# Path from Registry key wasn't found => delete RegKey
DeleteRegKey HKU $R3
Goto next
done2:
Push $R1
Push $R2
Push $R3
next:
FileClose $0
${EndIf}
${Loop}
done3:
FileClose $R0
ClearErrors
FileOpen $R0 "$TEMP\opencpn_old_installs.tmp" w
IfErrors done4
${Do}
Pop $R1
IfErrors done4
FileWriteUTF16LE $R0 $R1
FileWriteUTF16LE $R0 "$\r$\n"
${Loop}
done4:
FileClose $R0
${EndIf}
${EndIf}
EnableWindow $Button_FullScan_CleanUp 0 ;# Disable the Scan HDD button after scan was done
EnableWindow $Label_FullScan_CleanUp 0 ;# Disable the Scan HDD label after scan was done
SendMessage $GroupBox_CleanUp ${WM_SETTEXT} 0 "STR:$(Install_Location_HDD_Scan)"
ShowWindow $HWNDPARENT ${SW_SHOW}
BringToFront
; Stop the marquee and set the old styles back for the progress bar control.
SendMessage $Marquee_Handle ${PBM_SETMARQUEE} 0 0
System::Call "user32::SetWindowLong(i $Marquee_Handle, i ${GWL_STYLE}, i $1)"
Banner::destroy
FunctionEnd
Function Button_UnselectAll_CleanUp_Click
SendMessage $ListBox_CleanUp ${LB_SETSEL} FALSE -1
Call ListBox_CleanUp_Change
FunctionEnd
Function Button_SelectAll_CleanUp_Click
${NSD_LB_GetCount} $ListBox_CleanUp $1
IntOp $1 $1 - 1
${If} $1 == 0
IntOp $1 $1 + 1
${EndIf}
SendMessage $ListBox_CleanUp ${LB_SELITEMRANGEEX} 0 $1
Call ListBox_CleanUp_Change
FunctionEnd
Function ListBox_CleanUp_Change
SendMessage $ListBox_CleanUp ${LB_GETSELCOUNT} 0 0 $1
${NSD_LB_GetCount} $ListBox_CleanUp $2
${If} $2 > 0
${If} $1 == 0
EnableWindow $Button_Uninstall_Selected_CleanUp 0
EnableWindow $Button_UnselectAll_CleanUp 0
EnableWindow $Button_SelectAll_CleanUp 1
${ElseIf} $1 > 0
${AndIf} $1 == $2
EnableWindow $Button_Uninstall_Selected_CleanUp 1
EnableWindow $Button_UnselectAll_CleanUp 1
EnableWindow $Button_SelectAll_CleanUp 0
${Else}
EnableWindow $Button_Uninstall_Selected_CleanUp 1
EnableWindow $Button_UnselectAll_CleanUp 1
EnableWindow $Button_SelectAll_CleanUp 1
${EndIf}
${Else}
EnableWindow $Button_Uninstall_Selected_CleanUp 0
EnableWindow $Button_UnselectAll_CleanUp 0
EnableWindow $Button_SelectAll_CleanUp 0
${EndIf}
FunctionEnd
Var Uninstall_Path_Tmp
Function Button_Uninstall_Selected_CleanUp_Click
EnableWindow $Button_Uninstall_Selected_CleanUp 0
SendMessage $ListBox_CleanUp ${LB_GETSELCOUNT} 0 0 $1
${NSD_LB_GetCount} $ListBox_CleanUp $2
ClearErrors
FileOpen $R0 "$TEMP\opencpn_uninstall.tmp" w
IfErrors done
IntOp $2 $2 - 1
${ForEach} $3 $2 0 - 1
SendMessage $ListBox_CleanUp ${LB_GETSEL} $3 0 $4
${If} $4 > 0
System::Call "User32::SendMessage(i $ListBox_CleanUp, i ${LB_GETTEXT}, i $3, t .r5)"
FileWriteUTF16LE $R0 "$5"
FileWriteUTF16LE $R0 "$\r$\n"
SendMessage $ListBox_CleanUp ${LB_DELETESTRING} $3 0
${EndIf}
${Next}
done:
FileClose $R0
Call ListBox_CleanUp_Change
StrCpy $R8 ""
StrCpy $R7 ""
StrCpy $R6 ""
StrCpy $R5 ""
${If} ${FileExists} "$TEMP\opencpn_uninstall.tmp"
${If} ${FileExists} "$TEMP\opencpn_hdd_full_scan.tmp"
StrCpy $R8 "opencpn_hdd_full_scan.tmp"
${ElseIf} ${FileExists} "$TEMP\opencpn_hdd_quick_scan.tmp"
StrCpy $R8 "opencpn_hdd_quick_scan.tmp"
${EndIf}
${If} ${FileExists} "$TEMP\opencpn_old_installs.tmp"
StrCpy $R7 1
${EndIf}
${If} ${FileExists} "$TEMP\opencpn_old_uninstall_regkeys.tmp"
StrCpy $R6 1
${EndIf}
${If} ${FileExists} "$TEMP\opencpn_appdata.tmp"
StrCpy $R5 1
${EndIf}
ClearErrors
FileOpen $R4 "$TEMP\opencpn_uninstall.tmp" r
IfErrors end
loop:
ClearErrors
FileReadUTF16LE $R4 $0
IfErrors end
StrCmp $0 "" loop
StrCmp $0 "$\r$\n" loop
${TrimNewLines} $0 $0
StrCpy $Uninstall_Path_Tmp $0
;# Delete installation directory
ClearErrors
Call Delete_Installation_Dir
IfErrors 0 +2
MessageBox MB_OK|MB_ICONEXCLAMATION "Error RMDir: $0" ;#ON ERROR
;# If deleted installation was the one in the HKLM ...\OpenCPN_is1 subkey => delete RegKey
${If} $LM_VERSION_INST != ""
StrCmp $0 $LM_VERSION_INST 0 cont
ClearErrors
DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN_is1"
IfErrors 0 +2
MessageBox MB_OK|MB_ICONEXCLAMATION "Error DeleteRegKey HKLM Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN_is1" ;#ON ERROR
StrCpy $LM_VERSION ""
StrCpy $LM_VERSION_INST ""
StrCpy $LM_VERSION_UNINST ""
${EndIf}
cont:
;# Delete Start Menu shortcuts
Push $Uninstall_Path_Tmp
Call Delete_Start_Menu_Shortcuts
;# Delete Desktop shortcuts
Push $Uninstall_Path_Tmp
Call Delete_Desktop_Shortcuts
;# Delete RegKeys in HKU Software\opencpn.org\...
${If} $R7 == 1
Call Update_Old_Installs
${EndIf}
;# Delete RegKeys in HKU Software\...\Uninstall\OpenCPN
${If} $R6 == 1
Call Update_Old_Uninstalls
${EndIf}
;# Delete %APPDATA\opencpn folder
${If} $R5 == 1
Call Update_Appdata
${EndIf}
${IfNot} $R8 == ""
Call Update_HDD_Scan
${EndIf}
Goto loop
end:
FileClose $R4
Delete "$TEMP\opencpn_uninstall.tmp"
StrCpy $Uninstall_Path_Tmp ""
${EndIf}
${NSD_LB_GetCount} $ListBox_CleanUp $2
${If} $2 == 0 ;# listbox is empty - all were uninstalled
StrCpy $Skip_Page_CleanUp 1
GetDlgItem $0 $HWNDPARENT 1
SendMessage $0 ${BM_CLICK} 0 0
${EndIf}
FunctionEnd
Function Update_HDD_Scan
Push $0
Push $1
Push $2
Push $3
Push $4
Push $R0
Push $R8
ClearErrors
FileOpen $0 "$TEMP\$R8" r ;# open target file for reading
GetTempFileName $R0 ;# get new temp file name
FileOpen $1 $R0 w ;# open temp file for writing
IfErrors end
loop:
FileReadUTF16LE $0 $2 ;# read line from target file
IfErrors done ;# check if end of file reached
${TrimNewLines} $2 $2
StrCmp $2 "$Uninstall_Path_Tmp" +2 ;# compare line with search string with CR/LF
FileWriteUTF16LE $1 "$2$\r$\n" ;# write line to temp file
Goto loop
done:
FileClose $0 ;# close target file
FileClose $1 ;# close temp file
Delete "$TEMP\$R8" ;# delete target file
CopyFiles /SILENT $R0 "$TEMP\$R8" ;# copy temp file to target file
Delete $R0 ;# delete temp file
end:
Pop $R8
Pop $R0
Pop $4
Pop $3
Pop $2
Pop $1
Pop $0
FunctionEnd
Function Update_Old_Installs
Push $0
Push $1
Push $2
Push $3
Push $4
Push $R0
Push $R1
ClearErrors
FileOpen $0 "$TEMP\opencpn_old_installs.tmp" r ;# open target file for reading
GetTempFileName $R0 ;# get new temp file name
FileOpen $1 $R0 w ;# open temp file for writing
IfErrors end
loop:
FileReadUTF16LE $0 $4 ;# read line from target file
FileReadUTF16LE $0 $3 ;# read line from target file
FileReadUTF16LE $0 $2 ;# read line from target file
IfErrors done ;# check if end of file reached
${TrimNewLines} $2 $2
StrCmp $2 "$Uninstall_Path_Tmp" +5 ;# compare line with search string with CR/LF
FileWriteUTF16LE $1 $4 ;# write line to temp file
FileWriteUTF16LE $1 $3 ;# write line to temp file
FileWriteUTF16LE $1 "$2$\r$\n" ;# write line to temp file
Goto loop
${TrimNewLines} $4 $4
DeleteRegKey HKU "$4"
${WordFind} "$4" "\" "-2{*" $4
DeleteRegKey /ifempty HKU "$4"
ClearErrors
Goto loop
done:
FileClose $0 ;# close target file
FileClose $1 ;# close temp file
Delete "$TEMP\opencpn_old_installs.tmp" ;# delete target file
CopyFiles /SILENT $R0 "$TEMP\opencpn_old_installs.tmp" ;# copy temp file to target file
Delete $R0 ;# delete temp file
end:
Pop $R1
Pop $R0
Pop $4
Pop $3
Pop $2
Pop $1
Pop $0
FunctionEnd
Function Update_Old_Uninstalls
Push $0
Push $1
Push $2
Push $3
Push $4
Push $R0
Push $R1
ClearErrors
FileOpen $0 "$TEMP\opencpn_old_uninstall_regkeys.tmp" r ;# open target file for reading
GetTempFileName $R0 ;# get new temp file name
FileOpen $1 $R0 w ;# open temp file for writing
IfErrors end
loop:
FileReadUTF16LE $0 $4 ;# read line from target file
FileReadUTF16LE $0 $3 ;# read line from target file
FileReadUTF16LE $0 $2 ;# read line from target file
IfErrors done ;# check if end of file reached
${TrimNewLines} $2 $2
StrCmp $2 "$Uninstall_Path_Tmp" +5 ;# compare line with search string with CR/LF
FileWriteUTF16LE $1 $4 ;# write line to temp file
FileWriteUTF16LE $1 $3 ;# write line to temp file
FileWriteUTF16LE $1 "$2$\r$\n" ;# write line to temp file
Goto loop
${TrimNewLines} $3 $3
DeleteRegKey HKU "$3"
ClearErrors
Goto loop
done:
FileClose $0 ;# close target file
FileClose $1 ;# close temp file
Delete "$TEMP\opencpn_old_uninstall_regkeys.tmp" ;# delete target file
CopyFiles /SILENT $R0 "$TEMP\opencpn_old_uninstall_regkeys.tmp" ;# copy temp file to target file
Delete $R0 ;# delete temp file
end:
Pop $R1
Pop $R0
Pop $4
Pop $3
Pop $2
Pop $1
Pop $0
FunctionEnd
Function Update_Appdata
Push $0
Push $1
Push $2
Push $3
Push $4
Push $R0
Push $R1
ClearErrors
FileOpen $0 "$TEMP\opencpn_appdata.tmp" r ;# open target file for reading
GetTempFileName $R0 ;# get new temp file name
FileOpen $1 $R0 w ;# open temp file for writing
IfErrors end
loop:
FileReadUTF16LE $0 $4 ;# read line from target file
FileReadUTF16LE $0 $3 ;# read line from target file
FileReadUTF16LE $0 $2 ;# read line from target file
IfErrors done ;# check if end of file reached
${TrimNewLines} $2 $2
StrCmp $2 "$Uninstall_Path_Tmp" +5 ;# compare line with search string with CR/LF
FileWriteUTF16LE $1 $4 ;# write line to temp file
FileWriteUTF16LE $1 $3 ;# write line to temp file
FileWriteUTF16LE $1 "$2$\r$\n" ;# write line to temp file
Goto loop
${TrimNewLines} $3 $3
RMDir /r "$3\opencpn"
ClearErrors
Goto loop
done:
FileClose $0 ;# close target file
FileClose $1 ;# close temp file
Delete "$TEMP\opencpn_appdata.tmp" ;# delete target file
CopyFiles /SILENT $R0 "$TEMP\opencpn_appdata.tmp" ;# copy temp file to target file
Delete $R0 ;# delete temp file
end:
Pop $R1
Pop $R0
Pop $4
Pop $3
Pop $2
Pop $1
Pop $0
FunctionEnd
;--------------------------------
;# Page_CleanUp_Leave
Function Page_CleanUp_Leave
${NSD_LB_GetCount} $ListBox_CleanUp $2
${If} $2 > 0 ;# listbox is not empty - not all old versions were uninstalled
MessageBox MB_YESNO|MB_ICONQUESTION "$(Msg_Not_All_Old_Uninstalled)" IDYES leaving
Abort
${EndIf}
leaving:
SendMessage $ListBox_CleanUp ${LB_RESETCONTENT} 0 0
FunctionEnd
;--------------------------------
;# Page_TypeInst
/* Var Label_TypeInst_Reinstall
Var RB_Reinstall
Var Label_TypeInst_Upgrade
Var RB_Upgrade
Var Label_TypeInst_Downgrade
Var RB_Downgrade
Var Label_TypeInst_Parallel
Var GroupBox_TypeInst
Var RB_Parallel
Var TI_REINSTALL
Var TI_UPGRADE
Var TI_DOWNGRADE
Var TI_PARALLEL
Var GroupBox_Size
Var INSTALL_TYPE
*/
Function Page_TypeInst
${If} $Skip_Page_TypeInst == 1
Abort
${EndIf}
${If} $VERSION_EXISTS == 1
!insertmacro MUI_HEADER_TEXT $(Page_TypeInst_Title_Exists) $(Page_TypeInst_Subtitle_Exists)
${ElseIf} $MULTIPLE_INSTALLS == 1
!insertmacro MUI_HEADER_TEXT $(Page_TypeInst_Title_1) $(Page_TypeInst_Subtitle_1)
${ElseIf} $MULTIPLE_INSTALLS > 1
!insertmacro MUI_HEADER_TEXT $(Page_TypeInst_Title) $(Page_TypeInst_Subtitle)
${EndIf}
nsDialogs::Create /NOUNLOAD 1018
Pop $0
${If} $0 == error
Abort
${EndIf}
;Case 1: same version already installed => Option 1: Reinstall
${If} $VERSION_EXISTS == 1
${NSD_CreateLabel} 0 0 100% 40u "$(Label_TypeInst_Reinstall_Text)"
Pop $Label_TypeInst_Reinstall
${NSD_CreateRadioButton} 10u 65u 100% 10u "$(RB_Reinstall_TypeInst_Text)"
Pop $RB_Reinstall
${NSD_AddStyle} $RB_Reinstall ${WS_GROUP}
${NSD_SetState} $RB_Reinstall ${BST_CHECKED}
StrCpy $GroupBox_Size 1
;Case 2: one older previous installation => Option 1: Upgrade Option 2: Parallel Installation
${ElseIf} $MULTIPLE_INSTALLS == 1
${AndIf} $VERSION_NEWER == 1
${NSD_CreateLabel} 0 0 100% 32u "$(Label_TypeInst_Upgrade_Text)"
Pop $Label_TypeInst_Upgrade
${NSD_CreateRadioButton} 10u 65u 100% 10u "$(RB_Upgrade_TypeInst_Text)"
Pop $RB_Upgrade
${NSD_AddStyle} $RB_Upgrade ${WS_GROUP}
${If} $TI_UPGRADE != ""
${NSD_SetState} $RB_Upgrade $TI_UPGRADE
${ElseIf} $TI_UPGRADE == ""
${AndIf} $TI_PARALLEL == ""
${NSD_SetState} $RB_Upgrade ${BST_CHECKED}
${EndIf}
${NSD_CreateRadioButton} 10u 85u 100% 10u "$(RB_Parallel_TypeInst_Text)"
Pop $RB_Parallel
${If} $TI_PARALLEL != ""
${NSD_SetState} $RB_Parallel $TI_PARALLEL
${EndIf}
StrCpy $GroupBox_Size 2
;Case 3: one newer previous installation => Option 1: Downgrade Option 2: Parallel Installation
${ElseIf} $MULTIPLE_INSTALLS == 1
${AndIf} $VERSION_OLDER == 1
${NSD_CreateLabel} 0 0 100% 32u "$(Label_TypeInst_Downgrade_Text)"
Pop $Label_TypeInst_Downgrade
${NSD_CreateRadioButton} 10u 65u 100% 10u "$(RB_Downgrade_TypeInst_Text)"
Pop $RB_Downgrade
${NSD_AddStyle} $RB_Downgrade ${WS_GROUP}
${If} $TI_DOWNGRADE != ""
${NSD_SetState} $RB_Upgrade $TI_DOWNGRADE
${ElseIf} $TI_DOWNGRADE == ""
${AndIf} $TI_PARALLEL == ""
${NSD_SetState} $RB_Downgrade ${BST_CHECKED}
${EndIf}
${NSD_CreateRadioButton} 10u 85u 100% 10u "$(RB_Parallel_TypeInst_Text)"
Pop $RB_Parallel
${If} $TI_PARALLEL != ""
${NSD_SetState} $RB_Parallel $TI_PARALLEL
${EndIf}
StrCpy $GroupBox_Size 2
;Case 4: more than one previous installation => Option 1: Parallel Installation
${ElseIf} $MULTIPLE_INSTALLS > 1
${NSD_CreateLabel} 0 0 100% 32u "$(Label_TypeInst_Parallel_Text)"
Pop $Label_TypeInst_Parallel
${NSD_CreateRadioButton} 10u 65u 100% 10u "$(RB_Parallel_TypeInst_Text)"
Pop $RB_Parallel
${NSD_AddStyle} $RB_Parallel ${WS_GROUP}
${NSD_SetState} $RB_Parallel ${BST_CHECKED}
StrCpy $GroupBox_Size 1
${EndIf}
${If} $GroupBox_Size == 1
${NSD_CreateGroupBox} 0 50u 100% 35u "Install Type"
Pop $GroupBox_TypeInst
${ElseIf} $GroupBox_Size == 2
${NSD_CreateGroupBox} 0 50u 100% 55u "Install Type"
Pop $GroupBox_TypeInst
${EndIf}
nsDialogs::Show
FunctionEnd
;--------------------------------
;# Page_TypeInst_Leave
Function Page_TypeInst_Leave
${If} $RB_Reinstall != ""
${NSD_GetState} $RB_Reinstall $TI_REINSTALL
${EndIf}
${If} $RB_Upgrade != ""
${NSD_GetState} $RB_Upgrade $TI_UPGRADE
${EndIf}
${If} $RB_Downgrade != ""
${NSD_GetState} $RB_Downgrade $TI_DOWNGRADE
${EndIf}
${If} $RB_Parallel != ""
${NSD_GetState} $RB_Parallel $TI_PARALLEL
${EndIf}
StrCpy $Skip_Page_Directory ""
${If} $TI_REINSTALL == 1
StrCpy $INSTALL_TYPE 1
${ElseIf} $TI_UPGRADE == 1
StrCpy $INSTALL_TYPE 2
${ElseIf} $TI_DOWNGRADE == 1
StrCpy $INSTALL_TYPE 3
${ElseIf} $TI_PARALLEL == 1
StrCpy $INSTALL_TYPE 4
${EndIf}
${If} $INSTALL_TYPE == 1
${OrIf} $INSTALL_TYPE == 2
${OrIf} $INSTALL_TYPE == 3
StrCpy $Skip_Page_Directory 1
ReadRegStr $0 HKLM "$Prev_Install_RegKey" "InstallLocation"
StrCpy $INSTDIR $0
${EndIf}
${If} $INSTALL_TYPE == 4
StrCpy $INSTDIR "$PROGRAMFILES\OpenCPN @CPACK_PACKAGE_VERSION@"
${EndIf}
FunctionEnd
;--------------------------------
;# Page_Components_Pre
Function Page_Components_Pre
FunctionEnd
;--------------------------------
;# Page_Components_Show
Function Page_Components_Show
;# change controls size and position on the Components Page
Push $0
Push $1
Push $2
Push $3
Push $4
Push $5
Push $6
Push $7
FindWindow $mui.ComponentsPage "#32770" "" $HWNDPARENT
;GetDlgItem $mui.ComponentsPage.Text $mui.ComponentsPage 1006
GetDlgItem $mui.ComponentsPage.InstTypesText $mui.ComponentsPage 1021
ShowWindow $mui.ComponentsPage.InstTypesText ${SW_HIDE}
GetDlgItem $mui.ComponentsPage.ComponentsText $mui.ComponentsPage 1022
GetDlgItem $mui.ComponentsPage.InstTypes $mui.ComponentsPage 1017
ShowWindow $mui.ComponentsPage.InstTypes ${SW_HIDE}
GetDlgItem $mui.ComponentsPage.Components $mui.ComponentsPage 1032
GetDlgItem $mui.ComponentsPage.DescriptionTitle $mui.ComponentsPage 1042
GetDlgItem $mui.ComponentsPage.DescriptionText $mui.ComponentsPage 1043
GetDlgItem $mui.ComponentsPage.SpaceRequired $mui.ComponentsPage 1023
ShowWindow $mui.ComponentsPage.SpaceRequired ${SW_HIDE}
Push "198"
Push "40"
Push "100"
Push "100"
Call DU2Pix
System::Call "User32::SetWindowPos(i $mui.ComponentsPage.DescriptionTitle, i 0, i $1, i $2, i $3, i $4, i 64)" ;# 1042
Push "203"
Push "50"
Push "90"
Push "85"
Call DU2Pix
System::Call "User32::SetWindowPos(i $mui.ComponentsPage.DescriptionText, i 0, i $1, i $2, i $3, i $4, i 64)" ;# 1043
Push "0"
Push "25"
Push "300"
Push "15"
Call DU2Pix
System::Call "User32::SetWindowPos(i $mui.ComponentsPage.ComponentsText, i 0, i $1, i $2, i $3, i $4, i 64)" ;# 1022
Push "0"
Push "40"
Push "195"
Push "100"
Call DU2Pix
System::Call "User32::SetWindowPos(i $mui.ComponentsPage.Components, i 0, i $1, i $2, i $3, i $4, i 64)" ;# 1032
Pop $7
Pop $6
Pop $5
Pop $4
Pop $3
Pop $2
Pop $1
Pop $0
FunctionEnd
;--------------------------------
;# Page_Components_Leave
Function Page_Components_Leave
${IfNot} ${SectionIsSelected} ${SecSetConfig}
StrCpy $Skip_Page_SetConfig 1
${Else}
StrCpy $Skip_Page_SetConfig 0
${EndIf}
${IfNot} ${SectionIsSelected} ${SecShortcutStartmenu}
StrCpy $Skip_Page_Startmenu 1
${Else}
StrCpy $Skip_Page_Startmenu 0
${EndIf}
FunctionEnd
;--------------------------------
;# Page_Directory_Pre
Function Page_Directory_Pre
${If} $Skip_Page_Directory == 1
Abort
${EndIf}
FunctionEnd
;--------------------------------
;# Page_Directory_Leave
Function Page_Directory_Leave
GetInstDirError $R0
${If} $R0 > 0 ;# Invalid path entered
MessageBox MB_OK|MB_ICONSTOP "$(Msg_Path_Invalid)"
Abort
${EndIf}
${If} $INSTALL_TYPE == 4
${AndIf} ${FileExists} "$INSTDIR\opencpn.exe"
MessageBox MB_OK|MB_ICONSTOP "$(Msg_Path_Installation_Exists)"
Abort
${EndIf}
FunctionEnd
;--------------------------------
;# Page_Startmenu_Pre
Function Page_Startmenu_Pre
${If} $Skip_Page_Startmenu == 1
Abort
${EndIf}
${If} $INSTALL_TYPE == 1
${OrIf} $INSTALL_TYPE == 2
${OrIf} $INSTALL_TYPE == 3
ReadRegStr $0 HKLM "$Prev_Install_RegKey" "StartMenuFolder"
StrCpy $STARTMENU_FOLDER $0
${EndIf}
FunctionEnd
;--------------------------------
/*# Page_SetConfig
Var Label_SetConfig
Var GroupBox_Language_SetConfig
Var CheckBox_Language_SetConfig
Var GroupBox_ChartDir_SetConfig
Var DirRequest_SetConfig
Var Button_Delete_SetConfig
Var Button_DeleteAll_SetConfig
Var Button_Add_SetConfig
Var ListBox_SetConfig
*/
Function Page_SetConfig
${If} $Skip_Page_SetConfig == 1
Abort
${EndIf}
!insertmacro MUI_HEADER_TEXT $(Page_SetConfig_Title) $(Page_SetConfig_Subtitle)
nsDialogs::Create /NOUNLOAD 1018
Pop $0
${If} $0 == error
Abort
${EndIf}
${NSD_CreateLabel} 0 0 100% 16u "$(Label_SetConfig_Text)"
Pop $Label_SetConfig
${NSD_CreateGroupBox} 0 20u 100% 30u "$(GB_Language_SetConfig_Text)"
Pop $GroupBox_Language_SetConfig
${NSD_CreateCheckBox} 10u 35u 100% 10u "$(CB_Language_SetConfig_Text)"
Pop $CheckBox_Language_SetConfig
;StrCmp $CONFIG_SET_LANG "" cont
${If} $CONFIG_SET_LANG == ""
${NSD_SetState} $CheckBox_Language_SetConfig ${BST_CHECKED}
Goto cont
${EndIf}
StrCmp $CONFIG_SET_LANG 0 0 +2
${NSD_SetState} $CheckBox_Language_SetConfig ${BST_UNCHECKED}
StrCmp $CONFIG_SET_LANG 1 0 +2
${NSD_SetState} $CheckBox_Language_SetConfig ${BST_CHECKED}
cont:
${NSD_CreateGroupBox} 0 55u 100% 85u "$(GB_ChartDir_SetConfig_Text)"
Pop $GroupBox_ChartDir_SetConfig
${NSD_CreateButton} 220u 70u 60u 15u "$(BT_Delete_SetConfig_Text)"
Pop $Button_Delete_SetConfig
GetFunctionAddress $0 Button_Delete_SetConfig_Click
nsDialogs::OnClick /NOUNLOAD $Button_Delete_SetConfig $0
${NSD_CreateButton} 220u 88u 60u 15u "$(BT_DeleteAll_SetConfig_Text)"
Pop $Button_DeleteAll_SetConfig
GetFunctionAddress $0 Button_DeleteAll_SetConfig_Click
nsDialogs::OnClick /NOUNLOAD $Button_DeleteAll_SetConfig $0
${NSD_CreateButton} 220u 115u 60u 15u "$(BT_Browse_SetConfig_Text)"
Pop $Button_Add_SetConfig
GetFunctionAddress $0 Button_Add_SetConfig_Click
nsDialogs::OnClick /NOUNLOAD $Button_Add_SetConfig $0
${NSD_CreateListBox} 10u 70u 200u 60u $(LB_SetConfig)
Pop $ListBox_SetConfig
GetFunctionAddress $0 ListBox_SetConfig_Change
nsDialogs::OnChange /NOUNLOAD $ListBox_SetConfig $0
${IfNot} $CHART_DIR_EMPTY == 1
SetShellVarContext all
${If} ${FileExists} "$TEMP\opencpn_chart_dirs.tmp"
ClearErrors
FileOpen $R0 "$TEMP\opencpn_chart_dirs.tmp" r
IfErrors end
loop:
ClearErrors
FileReadUTF16LE $R0 $1
IfErrors end
${TrimNewLines} $1 $1
SendMessage $ListBox_SetConfig ${LB_ADDSTRING} 0 "STR:$1"
Goto loop
end:
FileClose $R0
${ElseIf} $INI_EXISTS == 1
StrCpy $R2 0
loop2:
IntOp $R2 $R2 + 1
ReadINIStr $R1 "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini" "ChartDirectories" "ChartDir$R2"
StrCmp $R1 "" cont2
${WordReplace} "$R1" "\\" "\" "+" $R3
${Explode} $R4 "^" "$R3"
Pop $R5
StrCmp $R5 "" cont2
SendMessage $ListBox_SetConfig ${LB_ADDSTRING} 0 "STR:$R5"
Goto loop2
${Else}
ReadRegStr $0 HKLM "Software\OpenCPN" "ChartDirs"
StrCmp $0 "" cont2
${Explode} $3 ";" "$0"
${For} $1 1 $3
Pop $2
${TrimNewLines} $2 $2
SendMessage $ListBox_SetConfig ${LB_ADDSTRING} 0 "STR:$2"
${Next}
${EndIf}
${EndIf}
cont2:
Call ListBox_SetConfig_Change
nsDialogs::Show
FunctionEnd
Function Button_Delete_SetConfig_Click
SendMessage $ListBox_SetConfig ${LB_GETCURSEL} 0 0 $0
SendMessage $ListBox_SetConfig ${LB_DELETESTRING} $0 0
Call ListBox_SetConfig_Change
FunctionEnd
Function Button_DeleteAll_SetConfig_Click
SendMessage $ListBox_SetConfig ${LB_RESETCONTENT} 0 0
Call ListBox_SetConfig_Change
FunctionEnd
Function Button_Add_SetConfig_Click
Var /GLOBAL Initial_Dir
StrCmp $Initial_Dir "" 0 +3
SetShellVarContext all
StrCpy $Initial_Dir "$DOCUMENTS"
nsDialogs::SelectFolderDialog /NOUNLOAD "$(Select_Chart_Directory)" "$Initial_Dir"
Pop $0
${If} $0 == error
Abort
${EndIf}
StrCpy $Initial_Dir $0
${NSD_LB_GetCount} $ListBox_SetConfig $2
${If} $2 > 0
SendMessage $ListBox_SetConfig ${LB_FINDSTRINGEXACT} -1 "STR:$0" $6
${IfNot} $6 < 0
Goto end
${EndIf}
${EndIf}
SendMessage $ListBox_SetConfig ${LB_ADDSTRING} 0 "STR:$0"
end:
Call ListBox_SetConfig_Change
FunctionEnd
Function ListBox_SetConfig_Change
${NSD_LB_GetCount} $ListBox_SetConfig $0
${If} $0 > 0
StrCpy $CHART_DIR_EMPTY 0
${NSD_LB_GetSelection} $ListBox_SetConfig $1
${If} $1 != ""
EnableWindow $Button_Delete_SetConfig 1
${Else}
EnableWindow $Button_Delete_SetConfig 0
${EndIf}
EnableWindow $Button_DeleteAll_SetConfig 1
${Else}
EnableWindow $Button_Delete_SetConfig 0
EnableWindow $Button_DeleteAll_SetConfig 0
StrCpy $CHART_DIR_EMPTY 1
${EndIf}
FunctionEnd
;--------------------------------
/*# Page_SetConfig_Leave
Var CHART_DIR_TMP_FILE
*/
Function Page_SetConfig_Leave
${NSD_LB_GetCount} $ListBox_SetConfig $0
${If} $0 > 0
ClearErrors
FileOpen $R0 "$TEMP\opencpn_chart_dirs.tmp" w
IfErrors done
IntOp $0 $0 - 1
${For} $1 0 $0
SendMessage $ListBox_SetConfig ${LB_SETCURSEL} $1 0
System::Call "User32::SendMessage(i $ListBox_SetConfig, i ${LB_GETTEXT}, i $1, t .r2)"
FileWriteUTF16LE $R0 $2
FileWriteUTF16LE $R0 "$\r$\n"
${Next}
FileClose $R0
StrCpy $CHART_DIR_TMP_FILE 1
${Else}
StrCpy $CHART_DIR_EMPTY 1
${EndIf}
done:
${NSD_GetState} $CheckBox_Language_SetConfig $0
${If} $0 == ${BST_CHECKED}
StrCpy $CONFIG_SET_LANG 1
${Else}
StrCpy $CONFIG_SET_LANG 0
${EndIf}
FunctionEnd
;--------------------------------
;# Page_Confirm
Var Install_Options
Var TEXT_INSTALL_OPTIONS
Function Page_Confirm
!insertmacro MUI_HEADER_TEXT $(Page_Confirm_Title) $(Page_Confirm_Subtitle)
;# gather all installation settings and prepare (string) variable '$Install_Options' to display
;# add the installation type to '$Install_Options'
StrCpy $Install_Options "$(Installation_Type):$\r$\n"
${If} $Skip_Page_TypeInst != 1
${Switch} $INSTALL_TYPE
${Case} 1
StrCpy $Install_Options "$Install_Options$\t$(Type_Reinstall)"
${Break}
${Case} 2
StrCpy $Install_Options "$Install_Options$\t$(Type_Upgrade)"
${Break}
${Case} 3
StrCpy $Install_Options "$Install_Options$\t$(Type_Downgrade)"
${Break}
${Case} 4
StrCpy $Install_Options "$Install_Options$\t$(Type_Parallel_Installation)"
${Break}
${Default}
${Break}
${EndSwitch}
${Else}
StrCpy $Install_Options "$Install_Options$\t$(Type_Fresh_Installation)"
${EndIf}
;# add the installation directory to '$Install_Options'
StrCpy $Install_Options "$Install_Options$\r$\n$\r$\n$(Installation_Directory):$\r$\n$\t$INSTDIR"
;# add the delete config settings to '$Install_Options'
${If} $CONFIG_EXISTS == 1
${AndIf} $CONFIG_EMPTY != 1
StrCpy $Install_Options "$Install_Options$\r$\n$\r$\n$(Installation_Delete_Config):"
SectionGetFlags ${SecGrpResetConfig} $0
SectionGetFlags ${SecGrpResetConfig} $1
IntOp $0 $0 & ${SF_SELECTED}
IntOp $1 $1 & ${SF_PSELECTED}
StrCmp $0 0 +3 0
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(SecGrpResetConfig_Text)"
Goto cont
StrCmp $1 0 none_selected 0
SectionGetFlags ${SecDeleteConfigFile} $0
IntOp $0 $0 & ${SF_SELECTED}
StrCmp $0 0 +2 0
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(SecDeleteConfigFile_Text)"
SectionGetFlags ${SecDeleteChartDB} $0
IntOp $0 $0 & ${SF_SELECTED}
StrCmp $0 0 +2 0
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(SecDeleteChartDB_Text)"
SectionGetFlags ${SecDeleteSENC} $0
IntOp $0 $0 & ${SF_SELECTED}
StrCmp $0 0 +2 0
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(SecDeleteSENC_Text)"
SectionGetFlags ${SecDeleteCM93} $0
IntOp $0 $0 & ${SF_SELECTED}
StrCmp $0 0 +2 0
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(SecDeleteCM93_Text)"
SectionGetFlags ${SecDeleteNavobjFile} $0
IntOp $0 $0 & ${SF_SELECTED}
StrCmp $0 0 +2 0
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(SecDeleteNavobjFile_Text)"
SectionGetFlags ${SecDeleteLogFile} $0
IntOp $0 $0 & ${SF_SELECTED}
StrCmp $0 0 +2 0
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(SecDeleteLogFile_Text)"
Goto cont
none_selected:
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(text_none)"
cont:
${EndIf}
;# add the shortcut settings to '$Install_Options'
StrCpy $Install_Options "$Install_Options$\r$\n$\r$\n$(Create_Shortcuts):"
SectionGetFlags ${SecShortcutStartmenu} $0
IntOp $0 $0 & ${SF_SELECTED}
${If} $0 != 0
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(Create_Shortcut_Start_Menu): $STARTMENU_FOLDER"
StrCpy $2 1
${Else}
StrCpy $2 0
${EndIf}
SectionGetFlags ${SecShortcutDesktop} $0
IntOp $0 $0 & ${SF_SELECTED}
${If} $0 != 0
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(Create_Shortcut_Desktop): $DESKTOP"
${Else}
StrCmp $2 0 0 +2
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(text_none)"
${EndIf}
;# add the pre-config settings to '$Install_Options'
${IfNot} ${SectionIsReadOnly} ${SecSetConfig}
${AndIf} ${SectionIsSelected} ${SecSetConfig}
StrCpy $Install_Options "$Install_Options$\r$\n$\r$\n$(SecSetConfig_Text):"
StrCmp $CONFIG_SET_LANG 1 0 +2
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(CB_Language_SetConfig_Text)"
StrCmp $CHART_DIR_TMP_FILE 1 0 end
IfFileExists "$TEMP\opencpn_chart_dirs.tmp" 0 end
StrCpy $Install_Options "$Install_Options$\r$\n$\t$(GB_ChartDir_SetConfig_Text)"
ClearErrors
FileOpen $0 "$TEMP\opencpn_chart_dirs.tmp" r
IfErrors end
${Do}
FileReadUTF16LE $0 $1
IfErrors done
${TrimNewLines} $1 $1
StrCmp $1 "" +2
StrCpy $Install_Options "$Install_Options$\r$\n$\t - $1"
${Loop}
done:
FileClose $0
end:
${EndIf}
;# end '$Install_Options'
nsDialogs::Create /NOUNLOAD 1018
Pop $0
${If} $0 == error
Abort
${EndIf}
nsDialogs::CreateControl EDIT "${__NSD_Text_STYLE}|${WS_VSCROLL}|${WS_HSCROLL}|${ES_MULTILINE}|${ES_WANTRETURN}|${ES_READONLY}" "${__NSD_Text_EXSTYLE}" 0 0 100% 100% "$Install_Options"
Pop $TEXT_INSTALL_OPTIONS
nsDialogs::Show
FunctionEnd
;# Page_Instfiles_Show
Function Page_Instfiles_Show
w7tbp::Start
FunctionEnd
;--------------------------------
;##################################################################################################
;# General Installer Functions #
;##################################################################################################
Function GetAllUsers
ReadRegStr $0 HKLM "System\CurrentControlSet\Control\ComputerName\ActiveComputerName" "ComputerName"
System::Call 'netapi32::NetUserEnum(w "\\$0",i 0,i 2,*i .R0,i ${NSIS_MAX_STRLEN}, *i .R1,*i .R2,*i .r1)i .r2'
StrCpy $R8 $R0
IntOp $R2 $R2 - 1
${ForEach} $9 0 $R2 + 1
System::Call "*$R0(w.R9)"
MessageBox MB_OK "[$R9]"
IntOp $R0 $R0 + 4
${Next}
System::Call 'netapi32.dll::NetApiBufferFree(i R8)i .R1'
FunctionEnd
Function Hide_SecGrpResetConfig
Push $0
!insertmacro ClearSectionFlag ${SecDeleteConfigFile} ${SF_SELECTED}
SectionSetText ${SecDeleteConfigFile} ""
!insertmacro ClearSectionFlag ${SecDeleteChartDB} ${SF_SELECTED}
SectionSetText ${SecDeleteChartDB} ""
!insertmacro ClearSectionFlag ${SecDeleteSENC} ${SF_SELECTED}
SectionSetText ${SecDeleteSENC} ""
!insertmacro ClearSectionFlag ${SecDeleteCM93} ${SF_SELECTED}
SectionSetText ${SecDeleteCM93} ""
!insertmacro ClearSectionFlag ${SecDeleteNavobjFile} ${SF_SELECTED}
SectionSetText ${SecDeleteNavobjFile} ""
!insertmacro ClearSectionFlag ${SecDeleteLogFile} ${SF_SELECTED}
SectionSetText ${SecDeleteLogFile} ""
!insertmacro ClearSectionFlag ${SecGrpResetConfig} ${SF_SECGRP}
!insertmacro ClearSectionFlag ${SecGrpResetConfig} ${SF_SELECTED}
SectionSetFlags ${SecGrpResetConfig} 0
SectionSetText ${SecGrpResetConfig} ""
IntOp $0 ${SecDeleteLogFile} + 1
!insertmacro ClearSectionFlag $0 ${SF_SECGRPEND}
SectionSetText $0 ""
Pop $0
FunctionEnd
Function Check_Config_Exists
;# Look for config dir ("%APPDATA%\opencpn) and the several config files
SetShellVarContext all
${IfNot} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\*.*"
${If} ${FileExists} "$USERS_APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\*.*"
CreateDirectory "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@"
Sleep 250
AccessControlW::GrantOnFile "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@" "(BU)" "GenericRead + GenericExecute + GenericWrite + Delete + FullAccess"
CopyFiles /SILENT "$USERS_APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\*.*" "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@"
${ElseIf} ${FileExists} "$ADMIN_APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\*.*"
CreateDirectory "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@"
Sleep 250
AccessControlW::GrantOnFile "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@" "(BU)" "GenericRead + GenericExecute + GenericWrite + Delete + FullAccess"
CopyFiles /SILENT "$ADMIN_APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\*.*" "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@"
${EndIf}
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini"
DeleteINISec "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini" Directories
${EndIf}
${EndIf}
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\*.*"
StrCpy $CONFIG_EXISTS 1
SectionSetText ${SecGrpResetConfig} $(SecGrpResetConfig_Text)
${EndIf}
StrCpy $Count_SecGrpResetConfig 0
${If} $CONFIG_EXISTS == 1
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini"
StrCpy $INI_EXISTS 1
IntOp $Count_SecGrpResetConfig $Count_SecGrpResetConfig + 1
SectionSetText ${SecDeleteConfigFile} $(SecDeleteConfigFile_Text)
${Else}
!insertmacro ClearSectionFlag ${SecDeleteConfigFile} ${SF_SELECTED}
SectionSetText ${SecDeleteConfigFile} ""
${EndIf}
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\CHRTLIST.DAT"
StrCpy $CHARTDB_EXISTS 1
IntOp $Count_SecGrpResetConfig $Count_SecGrpResetConfig + 1
SectionSetText ${SecDeleteChartDB} $(SecDeleteChartDB_Text)
${Else}
!insertmacro ClearSectionFlag ${SecDeleteChartDB} ${SF_SELECTED}
SectionSetText ${SecDeleteChartDB} ""
${EndIf}
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\SENC\*.*"
StrCpy $SENC_EXISTS 1
IntOp $Count_SecGrpResetConfig $Count_SecGrpResetConfig + 1
SectionSetText ${SecDeleteSENC} $(SecDeleteSENC_Text)
${Else}
!insertmacro ClearSectionFlag ${SecDeleteSENC} ${SF_SELECTED}
SectionSetText ${SecDeleteSENC} ""
${EndIf}
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\cm93\*.*"
StrCpy $CM93_EXISTS 1
IntOp $Count_SecGrpResetConfig $Count_SecGrpResetConfig + 1
SectionSetText ${SecDeleteCM93} $(SecDeleteCM93_Text)
${Else}
!insertmacro ClearSectionFlag ${SecDeleteCM93} ${SF_SELECTED}
SectionSetText ${SecDeleteCM93} ""
${EndIf}
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\navobj.xml"
StrCpy $NAVOBJ_EXISTS 1
IntOp $Count_SecGrpResetConfig $Count_SecGrpResetConfig + 1
SectionSetText ${SecDeleteNavobjFile} $(SecDeleteNavobjFile_Text)
${Else}
!insertmacro ClearSectionFlag ${SecDeleteNavobjFile} ${SF_SELECTED}
SectionSetText ${SecDeleteNavobjFile} ""
${EndIf}
${If} ${FileExists} "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.log"
StrCpy $LOG_EXISTS 1
IntOp $Count_SecGrpResetConfig $Count_SecGrpResetConfig + 1
SectionSetText ${SecDeleteLogFile} $(SecDeleteLogFile_Text)
${Else}
!insertmacro ClearSectionFlag ${SecDeleteLogFile} ${SF_SELECTED}
SectionSetText ${SecDeleteLogFile} ""
${EndIf}
${If} $Count_SecGrpResetConfig == 0
StrCpy $CONFIG_EMPTY 1
${EndIf}
!insertmacro ClearSectionFlag ${SecSetConfig} ${SF_SELECTED}
IntOp $0 ${SF_RO} | ${SF_BOLD}
SectionSetFlags ${SecSetConfig} $0
;SectionSetFlags ${SecSetConfig} ${SF_RO}
StrCpy $SetConfig 0
${EndIf}
FunctionEnd
Function Reg_Scan_Old_Versions_HKLM
;# Registry look-up
;# Versions prior to 2.2.727 write RegKey "OpenCPN_is1" to "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall"
ReadRegStr $0 HKLM Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN_is1 "DisplayName"
${If} $0 != ""
${StrFilter} "$0" "31" "." " " $1
StrCpy $LM_VERSION "$1"
ReadRegStr $0 HKLM Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN_is1 "UninstallString"
${StrFilter} "$0" "" "" "$\"" $2
${If} ${FileExists} "$2"
ReadRegStr $0 HKLM Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN_is1 "QuietUninstallString"
${StrFilter} "$0" "" "" "$\"" $3
StrCpy $LM_VERSION_UNINST $3
ReadRegStr $4 HKLM Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN_is1 "InstallLocation"
${TrimNewLines} $4 $4
${If} ${FileExists} "$4opencpn.exe"
${AndIf} ${FileExists} "$4unins*.exe"
;# check if last character of $4 is a "\" and if so remove it
${RIndexOf} $6 "$4" "\"
${If} $6 == 1
${WordReplace} "$4" "\" "" "-1" $4
${EndIf}
StrCpy $LM_VERSION_INST $4
IntOp $OLD_INSTALLS $OLD_INSTALLS + 1
;StrCpy $VERSION_NEWER 1
${Else}
DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN_is1"
StrCpy $LM_VERSION ""
StrCpy $LM_VERSION_UNINST ""
${EndIf}
${EndIf}
${EndIf}
FunctionEnd
Function EnumProfileList
${EnumHKU} Callback_EnumProfileList opencpn-inst-tmp-sid
FunctionEnd
Function Callback_EnumProfileList
;# Get the SID or tmpkey from the stack
Pop $SID
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_users_sid.tmp"
FileOpen $R0 "$TEMP\opencpn_users_sid.tmp" a
FileSeek $R0 0 END
${Else}
FileOpen $R0 "$TEMP\opencpn_users_sid.tmp" w
${EndIf}
IfErrors done
FileWriteUTF16LE $R0 "$SID"
FileWriteUTF16LE $R0 "$\r$\n"
FileWriteUTF16LE $R0 "$USERPROFILE"
FileWriteUTF16LE $R0 "$\r$\n"
FileClose $R0
done:
FunctionEnd
Function Get_Users_Values
Var /GLOBAL tmp_file_handle
StrCpy $SID ""
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_users_sid.tmp"
FileOpen $tmp_file_handle "$TEMP\opencpn_users_sid.tmp" r
IfErrors end
${Do}
FileReadUTF16LE $tmp_file_handle $SID
FileReadUTF16LE $tmp_file_handle $USERPROFILE
StrCmp $SID "" done
${TrimNewLines} $SID $SID
${TrimNewLines} $USERPROFILE $USERPROFILE
;# List of functions to call
Call Users_Appdata_Paths
Call Users_StartMenu_Paths
Call Users_Desktop_Paths
Call Users_Personal_Paths
Call Reg_Scan_Old_Versions_HKCU
${Loop}
done:
FileClose $tmp_file_handle
StrCpy $SID ""
StrCpy $USERPROFILE ""
${EndIf}
end:
FunctionEnd
Function Users_Appdata_Paths
ReadRegStr $1 HKU "$SID\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" AppData
${WordReplace} "$1" "%USERPROFILE%" "$USERPROFILE" "+" $2
ExpandEnvStrings $2 $2
StrCmp $2 "" done
StrCpy $5 "none"
;# check if an OpenCPN config folder exists in the given path
${If} ${FileExists} "$2\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini"
ReadINIStr $3 "$2\@CPACK_NSIS_PACKAGE_NAME_LC@\opencpn.ini" Directories S57DataLocation
${WordReplace} "$3" "\\" "\" "+" $4
${WordFind} "$4" "\" "-2{*" $5
StrCmp $5 "" 0 +2
StrCpy $5 "none"
${EndIf}
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_appdata.tmp"
FileOpen $R0 "$TEMP\opencpn_appdata.tmp" a
FileSeek $R0 0 END
${Else}
FileOpen $R0 "$TEMP\opencpn_appdata.tmp" w
${EndIf}
IfErrors done
FileWriteUTF16LE $R0 "$SID"
FileWriteUTF16LE $R0 "$\r$\n"
FileWriteUTF16LE $R0 "$2"
FileWriteUTF16LE $R0 "$\r$\n"
FileWriteUTF16LE $R0 "$5"
FileWriteUTF16LE $R0 "$\r$\n"
FileClose $R0
done:
FunctionEnd
Function Users_Personal_Paths
ReadRegStr $1 HKU "$SID\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" Personal
${WordReplace} "$1" "%USERPROFILE%" "$USERPROFILE" "+" $2
ExpandEnvStrings $2 $2
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_personal.tmp"
FileOpen $R0 "$TEMP\opencpn_personal.tmp" a
IfErrors done
FileSeek $R0 0 END
${Else}
FileOpen $R0 "$TEMP\opencpn_personal.tmp" w
IfErrors done
${EndIf}
FileWriteUTF16LE $R0 "$SID"
FileWriteUTF16LE $R0 "$\r$\n"
FileWriteUTF16LE $R0 "$2"
FileWriteUTF16LE $R0 "$\r$\n"
FileClose $R0
done:
FunctionEnd
Function Users_StartMenu_Paths
ReadRegStr $1 HKU "$SID\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" "Start Menu"
${WordReplace} "$1" "%USERPROFILE%" "$USERPROFILE" "+" $2
ExpandEnvStrings $2 $2
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_startmenu.tmp"
FileOpen $R0 "$TEMP\opencpn_startmenu.tmp" a
FileSeek $R0 0 END
${Else}
FileOpen $R0 "$TEMP\opencpn_startmenu.tmp" w
${EndIf}
IfErrors done
FileWriteUTF16LE $R0 "$SID"
FileWriteUTF16LE $R0 "$\r$\n"
FileWriteUTF16LE $R0 "$2"
FileWriteUTF16LE $R0 "$\r$\n"
FileClose $R0
done:
FunctionEnd
Function Users_Desktop_Paths
ReadRegStr $1 HKU "$SID\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" Desktop
${WordReplace} "$1" "%USERPROFILE%" "$USERPROFILE" "+" $2
ExpandEnvStrings $2 $2
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_desktop.tmp"
FileOpen $R0 "$TEMP\opencpn_desktop.tmp" a
FileSeek $R0 0 END
${Else}
FileOpen $R0 "$TEMP\opencpn_desktop.tmp" w
${EndIf}
IfErrors done
FileWriteUTF16LE $R0 "$SID"
FileWriteUTF16LE $R0 "$\r$\n"
FileWriteUTF16LE $R0 "$2"
FileWriteUTF16LE $R0 "$\r$\n"
FileClose $R0
done:
FunctionEnd
;Var latest_version
;Var latest_pathexe
Function Reg_Scan_Old_Versions_HKCU
;# Versions from 2.2.727 up to 2.2.xxxx write RegKey "OpenCPN" to "HKCU\Software\Microsoft\Windows\CurrentVersion\Uninstall\"
;# and also RegKey "OpenCPN <version>" to "HKCU\Software\opencpn.org\"
;# Find latest installed version => it's the one found in "HKCU\Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN"
ReadRegStr $0 HKU "$SID\Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN" "DisplayVersion"
${If} $0 != ""
StrCpy $latest_version $0
ReadRegStr $0 HKU "$SID\Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN" "DisplayIcon"
StrCpy $latest_pathexe $0
ReadRegStr $0 HKU "$SID\Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN" "UninstallString"
;StrCpy $CU_VERSION_UNINST $0
${WordFind} "$0" "\" "-2{*" $1
${If} ${FileExists} "$1\opencpn.exe"
${AndIf} ${FileExists} "$1\unins*.exe"
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_old_uninstall_regkeys.tmp"
FileOpen $R0 "$TEMP\opencpn_old_uninstall_regkeys.tmp" a
FileSeek $R0 0 END
${Else}
FileOpen $R0 "$TEMP\opencpn_old_uninstall_regkeys.tmp" w
${EndIf}
IfErrors done
FileWriteUTF16LE $R0 "$SID$\r$\n"
FileWriteUTF16LE $R0 "$SID\Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN$\r$\n"
FileWriteUTF16LE $R0 "$1$\r$\n"
FileClose $R0
${Else}
DeleteRegKey HKU "$SID\Software\Microsoft\Windows\CurrentVersion\Uninstall\OpenCPN"
${EndIf}
${EndIf}
done:
ClearErrors
${Do}
Pop $0
IfErrors empty
${Loop}
empty:
StrCpy $0 0
StrCpy $1 ""
${Do}
EnumRegKey $1 HKU "$SID\Software\opencpn.org" $0
StrCmp $1 "" done1
IntOp $0 $0 + 1
Push $1
${Loop}
done1:
${If} $0 > 0
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_old_installs.tmp"
FileOpen $R0 "$TEMP\opencpn_old_installs.tmp" a
FileSeek $R0 0 END
${Else}
FileOpen $R0 "$TEMP\opencpn_old_installs.tmp" w
${EndIf}
IfErrors done2
${Do}
Pop $R1
IfErrors finished
${StrFilter} "$R1" "31" "." " " $R2 ;# R2 = version
;StrCpy $CU_VERSION $R2
ReadRegStr $R3 HKU "$SID\Software\opencpn.org\$R1" "" ;# R3 = install path
ReadRegStr $R4 HKU "$SID\Software\opencpn.org\$R1" "Start Menu Folder" ;# R4 = Start Menu Folder
ReadRegStr $R5 HKU "$SID\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" "Start Menu" ;# R5 = Start Menu Path
${WordReplace} "$R5" "%USERPROFILE%" "$USERPROFILE" "+" $R5
ExpandEnvStrings $R5 $R5
;StrCpy $CU_VERSION_INST "$R3\"
${If} "$R3\opencpn.exe" == $latest_pathexe
${AndIf} $R2 != $latest_version
DeleteRegKey HKU "$SID\Software\opencpn.org\$R1"
${ElseIf} ${FileExists} "$R3\opencpn.exe"
${AndIf} ${FileExists} "$R3\unins*.exe"
FileWriteUTF16LE $R0 "$SID\Software\opencpn.org\$R1"
FileWriteUTF16LE $R0 "$\r$\n"
FileWriteUTF16LE $R0 "$R5\$R4"
FileWriteUTF16LE $R0 "$\r$\n"
FileWriteUTF16LE $R0 "$R3"
FileWriteUTF16LE $R0 "$\r$\n"
IntOp $OLD_INSTALLS $OLD_INSTALLS + 1
;StrCpy $VERSION_NEWER 1
${Else}
DeleteRegKey HKU "$SID\Software\opencpn.org\$R1"
DeleteRegKey /ifempty HKU "$SID\Software\opencpn.org"
${EndIf}
${Loop}
finished:
FileClose $R0
${Else}
DeleteRegKey HKU "$SID\Software\opencpn.org"
${EndIf}
done2:
StrCpy $latest_version ""
StrCpy $latest_pathexe ""
FunctionEnd
Function Quick_Scan_Old_Versions
;# Scan the given Drive for file "opencpn.exe"
${If} ${FileExists} "$TEMP\opencpn_personal.tmp"
ClearErrors
FileOpen $R0 "$TEMP\opencpn_personal.tmp" r
IfErrors end
${Do}
FileReadUTF16LE $R0 $R1
FileReadUTF16LE $R0 $R2
IfErrors done
StrCmp $R2 "" done
${TrimNewLines} $R2 $R2
${Locate} "$R2" "/L=F /M=opencpn.exe" "Found_OpenCPN_Installation"
${Loop}
done:
FileClose $R0
${EndIf}
end:
${Locate} "$PROGRAMFILES" "/L=F /M=opencpn.exe" "Found_OpenCPN_Installation"
FunctionEnd
Function Found_OpenCPN_Installation
Push $R0
Push $R1
${If} ${FileExists} "$R8\unins*.exe"
${If} ${FileExists} "$TEMP\opencpn_prev_installs.tmp"
ClearErrors
FileOpen $R1 "$TEMP\opencpn_prev_installs.tmp" r
IfErrors cont
${Do}
FileReadUTF16LE $R1 $R2
FileReadUTF16LE $R1 $R3
StrCmp $R2 "" done
${TrimNewLines} $R2 $R2
${TrimNewLines} $R3 $R3
StrCmp $R3 $R8 found
${LoopUntil} $R2 == ""
done:
FileClose $R1
Goto cont
found:
FileClose $R1
Goto end
${EndIf}
cont:
IntOp $counter_tmp $counter_tmp + 1
ClearErrors
${IfNot} ${FileExists} "$TEMP\opencpn_hdd_quick_scan.tmp"
FileOpen $R0 "$TEMP\opencpn_hdd_quick_scan.tmp" w
IfErrors end
${Else}
FileOpen $R0 "$TEMP\opencpn_hdd_quick_scan.tmp" a
IfErrors end
FileSeek $R0 0 END
${EndIf}
FileWriteUTF16LE $R0 "$R8"
FileWriteUTF16LE $R0 "$\r$\n"
FileClose $R0
${EndIf}
end:
Pop $R1
Pop $R0
Push $0
FunctionEnd
;Var counter_tmp
Function Full_Scan_Old_Versions
;# Get all HDD Drive Letters on the system
StrCpy $counter_tmp 0
${GetDrives} "HDD" "Scan_Drive"
FunctionEnd
Function Scan_Drive
;# Scan the given Drive for file "opencpn.exe"
/*;#DEBUG - scan only crtain drives
${IfNot} $9 == "D:\"
;${AndIfNot} $9 == "F:\"
Goto end
${EndIf}
;#DEBUG End */
StrCpy $3 "$(Banner_Scan_Drive)"
GetDlgItem $2 $Banner_Handle 76
SendMessage $2 ${WM_SETTEXT} 0 "STR:$3"
${Locate} "$9" "/L=F /M=opencpn.exe" "Found_OCPN_Exe"
end:
Push $0
FunctionEnd
Function Found_OCPN_Exe
Push $1
ClearErrors
StrCpy $1 0
StrCpy $2 0
${WordFind} "$R8" "\RECYCLER\" "E*" $1
${WordFind} "$R8" "\$$Recycle.Bin" "E*" $2
IfErrors 0 cont1
${If} $1 == 1
${AndIf} $2 == 1
Goto cont2
${EndIf}
cont1:
${If} $1 > 0
${OrIf} $2 > 0
Goto end
${EndIf}
cont2:
${If} ${FileExists} "$R8\unins*.exe"
${If} ${FileExists} "$TEMP\opencpn_prev_installs.tmp"
ClearErrors
FileOpen $R1 "$TEMP\opencpn_prev_installs.tmp" r
IfErrors cont3
${Do}
FileReadUTF16LE $R1 $R2
FileReadUTF16LE $R1 $R3
StrCmp $R2 "" done
${TrimNewLines} $R2 $R2
${TrimNewLines} $R3 $R3
StrCmp $R3 $R8 found
${LoopUntil} $R2 == ""
done:
FileClose $R1
Goto cont3
found:
FileClose $R1
Goto end
${EndIf}
cont3:
IntOp $counter_tmp $counter_tmp + 1
GetDlgItem $2 $Banner_Handle 1030
StrCmp $counter_tmp 1 0 +3
StrCpy $R4 "$(Banner_Installation_Found_Singular)"
Goto +2
StrCpy $R4 "$(Banner_Installation_Found_Plural)"
SendMessage $2 ${WM_SETTEXT} 0 "STR:$R4"
SendMessage $ListBox_CleanUp ${LB_ADDSTRING} 0 "STR:$R8"
ClearErrors
${IfNot} ${FileExists} "$TEMP\opencpn_hdd_full_scan.tmp"
FileOpen $R0 "$TEMP\opencpn_hdd_full_scan.tmp" w
IfErrors end
${Else}
FileOpen $R0 "$TEMP\opencpn_hdd_full_scan.tmp" a
IfErrors end
FileSeek $R0 0 END
${EndIf}
FileWriteUTF16LE $R0 "$R8"
FileWriteUTF16LE $R0 "$\r$\n"
FileClose $R0
end:
${EndIf}
Pop $1
Push $0
FunctionEnd
Function Delete_Installation_Dir
StrCmp $Uninstall_Path_Tmp "" end
;# Check subdirs and remove them recursive ...
${If} ${FileExists} "$Uninstall_Path_Tmp\doc\*.*"
RMDir /r "$Uninstall_Path_Tmp\doc"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\lang\*.*"
RMDir /r "$Uninstall_Path_Tmp\lang"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\Microsoft.VC80.CRT\*.*"
RMDir /r "$Uninstall_Path_Tmp\Microsoft.VC80.CRT"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\s57data\*.*"
RMDir /r "$Uninstall_Path_Tmp\s57data"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\sounds\*.*"
RMDir /r "$Uninstall_Path_Tmp\sounds"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\TCDATA\*.*"
RMDir /r "$Uninstall_Path_Tmp\TCDATA"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\wvsdata\*.*"
RMDir /r "$Uninstall_Path_Tmp\wvsdata"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\plugins\*.*"
RMDir /r "$Uninstall_Path_Tmp\plugins"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\share\*.*"
RMDir /r "$Uninstall_Path_Tmp\share"
${EndIf}
;# Check files and delete them ...
${If} ${FileExists} "$Uninstall_Path_Tmp\opencpn.exe"
Delete "$Uninstall_Path_Tmp\opencpn.exe"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\license.txt"
Delete "$Uninstall_Path_Tmp\license.txt"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\unins000.dat"
Delete "$Uninstall_Path_Tmp\unins000.dat"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\unins000.exe"
Delete "$Uninstall_Path_Tmp\unins000.exe"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\install.log"
Delete "$Uninstall_Path_Tmp\install.log"
${EndIf}
${If} ${FileExists} "$Uninstall_Path_Tmp\install.log"
Delete "$Uninstall_Path_Tmp\install.log"
${EndIf}
Push $0
Push $1
Push $2
Push $R9
Push $R8
Push $R7
Push $R6
;# Find the Uninstall file
${Locate} "$Uninstall_Path_Tmp" "/L=F /M=Uninstall*.exe /G=0" "Delete_Located_File_Single"
;# Find the wx.. DLLs
${Locate} "$Uninstall_Path_Tmp" "/L=F /M=wx*.dll /G=0" "Delete_Located_File_Multi"
;# Dummy call of Locate as it does not properly close its handle and so the dir cannot be deleted though it might be empty
${Locate} "C:\" "/L=DE /M=*.* /G=0" "Dummy_Function"
;# Remove the installation dir ($Uninstall_Path_Tmp) if empty
RMDir "$Uninstall_Path_Tmp"
${If} ${FileExists} "$Uninstall_Path_Tmp\*.*"
Sleep 250
RMDir "$Uninstall_Path_Tmp"
${EndIf}
Pop $R6
Pop $R7
Pop $R8
Pop $R9
Pop $2
Pop $1
Pop $0
end:
FunctionEnd
;# Helper-Functions for Delete_Installation_Dir
Function Delete_Located_File_Single
Delete "$R9"
StrCpy $0 StopLocate
Push $0
FunctionEnd
Function Delete_Located_File_Multi
Delete "$R9"
Push $0
FunctionEnd
Function Dummy_Function
StrCpy $0 StopLocate
Push $0
FunctionEnd
;# End Helper-Functions
Function ExecAppFile
!insertmacro UAC_AsUser_ExecShell 'open' '$INSTDIR\opencpn.exe' '' '$INSTDIR' ''
loop:
System::Call user32::GetForegroundWindow()i.r0
Sleep 200
IntCmpU $0 $hwndparent loop
FunctionEnd
Function DU2Pix
Pop $4
Pop $3
Pop $2
Pop $1
IntOp $1 $1 * $BU_X
IntOp $1 $1 / 4
IntOp $2 $2 * $BU_Y
IntOp $2 $2 / 8
IntOp $3 $3 * $BU_X
IntOp $3 $3 / 4
IntOp $4 $4 * $BU_Y
IntOp $4 $4 / 8
FunctionEnd
;!define LVM_GETITEMCOUNT 0x1004 ;# ANSI
;!define LVM_GETITEMTEXT 0x102D ;# ANSI
!define LVM_GETITEMCOUNT 0x1004
!define LVM_GETITEMTEXT 0x1073
Function DumpLog
Exch $5
Push $0
Push $1
Push $2
Push $3
Push $4
Push $6
FindWindow $0 "#32770" "" $HWNDPARENT
GetDlgItem $0 $0 1016
StrCmp $0 0 error
FileOpen $5 $5 "w"
FileWriteWord $5 0xfeff ; Write the BOM
StrCmp $5 0 error
SendMessage $0 ${LVM_GETITEMCOUNT} 0 0 $6
System::StrAlloc ${NSIS_MAX_STRLEN}
Pop $3
StrCpy $2 0
System::Call "*(i, i, i, i, i, i, i, i, i) i \
(0, 0, 0, 0, 0, r3, ${NSIS_MAX_STRLEN}) .r1"
loop: StrCmp $2 $6 done
System::Call "User32::SendMessageW(i, i, i, i) i \
($0, ${LVM_GETITEMTEXT}, $2, r1)"
System::Call "*$3(&t${NSIS_MAX_STRLEN} .r4)"
FileWriteUTF16LE $5 "$4$\r$\n"
IntOp $2 $2 + 1
Goto loop
done:
FileClose $5
System::Free $1
System::Free $3
Goto exit
error:
MessageBox MB_OK error
exit:
Pop $6
Pop $4
Pop $3
Pop $2
Pop $1
Pop $0
Exch $5
FunctionEnd
Function Write_Reg_ChartDirs
ClearErrors
FileOpen $R0 "$TEMP\opencpn_chart_dirs.tmp" r
IfErrors end
loop:
FileReadUTF16LE $R0 $R1
IfErrors done
${TrimNewLines} $R1 $R1
${If} $REG_CHARTDIRS == ""
StrCpy $REG_CHARTDIRS "$R1"
${Else}
StrCpy $REG_CHARTDIRS "$REG_CHARTDIRS;$R1"
${EndIf}
Goto loop
done:
FileClose $R0
WriteRegStr HKLM "Software\OpenCPN" "ChartDirs" $REG_CHARTDIRS
end:
FunctionEnd
Function IndexOf
Exch $R0
Exch
Exch $R1
Push $R2
Push $R3
StrCpy $R3 $R0
StrCpy $R0 -1
IntOp $R0 $R0 + 1
StrCpy $R2 $R3 1 $R0
StrCmp $R2 "" +2
StrCmp $R2 $R1 +2 -3
StrCpy $R0 -1
Pop $R3
Pop $R2
Pop $R1
Exch $R0
FunctionEnd
Function RIndexOf
Exch $R0
Exch
Exch $R1
Push $R2
Push $R3
StrCpy $R3 $R0
StrCpy $R0 0
IntOp $R0 $R0 + 1
StrCpy $R2 $R3 1 -$R0
StrCmp $R2 "" +2
StrCmp $R2 $R1 +2 -3
StrCpy $R0 -1
Pop $R3
Pop $R2
Pop $R1
Exch $R0
FunctionEnd
;##################################################################################################
;# Uninstaller Functions #
;##################################################################################################
;# un.onInit Function
Function un.onInit
;Prevent multiple instances of the uninstaller
${IfNot} ${UAC_IsInnerInstance}
System::Call 'kernel32::CreateMutexW(i 0, i 0, t "ocpn_uninst_@CPACK_PACKAGE_VERSION@") i .r1 ?e'
Pop $R0
StrCmp $R0 0 +3
MessageBox MB_OK|MB_ICONEXCLAMATION "$(Uninstaller_Running)"
Abort
${EndIf}
Call un.GetUserInfo
StrCpy $USERS_NAME $USERNAME
;# Macros to be inserted
${If} $IS_ADMIN == 1
!insertmacro MUI_UNGETLANGUAGE
${EndIf}
StrCpy $USERS_APPDATA $APPDATA
;# UAC check if user has Admin privileges and prompt for elevation if not
uac_tryagain:
!insertmacro UAC_RunElevated
StrCpy $Inst_Or_Uninst "$(Uninstaller)"
${Switch} $0
${Case} 0
${IfThen} $1 = 1 ${|} Quit ${|} ;# we are the outer process, the inner process has done its work, we are done
${IfThen} $3 <> 0 ${|} ${Break} ${|} ;# we are admin, let the show go on
${If} $1 = 3 ;# RunAs completed successfully, but with a non-admin user
MessageBox mb_IconExclamation|mb_TopMost|mb_SetForeground "$(Msg_UAC_Admin_Retry)" /SD IDNO IDOK uac_tryagain IDNO 0
${EndIf}
;# fall-through and die
${Case} 1223
MessageBox mb_IconStop|mb_TopMost|mb_SetForeground "$(Msg_UAC_Admin_Abort)"
Quit
${Case} 1062
MessageBox mb_IconStop|mb_TopMost|mb_SetForeground "$(Msg_UAC_Logon_Abort)"
Quit
${Default}
MessageBox mb_IconStop|mb_TopMost|mb_SetForeground "$(Msg_UAC_No_Elevation)"
Quit
${EndSwitch}
########## from here we can be sure to run with admin privileges ##########
SectionSetText ${UnSecDeleteConfigFolder} $(UnSecDeleteConfigFolder_Text)
ClearErrors
Var /GLOBAL UN_INST_PARAMS
Var /GLOBAL UN_INST_HELP
Var /GLOBAL UN_INST_TYPE
StrCpy $UN_INST_TYPE ""
${GetParameters} $UN_INST_PARAMS
StrCmp $UN_INST_PARAMS "" no_params
${GetOptions} "$UN_INST_PARAMS" "/?" $UN_INST_HELP
IfErrors +3
StrCpy $UN_INST_HELP "help"
Goto end
ClearErrors
${GetOptions} "$UN_INST_PARAMS" "/type" $UN_INST_TYPE
IfErrors no_type_param
${Switch} $UN_INST_TYPE
${Case} "=1" ;# 1 = Program Files only (Remove/ Delete: Program Files)
StrCpy $UN_INST_TYPE 1
!insertmacro ClearSectionFlag ${UnSecDeleteConfigFolder} ${SF_SELECTED}
!insertmacro ClearSectionFlag ${UnSecDeleteConfigRegKey} ${SF_SELECTED}
${Break}
${Case} "=2" ;# 2 = Preserve Config folder (Remove/ Delete: Program Files + RegKey)
StrCpy $UN_INST_TYPE 2
!insertmacro ClearSectionFlag ${UnSecDeleteConfigFolder} ${SF_SELECTED}
${Break}
${Case} "=3" ;# 3 = Preserve RegKey (Remove/ Delete: Program Files + Config folder)
StrCpy $UN_INST_TYPE 3
!insertmacro ClearSectionFlag ${UnSecDeleteConfigRegKey} ${SF_SELECTED}
SectionSetFlags ${UnSecBackupConfigToRegKey} ${SF_SELECTED}
${Break}
${Case} "=4" ;# 4 = Delete Config folder (Remove/ Delete: Config folder)
StrCpy $UN_INST_TYPE 4
!insertmacro ClearSectionFlag ${UnSecUninstall} ${SF_SELECTED}
!insertmacro ClearSectionFlag ${UnSecDeleteConfigRegKey} ${SF_SELECTED}
SectionSetFlags ${UnSecBackupConfigToRegKey} ${SF_SELECTED}
${Break}
${Case} "=5" ;# 5 = Delete RegKey (Remove/ Delete: RegKey)
StrCpy $UN_INST_TYPE 5
!insertmacro ClearSectionFlag ${UnSecUninstall} ${SF_SELECTED}
!insertmacro ClearSectionFlag ${UnSecDeleteConfigFolder} ${SF_SELECTED}
${Break}
${Default}
StrCpy $9 $UN_INST_TYPE
StrCpy $UN_INST_TYPE "error_type" ;# unknown value given for the type parameter => MsgBox => Quit
${Break}
${EndSwitch}
StrCmp $UN_INST_TYPE "error_type" 0 cont
MessageBox MB_OK|MB_ICONEXCLAMATION "$(Msg_Unknown_Type_Param)"
Quit
no_type_param:
;# If no parameter 'type' is given assume full uninstall
StrCpy $UN_INST_TYPE 0 ;# 0 = Full Uninstall (Remove/ Delete: Program Files + Config folder + RegKey)
Goto cont
no_params:
;# If no parameters are given assume full uninstall
StrCpy $UN_INST_TYPE 0 ;# 0 = Full Uninstall (Remove/ Delete: Program Files + Config folder + RegKey)
cont:
;# Delete all temporary files created during the installation
Delete "$TEMP\opencpn_*.tmp"
Call un.VersionDate
Call un.Check_Prev_Installs
;# If there are other installations of OCPN do not remove the config folder!
${If} $UN_INST_TYPE == 0
${AndIf} $VERSION_EXISTS == 1
${AndIf} $MULTIPLE_INSTALLS > 1
StrCpy $Skip_UnPage_Components 1
!insertmacro ClearSectionFlag ${UnSecDeleteConfigFolder} ${SF_SELECTED}
${EndIf}
ReadRegStr $0 HKLM "${REG_KEY_UN}" "CompareVersion"
end:
FunctionEnd
Function un.myGuiInit
${If} $UN_INST_HELP == "help"
MessageBox MB_OK|MB_ICONINFORMATION "$(Msg_Uninstaller_Param_Help)"
Quit
${EndIf}
FunctionEnd
;--------------------------------
;##################################################################################################
;# Uninstaller Page Functions #
;##################################################################################################
;# UnPage_Components_Pre
Function un.Page_Components_Pre
${If} $Skip_UnPage_Components == 1
Abort
${EndIf}
FunctionEnd
;--------------------------------
;##################################################################################################
;# General Uninstaller Functions #
;##################################################################################################
;--------------------------------
;##################################################################################################
;# Shared Functions #
;##################################################################################################
!macro GetUserInfo_Macro un
Function ${un}GetUserInfo
ClearErrors
UserInfo::GetName
${If} ${Errors}
StrCpy $IS_ADMIN 1
Return
${EndIf}
Pop $USERNAME
UserInfo::GetAccountType
Pop $R0
StrCpy $UAT $R0
${If} ${IsNT}
${AndIf} ${IsWinNT4}
${If} $R0 == "Admin"
StrCpy $IS_ADMIN 1
${Else}
StrCpy $IS_ADMIN 0
${EndIf}
Goto end
${EndIf}
${Switch} $R0
${Case} "Admin"
${Case} "Power"
StrCpy $IS_ADMIN 1
${Break}
${Default}
StrCpy $IS_ADMIN 0
${Break}
${EndSwitch}
UserInfo::GetOriginalAccountType
Pop $OUAT
end:
FunctionEnd
!macroend
!insertmacro GetUserInfo_Macro ""
!insertmacro GetUserInfo_Macro "un."
!macro Check_Prev_Installs_Macro un
Function ${un}Check_Prev_Installs
StrCpy $R0 0
StrCpy $R1 ""
StrCpy $R5 0
StrCpy $VERSION_EXISTS 0
SetShellVarContext all
${Do}
EnumRegKey $R1 SHCTX "${REG_ROOT_KEY_UN}" $R0
${If} $R1 != ""
StrLen $R2 $R1
${WordFind} "$R1" " " "+1" $R3
IntOp $R0 $R0 + 1
${If} $R3 == "OpenCPN"
${AndIf} $R2 > 7
ReadRegStr $R4 SHCTX "${REG_ROOT_KEY_UN}\$R1" "CompareVersion"
ReadRegStr $R6 SHCTX "${REG_ROOT_KEY_UN}\$R1" "InstallLocation"
${If} $R4 != ""
${VersionCompare} $VERSION_DATE $R4 $Compare_Version_Result
${Switch} $Compare_Version_Result
${Case} 0 ;equal
StrCpy $VERSION_EXISTS 1
${Break}
${Case} 1 ;version to install is newer
StrCpy $VERSION_NEWER 1
${Break}
${Case} 2 ;version to install is older
StrCpy $VERSION_OLDER 1
${Break}
${Default}
${Break}
${EndSwitch}
IntOp $R5 $R5 + 1
StrCpy $Prev_Install_RegKey "${REG_ROOT_KEY_UN}\$R1"
${EndIf}
StrCmp ${un} "" 0 uninst ;# only execute when it is the Installer function
${If} $R6 != ""
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_prev_installs.tmp"
FileOpen $0 "$TEMP\opencpn_prev_installs.tmp" a
FileSeek $0 0 END
${Else}
FileOpen $0 "$TEMP\opencpn_prev_installs.tmp" w
${EndIf}
IfErrors done
FileWriteUTF16LE $0 "$R1$\r$\n"
FileWriteUTF16LE $0 "$R6$\r$\n"
FileClose $0
done:
${EndIf}
${If} $VERSION_EXISTS == 1
${Break}
${EndIf}
uninst:
${EndIf}
${Else}
Goto done2
${EndIf}
${Loop}
done2:
${If} $R5 > 0
StrCpy $MULTIPLE_INSTALLS $R5
${Else}
StrCpy $MULTIPLE_INSTALLS 0
${EndIf}
${If} $MULTIPLE_INSTALLS == 0
StrCpy $Skip_Page_TypeInst 1
${Else}
StrCpy $Skip_Page_TypeInst 0
${EndIf}
FunctionEnd
!macroend
!insertmacro Check_Prev_Installs_Macro ""
!insertmacro Check_Prev_Installs_Macro "un."
/* VersionDate
normalizes the CPACK_PACKAGE_VERSION_PATCH to a comparable format 'yyyy.[02|19].mmdd.00'
02 = Beta version
19 = Stable release
IN: CPACK_PACKAGE_VERSION_PATCH
OUT: $VERSION_DATE
*/
Var Patch_Version
Var Version_Digits_Only
Var Version_Unified
Var Patch_Date
!macro VersionDate_Macro un
Function ${un}VersionDate
StrCpy $Patch_Version "@CPACK_PACKAGE_VERSION_PATCH@"
${If} $Patch_Version == ""
StrCpy $Patch_Version "0000"
${EndIf}
StrLen $0 "$Patch_Version"
${StrFilter} "$Patch_Version" "1" "" "" $Version_Digits_Only
StrLen $1 $Version_Digits_Only
;# Patch version contains non-digit characters
${If} $0 != $1
${StrFilter} "$Patch_Version" "-2" "" "" $PATCH_ND
${If} $1 == 3
StrCpy $Version_Unified "b${YEAR}0$Patch_Version"
${ElseIf} $1 == 2
StrCpy $Version_Unified "s${YEAR}00$Patch_Version"
${ElseIf} $1 == 1
StrCpy $Version_Unified "s${YEAR}000$Patch_Version"
${Else}
StrCpy $Version_Unified "b${YEAR}$Patch_Version"
${EndIf}
${VersionConvert} $Version_Unified "" $Patch_Date
StrCpy $VERSION_DATE "@CPACK_PACKAGE_VERSION_MAJOR@.@CPACK_PACKAGE_VERSION_MINOR@.$Patch_Date"
;# Patch version contains only digits
${Else}
${If} $0 == 3
StrCpy $Version_Unified "b${YEAR}0$Patch_Version"
${ElseIf} $0 == 2
StrCpy $Version_Unified "s${YEAR}00$Patch_Version"
${ElseIf} $0 == 1
StrCpy $Version_Unified "s${YEAR}000$Patch_Version"
${Else}
StrCpy $Version_Unified "b${YEAR}$Patch_Version"
${EndIf}
${VersionConvert} $Version_Unified "" $Patch_Date
StrCpy $VERSION_DATE "@CPACK_PACKAGE_VERSION_MAJOR@.@CPACK_PACKAGE_VERSION_MINOR@.$Patch_Date.00"
${EndIf}
FunctionEnd
!macroend
!insertmacro VersionDate_Macro ""
!insertmacro VersionDate_Macro "un."
!macro Delete_Start_Menu_Shortcuts_Macro un
Function ${un}Delete_Start_Menu_Shortcuts
Pop $9
Push $R0
Push $R1
Push $R2
Push $R3
Push $R4
${TrimNewLines} $9 $9
SetShellVarContext all
${RecFindOpen} "$STARTMENU" $CurrentDirVar $CurrentFileVar
${RecFindFirst}
ClearErrors
${WordFind} "$CurrentFileVar" ".lnk" "E*" $8
IfErrors next
IntCmp $8 1 0 next 0
ShellLink::GetShortCutWorkingDirectory "$STARTMENU$CurrentDirVar\$CurrentFileVar"
Pop $0
StrCmp "$0" "" +2
StrCmp "$0" "$9" 0 next
ShellLink::GetShortCutTarget "$STARTMENU$CurrentDirVar\$CurrentFileVar"
Pop $1
${WordFind2X} "$1" "\" ".exe" "-1" $7
ClearErrors
${WordFind} "$7" "uninstall" "E*" $6
IfErrors 0 +2
StrCpy $6 0
;#NON-DEBUG
${If} $7 == "opencpn"
${OrIf} $7 == "Uninstall"
${OrIf} $7 == "unins000"
${OrIf} $6 == 1
Delete "$STARTMENU$CurrentDirVar\$CurrentFileVar"
StrCmp $CurrentDirVar "" next
ClearErrors
RMDir "$STARTMENU$CurrentDirVar"
Sleep 250
IfErrors 0 check_parent
${If} ${FileExists} "$STARTMENU$CurrentDirVar\*.*"
ClearErrors
RMDir "$STARTMENU$CurrentDirVar"
Sleep 250
IfErrors next check_parent
${EndIf}
Goto next
check_parent:
StrCpy $R3 "$STARTMENU$CurrentDirVar"
Push $R3
Call ${un}Parent_Dirs_Check
${EndIf}
next:
${RecFindNext}
${RecFindClose}
${If} ${FileExists} "$TEMP\opencpn_startmenu.tmp"
FileOpen $R0 "$TEMP\opencpn_startmenu.tmp" r
IfErrors end
${Do}
FileReadUTF16LE $R0 $R1
FileReadUTF16LE $R0 $R2
${TrimNewLines} $R1 $R1
${TrimNewLines} $R2 $R2
StrCmp $R2 "" 0 +2
${Break}
${RecFindOpen} "$R2" $CurrentDirVar $CurrentFileVar
${RecFindFirst}
ClearErrors
${WordFind} "$CurrentFileVar" ".lnk" "E*" $8
IfErrors next1
IntCmp $8 1 0 next1 0
ShellLink::GetShortCutWorkingDirectory "$R2$CurrentDirVar\$CurrentFileVar"
Pop $0
StrCmp "$0" "$9" 0 next1
ShellLink::GetShortCutTarget "$R2$CurrentDirVar\$CurrentFileVar"
Pop $1
${WordFind2X} "$1" "\" ".exe" "-1" $7
;#NON-DEBUG
${If} $7 == "opencpn"
${OrIf} $7 == "Uninstall"
${OrIf} $7 == "unins000"
Delete "$R2$CurrentDirVar\$CurrentFileVar"
StrCmp $CurrentDirVar "" next1
ClearErrors
RMDir "$R2$CurrentDirVar"
Sleep 250
IfErrors 0 check_parent1
${If} ${FileExists} "$R2$CurrentDirVar\*.*"
ClearErrors
RMDir "$R2$CurrentDirVar"
Sleep 250
IfErrors next1 check_parent1
${EndIf}
Goto next1
check_parent1:
StrCpy $R3 "$STARTMENU$CurrentDirVar"
Push $R3
Call ${un}Parent_Dirs_Check
${EndIf}
next1:
${RecFindNext}
${RecFindClose}
${LoopUntil} $R2 == ""
FileClose $R0
${EndIf}
end:
Call ${un}Delete_Empty_Parents
Pop $R4
Pop $R3
Pop $R2
Pop $R1
Pop $R0
FunctionEnd
!macroend
!insertmacro Delete_Start_Menu_Shortcuts_Macro ""
!insertmacro Delete_Start_Menu_Shortcuts_Macro "un."
!macro Delete_Desktop_Shortcuts_Macro un
Function ${un}Delete_Desktop_Shortcuts
Pop $9
Push $R0
Push $R1
Push $R2
Push $R3
${TrimNewLines} $9 $9
SetShellVarContext all
${RecFindOpen} "$DESKTOP" $CurrentDirVar $CurrentFileVar
${RecFindFirst}
ClearErrors
${WordFind} "$CurrentFileVar" ".lnk" "E*" $8
IfErrors next
IntCmp $8 1 0 next 0
ShellLink::GetShortCutWorkingDirectory "$DESKTOP$CurrentDirVar\$CurrentFileVar"
Pop $0
StrCmp "$0" "" +2
StrCmp "$0" "$9" 0 next
ShellLink::GetShortCutTarget "$DESKTOP$CurrentDirVar\$CurrentFileVar"
Pop $1
${WordFind2X} "$1" "\" ".exe" "-1" $7
ClearErrors
${WordFind} "$7" "uninstall" "E*" $6
IfErrors 0 +2
StrCpy $6 0
;#NON-DEBUG
${If} $7 == "opencpn"
${OrIf} $7 == "Uninstall"
${OrIf} $7 == "unins000"
${OrIf} $6 == 1
Delete "$DESKTOP$CurrentDirVar\$CurrentFileVar"
StrCmp $CurrentDirVar "" next
RMDir "$DESKTOP$CurrentDirVar"
Sleep 250
IfErrors 0 check_parent
${If} ${FileExists} "$DESKTOP$CurrentDirVar\*.*"
ClearErrors
RMDir "$DESKTOP$CurrentDirVar"
Sleep 250
IfErrors next check_parent
${EndIf}
Goto next
check_parent:
StrCpy $R3 "$DESKTOP$CurrentDirVar"
Push $R3
Call ${un}Parent_Dirs_Check
${EndIf}
next:
${RecFindNext}
${RecFindClose}
${If} ${FileExists} "$TEMP\opencpn_desktop.tmp"
FileOpen $R0 "$TEMP\opencpn_desktop.tmp" r
IfErrors end
${Do}
FileReadUTF16LE $R0 $R1
FileReadUTF16LE $R0 $R2
${TrimNewLines} $R1 $R1
${TrimNewLines} $R2 $R2
StrCmp $R2 "" 0 +2
${Break}
${RecFindOpen} "$R2" $CurrentDirVar $CurrentFileVar
${RecFindFirst}
ClearErrors
${WordFind} "$CurrentFileVar" ".lnk" "E*" $8
IfErrors next1
IntCmp $8 1 0 next1 0
ShellLink::GetShortCutWorkingDirectory "$R2$CurrentDirVar\$CurrentFileVar"
Pop $0
StrCmp "$0" "$9" 0 next1
ShellLink::GetShortCutTarget "$R2$CurrentDirVar\$CurrentFileVar"
Pop $1
${WordFind2X} "$1" "\" ".exe" "-1" $7
;#NON-DEBUG
${If} $7 == "opencpn"
${OrIf} $7 == "Uninstall"
${OrIf} $7 == "unins000"
Delete "$R2$CurrentDirVar\$CurrentFileVar"
StrCmp $CurrentDirVar "" next1
RMDir "$R2$CurrentDirVar"
Sleep 250
IfErrors 0 check_parent1
${If} ${FileExists} "$R2$CurrentDirVar\*.*"
ClearErrors
RMDir "$R2$CurrentDirVar"
Sleep 250
IfErrors next1 check_parent1
${EndIf}
Goto next1
check_parent1:
StrCpy $R3 "$STARTMENU$CurrentDirVar"
Push $R3
Call ${un}Parent_Dirs_Check
${EndIf}
next1:
${RecFindNext}
${RecFindClose}
${LoopUntil} $R2 == ""
FileClose $R0
${EndIf}
end:
Call ${un}Delete_Empty_Parents
Pop $R3
Pop $R2
Pop $R1
Pop $R0
FunctionEnd
!macroend
!insertmacro Delete_Desktop_Shortcuts_Macro ""
!insertmacro Delete_Desktop_Shortcuts_Macro "un."
!macro Parent_Dirs_Check_Macro un
Function ${un}Parent_Dirs_Check
Pop $R3
Push $R4
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_check_parent.tmp"
FileOpen $R4 "$TEMP\opencpn_check_parent.tmp" a
IfErrors end
${Else}
FileOpen $R4 "$TEMP\opencpn_check_parent.tmp" w
IfErrors end
${EndIf}
${WordFind} "$R3" "\" "E-2{*" $R3
IfErrors close
FileWriteUTF16LE $R4 "$R3$\r$\n"
close:
FileClose $R4
end:
Pop $R4
FunctionEnd
!macroend
!insertmacro Parent_Dirs_Check_Macro ""
!insertmacro Parent_Dirs_Check_Macro "un."
!macro Delete_Empty_Parents_Macro un
Function ${un}Delete_Empty_Parents
Push $R3
Push $R4
Push $R5
ClearErrors
${If} ${FileExists} "$TEMP\opencpn_check_parent.tmp"
FileOpen $R4 "$TEMP\opencpn_check_parent.tmp" r
IfErrors end
${Do}
FileReadUTF16LE $R4 $R3
IfErrors close
${TrimNewLines} "$R3" $R3
${DirState} $R3 $R5
StrCmp $R5 0 0 next
ClearErrors
RMDir "$R3"
Sleep 250
IfErrors next
loop:
${WordFind} "$R3" "\" "E-2{*" $R3
IfErrors next
StrCpy $error_tmp 0
Push $R3
Call ${un}Delete_Empty_Dir
StrCmp $error_tmp 1 loop
next:
${Loop}
close:
FileClose $R4
Delete "$TEMP\opencpn_check_parent.tmp"
${EndIf}
end:
Pop $R5
Pop $R4
Pop $R3
FunctionEnd
!macroend
!insertmacro Delete_Empty_Parents_Macro ""
!insertmacro Delete_Empty_Parents_Macro "un."
!macro Delete_Empty_Dir_Macro un
Function ${un}Delete_Empty_Dir
Push $R3
Exch
Pop $R3
Push $R4
${DirState} $R3 $R4
StrCmp $R4 0 0 end
RMDir "$R3"
Sleep 100
StrCpy $error_tmp 1
end:
Pop $R4
Pop $R3
FunctionEnd
!macroend
!insertmacro Delete_Empty_Dir_Macro ""
!insertmacro Delete_Empty_Dir_Macro "un."
; Initialize variables
Var explString
Var explSeparator
Var explStrLen
Var explSepLen
Var explOffset
Var explTmp
Var explTmp2
Var explTmp3
Var explArrCount
!macro Explodes_Macro un
Function ${un}Explode
/*; Initialize variables
Var /GLOBAL explString
Var /GLOBAL explSeparator
Var /GLOBAL explStrLen
Var /GLOBAL explSepLen
Var /GLOBAL explOffset
Var /GLOBAL explTmp
Var /GLOBAL explTmp2
Var /GLOBAL explTmp3
Var /GLOBAL explArrCount
*/
; Get input from user
Pop $explString
Pop $explSeparator
; Calculates initial values
StrLen $explStrLen $explString
StrLen $explSepLen $explSeparator
StrCpy $explArrCount 1
${If} $explStrLen <= 1 ; If we got a single character
${OrIf} $explSepLen > $explStrLen ; or separator is larger than the string,
Push $explString ; then we return initial string with no change
Push 1 ; and set array's length to 1
Return
${EndIf}
; Set offset to the last symbol of the string
StrCpy $explOffset $explStrLen
IntOp $explOffset $explOffset - 1
; Clear temp string to exclude the possibility of appearance of occasional data
StrCpy $explTmp ""
StrCpy $explTmp2 ""
StrCpy $explTmp3 ""
; Loop until the offset becomes negative
${Do}
; If offset becomes negative, it is time to leave the function
${IfThen} $explOffset == -1 ${|} ${ExitDo} ${|}
; Remove everything before and after the searched part ("TempStr")
StrCpy $explTmp $explString $explSepLen $explOffset
${If} $explTmp == $explSeparator
; Calculating offset to start copy from
IntOp $explTmp2 $explOffset + $explSepLen ; Offset equals to the current offset plus length of separator
StrCpy $explTmp3 $explString "" $explTmp2
Push $explTmp3 ; Throwing array item to the stack
IntOp $explArrCount $explArrCount + 1 ; Increasing array's counter
StrCpy $explString $explString $explOffset 0 ; Cutting all characters beginning with the separator entry
StrLen $explStrLen $explString
${EndIf}
${If} $explOffset = 0 ; If the beginning of the line met and there is no separator,
; copying the rest of the string
${If} $explSeparator == "" ; Fix for the empty separator
IntOp $explArrCount $explArrCount - 1
${Else}
Push $explString
${EndIf}
${EndIf}
IntOp $explOffset $explOffset - 1
${Loop}
Push $explArrCount
FunctionEnd
!macroend
!insertmacro Explodes_Macro ""
!insertmacro Explodes_Macro "un."
!macro isEmptyDir_Macro un
Function ${un}isEmptyDir
# Stack -> # Stack: <directory>
Exch $0 # Stack: $0
Push $1 # Stack: $1, $0
FindFirst $0 $1 "$0\*.*"
StrCmp $1 "." 0 _notempty
FindNext $0 $1
StrCmp $1 ".." 0 _notempty
ClearErrors
FindNext $0 $1
IfErrors 0 _notempty
FindClose $0
Pop $1 # Stack: $0
StrCpy $0 1
Exch $0 # Stack: 1 (true)
Goto _end
_notempty:
FindClose $0
Pop $1 # Stack: $0
StrCpy $0 0
Exch $0 # Stack: 0 (false)
_end:
FunctionEnd
!macroend
!insertmacro isEmptyDir_Macro ""
!insertmacro isEmptyDir_Macro "un."
;--------------------------------------------------------------------------------------------------
;##################################################################################################
;# D E S C R I P T I O N S #
;##################################################################################################
;# Installer Descriptions #
;##################################################################################################
;# License page
LicenseLangString license ${LANG_ENGLISH} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_GERMAN} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_FRENCH} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_CZECH} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_DANISH} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_SPANISH} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_ITALIAN} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_DUTCH} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_POLISH} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_PORTUGUESE} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_PORTUGUESEBR} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_RUSSIAN} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_SWEDISH} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_FINNISH} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_NORWEGIAN} "@CPACK_RESOURCE_FILE_LICENSE@"
LicenseLangString license ${LANG_TRADCHINESE} "@CPACK_RESOURCE_FILE_LICENSE@"
!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
!insertmacro MUI_DESCRIPTION_TEXT ${SecGrpResetConfig} $(SecGrpResetConfig_Desc)
!insertmacro MUI_DESCRIPTION_TEXT ${SecDeleteConfigFile} $(SecDeleteConfigFile_Desc)
!insertmacro MUI_DESCRIPTION_TEXT ${SecDeleteChartDB} $(SecDeleteChartDB_Desc)
!insertmacro MUI_DESCRIPTION_TEXT ${SecDeleteSENC} $(SecDeleteSENC_Desc)
!insertmacro MUI_DESCRIPTION_TEXT ${SecDeleteCM93} $(SecDeleteCM93_Desc)
!insertmacro MUI_DESCRIPTION_TEXT ${SecDeleteNavobjFile} $(SecDeleteNavobjFile_Desc)
!insertmacro MUI_DESCRIPTION_TEXT ${SecDeleteLogFile} $(SecDeleteLogFile_Desc)
!insertmacro MUI_DESCRIPTION_TEXT ${SecGrpShortcuts} $(SecGrpShortcuts_Desc)
!insertmacro MUI_DESCRIPTION_TEXT ${SecShortcutStartmenu} $(SecShortcutStartmenu_Desc)
!insertmacro MUI_DESCRIPTION_TEXT ${SecShortcutDesktop} $(SecShortcutDesktop_Desc)
!insertmacro MUI_DESCRIPTION_TEXT ${SecSetConfig} $(SecSetConfig_Desc)
!insertmacro MUI_FUNCTION_DESCRIPTION_END
;--------------------------------
;##################################################################################################
;# Uninstaller Descriptions #
;##################################################################################################
!insertmacro MUI_UNFUNCTION_DESCRIPTION_BEGIN
!insertmacro MUI_DESCRIPTION_TEXT ${UnSecDeleteConfigFolder} $(UnSecDeleteConfigFolder_Desc)
!insertmacro MUI_UNFUNCTION_DESCRIPTION_END
;--------------------------------------------------------------------------------------------------
;##################################################################################################
;# Language Strings #
;##################################################################################################
;#DO NOT EDIT THE NEXT LINE!!! It is needed for the online generating of the translation files!
;#Language Strings Start as of: 2010-10-10
;#IMPORTANT: Do not end a multi-line with $\"
LangString Installer ${LANG_ENGLISH} "installer"
LangString Uninstaller ${LANG_ENGLISH} "uninstaller"
;Installer running on unsupported version of Windows
LangString Installer_Unsupported_Windows_Version ${LANG_ENGLISH} "Your Windows version is not supported (it's too old)!$\r$\nYou need at least Windows XP SP3."
;Installer running on Windows XP without SP3
LangString Installer_Unsupported_XP_SP_Version ${LANG_ENGLISH} "Your Windows XP Service Pack version is not supported (it's too old)!$\r$\nYou need at least Windows XP SP3."
;Installer already running
LangString Installer_Running ${LANG_ENGLISH} "The installer is already running."
;Uninstaller already running
LangString Uninstaller_Running ${LANG_ENGLISH} "The uninstaller is already running."
;Language Dialog
LangString LangDialog_Title ${LANG_ENGLISH} "@CPACK_PACKAGE_NAME@ @CPACK_PACKAGE_VERSION@ Installation"
LangString LangDialog_Text ${LANG_ENGLISH} "Please select a language:"
;License dialog
LangString License_Message ${LANG_ENGLISH} "OpenCPN is software libre. You are encouraged and legally \
entitled to copy, reinstall, modify, and redistribute this program \
for yourself and your friends under the terms of the GPL. $\r$\nSmooth sailing!"
;Clean up page
LangString text_please_wait_1 ${LANG_ENGLISH} "... please wait!"
LangString Scanning_HDD ${LANG_ENGLISH} "Scanning HDD ..."
LangString OCPN_Scanning_HDD ${LANG_ENGLISH} "OpenCPN: Scan HDD ..., please wait!"
LangString Search_old_installations ${LANG_ENGLISH} "Searching for old installations"
LangString Install_Location_Default ${LANG_ENGLISH} "Install Locations by default paths (may not find all)"
LangString Install_Location_HDD_Scan ${LANG_ENGLISH} "Install Location by full HDD scan (most reliable)"
LangString Label_CleanUp_Text ${LANG_ENGLISH} "Click on a list-item to select/ unselect it or Select ALL (recommended) and then Uninstall selected."
LangString BT_Uninstall_Selected_CleanUp ${LANG_ENGLISH} "Uninstall Selected"
LangString BT_SelectAll_CleanUp ${LANG_ENGLISH} "Select ALL"
LangString BT_UnselectAll_CleanUp ${LANG_ENGLISH} "Unselect ALL"
LangString LB_CleanUp ${LANG_ENGLISH} "Listbox Text"
LangString BT_FullScan_CleanUp ${LANG_ENGLISH} "Scan HDD ..."
LangString LAB_FullScan_CleanUp ${LANG_ENGLISH} "Scan the HDD for the most reliable detection.$\r$\nATTENTION: may last several minutes!"
LangString Page_CleanUp_Title ${LANG_ENGLISH} "Uninstall older Version"
LangString Page_CleanUp_Subtitle ${LANG_ENGLISH} "Incompatible version detected"
;Components Page
;Header
LangString CP_HEADER_TEXT ${LANG_ENGLISH} "Installation Settings"
;Subheader
LangString CP_HEADER_SUBTEXT ${LANG_ENGLISH} "Choose the settings for the installation"
;Top
LangString CP_TOP ${LANG_ENGLISH} "Check or uncheck the options for the installation.$\r$\nClick 'Next' to continue."
;Installation type
LangString CP_INSTTYPE ${LANG_ENGLISH} "Installation type:"
;Components list
LangString CP_COMPLIST ${LANG_ENGLISH} "Adjust the settings individually:"
;Directory page
;Set Config page
LangString Page_SetConfig_Title ${LANG_ENGLISH} "Default configuration settings"
LangString Page_SetConfig_Subtitle ${LANG_ENGLISH} "Preconfigure settings for OpenCPN"
LangString Select_Chart_Directory ${LANG_ENGLISH} "Please select a chart directory to add to OpenCPN"
LangString BT_Browse_SetConfig_Text ${LANG_ENGLISH} "Browse..."
LangString BT_DeleteAll_SetConfig_Text ${LANG_ENGLISH} "Delete ALL"
LangString BT_Delete_SetConfig_Text ${LANG_ENGLISH} "Delete"
LangString GB_ChartDir_SetConfig_Text ${LANG_ENGLISH} "Add Chart Directory"
LangString CB_Language_SetConfig_Text ${LANG_ENGLISH} "Set OpenCPN program language to $LANG_NAME"
LangString GB_Language_SetConfig_Text ${LANG_ENGLISH} "Set OpenCPN program language"
LangString Label_SetConfig_Text ${LANG_ENGLISH} "Configure preconfig settings for the OpenCPN program.$\r$\nThese settings are saved in the file opencpn.ini."
;Confirm page
LangString Page_Confirm_Title ${LANG_ENGLISH} "Ready to Install"
LangString Page_Confirm_Subtitle ${LANG_ENGLISH} "Check the installation options"
LangString Installation_Type ${LANG_ENGLISH} "Setup type"
LangString Installation_Directory ${LANG_ENGLISH} "Destination location"
LangString Create_Shortcuts ${LANG_ENGLISH} "Create shortcuts"
LangString Type_Reinstall ${LANG_ENGLISH} "Reinstallation"
LangString Type_Upgrade ${LANG_ENGLISH} "Upgrade"
LangString Type_Downgrade ${LANG_ENGLISH} "Downgrade"
LangString Type_Parallel_Installation ${LANG_ENGLISH} "Parallel installation"
LangString Type_Fresh_Installation ${LANG_ENGLISH} "New installation"
LangString Shortcuts ${LANG_ENGLISH} "Shortcuts"
LangString Create_Shortcut_Start_Menu ${LANG_ENGLISH} "in the Start Menu folder"
LangString Create_Shortcut_Desktop ${LANG_ENGLISH} "on the Desktop"
LangString not_selected ${LANG_ENGLISH} "not selected"
LangString text_none ${LANG_ENGLISH} "none"
;Installer Sections
;Reset config
LangString SecGrpResetConfig_Text ${LANG_ENGLISH} "Reset ALL OpenCPN configuration files"
;Delete Config file (opencpn.ini)
LangString SecDeleteConfigFile_Text ${LANG_ENGLISH} "Delete config file (opencpn.ini)"
;Delete Chart DB (CHRTLIST.DAT)
LangString SecDeleteChartDB_Text ${LANG_ENGLISH} "Delete Chart Database file (CHRTLIST.DAT)"
;Delete SENC directory
LangString SecDeleteSENC_Text ${LANG_ENGLISH} "Delete SENC directory"
;Delete CM93 directory
LangString SecDeleteCM93_Text ${LANG_ENGLISH} "Delete CM93 Directory"
;Delete Log file (opencpn.log)
LangString SecDeleteLogFile_Text ${LANG_ENGLISH} "Delete Log file (opencpn.log)"
;Delete navobj.xml
LangString SecDeleteNavobjFile_Text ${LANG_ENGLISH} "Delete Navobject file (navobj.xml)"
;Set config
LangString SecSetConfig_Text ${LANG_ENGLISH} "OpenCPN Configuration Settings"
;Set language
LangString SecSetConfigLang_Text ${LANG_ENGLISH} "Set language to $LANG_NAME"
;Set chart dir(s)
LangString SecSetConfigChartDir_Text ${LANG_ENGLISH} "Select Chart Directories"
;Uninstaller Sections
;Reset config
LangString UnSecDeleteConfigFolder_Text ${LANG_ENGLISH} "Delete Config folder"
;Installer Descriptions
LangString SecGrpResetConfig_Desc ${LANG_ENGLISH} "Deletes ALL files and subdirectories in the configuration folder."
LangString SecDeleteConfigFile_Desc ${LANG_ENGLISH} "Deletes the configuration file. This file helds also Routes and Waypoints."
LangString SecDeleteChartDB_Desc ${LANG_ENGLISH} "Deletes the Chart DB file."
LangString SecDeleteSENC_Desc ${LANG_ENGLISH} "Deletes the SENC subfolder which helds the Bitmaps and S57 chart cache files."
LangString SecDeleteCM93_Desc ${LANG_ENGLISH} "Deletes the cm93 subfolder which helds the cached cm93 chart outlines."
LangString SecDeleteNavobjFile_Desc ${LANG_ENGLISH} "Deletes the file 'navobj.xml' in the config folder. This file contains the Tracks."
LangString SecDeleteLogFile_Desc ${LANG_ENGLISH} "Deletes the OpenCPN log file 'opencpn.log'."
LangString SecGrpShortcuts_Desc ${LANG_ENGLISH} "Creates shortcuts in both, the Start Menu and on the Desktop."
LangString SecShortcutStartmenu_Desc ${LANG_ENGLISH} "Creates shortcuts for OpenCPN and the Uninstaller in the Start Menu - configurable on the next page."
LangString SecShortcutDesktop_Desc ${LANG_ENGLISH} "Creates a shortcut for OpenCPN on the Desktop."
LangString SecSetConfig_Desc ${LANG_ENGLISH} "Preconfigure the language setting and the chart dir(s) for OpenCPN. When selected a separate page is shown for configuration."
;Uninstaller Descriptions
LangString UnSecDeleteConfigFolder_Desc ${LANG_ENGLISH} "Deletes the config folder and all its files and subdirectories."
;Un-install Link
LangString Uninstall_Link ${LANG_ENGLISH} "Uninstall @CPACK_PACKAGE_NAME@ @CPACK_PACKAGE_VERSION@"
;Multiple Install > 1
;Title
LangString Page_TypeInst_Title ${LANG_ENGLISH} "Previous Installations"
;Subtitle
LangString Page_TypeInst_Subtitle ${LANG_ENGLISH} "$MULTIPLE_INSTALLS installations of OpenCPN found.$\r$\nChoose how you want to install OpenCPN."
;Multiple Install = 1
;Title
LangString Page_TypeInst_Title_1 ${LANG_ENGLISH} "Already Installed"
;Subtitle
LangString Page_TypeInst_Subtitle_1 ${LANG_ENGLISH} "Found installed version of OpenCPN.$\r$\nChoose how you want to install OpenCPN."
;Version exists
;Title
LangString Page_TypeInst_Title_Exists ${LANG_ENGLISH} "Version Already Installed"
;Subtitle
LangString Page_TypeInst_Subtitle_Exists ${LANG_ENGLISH} "OpenCPN @CPACK_PACKAGE_VERSION@ is already installed.$\r$\nChoose how you want to install OpenCPN."
;Label
LangString Label_TypeInst_Reinstall_Text ${LANG_ENGLISH} "OpenCPN @CPACK_PACKAGE_VERSION@ is already installed on your system. You can reinstall the version now using the previous settings. If you wish to install the program with different settings, cancel installation and un-install the existing version first. Click Next to continue."
;Radio button 'Reinstall'
LangString RB_Reinstall_TypeInst_Text ${LANG_ENGLISH} "Reinstall using previous settings"
;Version newer
;Label
LangString Label_TypeInst_Upgrade_Text ${LANG_ENGLISH} "An older version of OpenCPN is installed on your system. Select the installation type you want to perform and click Next to continue."
;Radio button 'Upgrade'
LangString RB_Upgrade_TypeInst_Text ${LANG_ENGLISH} "Upgrade OpenCPN using previous settings (recommended)"
;Version older
;Label
LangString Label_TypeInst_Downgrade_Text ${LANG_ENGLISH} "A newer version of OpenCPN is installed on your system. It is not recommended to downgrade to an older version. Select the installation type you want to perform and click Next to continue."
;Radio button 'Downgrade'
LangString RB_Downgrade_TypeInst_Text ${LANG_ENGLISH} "Downgrade OpenCPN using previous settings (recommended)"
;Multiple versions
;Label
LangString Label_TypeInst_Parallel_Text ${LANG_ENGLISH} "Setup has detected several installed versions of OpenCPN on your system. It is recommended to have only one version of OpenCPN installed at a time. Select the operation you want to perform and click Next to continue."
;Radio button 'Parallel Installation'
LangString RB_Parallel_TypeInst_Text ${LANG_ENGLISH} "Parallel Installation (advanced users)"
;Empty string - needed for Components page
LangString EmptyString ${LANG_ENGLISH} ""
;Finish page
LangString Show_Readme_Text ${LANG_ENGLISH} "Show Install Log file"
LangString Finish_Link_Text ${LANG_ENGLISH} "OpenCPN website (Internet connection required)"
LangString Finish_Link_URL ${LANG_ENGLISH} "http://opencpn.info/?ref=installer&user=$USERS_NAME&lang=$REG_LANG&version=@CPACK_PACKAGE_VERSION@"
;Message Boxes
LangString Msg_UAC_Admin_Retry ${LANG_ENGLISH} "This $Inst_Or_Uninst requires admin access!$\r$\nPlease log on as an Administrator and try again."
LangString Msg_UAC_Admin_Abort ${LANG_ENGLISH} "This $Inst_Or_Uninst requires admin privileges, aborting!"
LangString Msg_UAC_Logon_Abort ${LANG_ENGLISH} "Logon service not running, aborting!"
LangString Msg_UAC_No_Elevation ${LANG_ENGLISH} "Unable to elevate , error $0"
LangString Msg_Error_Remove_InstDir ${LANG_ENGLISH} "The installation directory$\r$\n'$INSTDIR'$\r$\ncould not be removed because it is not empty."
LangString Msg_Path_Invalid ${LANG_ENGLISH} "The entered path is invalid!$\r$\n$\r$\nPlease check your input."
LangString Msg_Path_Installation_Exists ${LANG_ENGLISH} "There already exists an installation of OpenCPN in the given path.$\r$\nIf you wish to use this path, first uninstall the version. Or select another path for this installation."
LangString Msg_Uninstall_Old_Versions ${LANG_ENGLISH} "Setup has detected at least one older version of OpenCPN which is not compatible with the new version control.$\r$\n\
It is recommended to first uninstall all of these installations (this does not affect your Config files) and clean-up the Registry.$\r$\n\
If you click Yes on the next page a listbox with all installation locations will be shown and you will have the possibility to select the installations you wish to uninstall.$\r$\n\
If you are unsure about possible other previous installations than those shown in the listbox, you can also perform a scan of the entire \
Harddisk (ATTENTION: This may take several minutes) to find all install locations (recommended).$\r$\n$\r$\n\
Do you want to uninstall the old version(s)?"
LangString Msg_Not_All_Old_Uninstalled ${LANG_ENGLISH} "You have not uninstalled all previous installations.$\r$\n$\r$\nDo you want to continue anyway?"
LangString Msg_Uninstaller_Param_Help ${LANG_ENGLISH} "Uninstaller Help$\r$\n$\r$\nUse the command line or a shortcut to run the uninstaller:$\r$\n$INSTDIR\Uninstall @CPACK_PACKAGE_VERSION@.exe [/?] | [/S], [/type=X]$\r$\n$\r$\nParameters:$\r$\n/?$\tshows this help message box$\r$\n/S$\truns the uninstaller in silent mode$\r$\n$\twill do a full uninstall if called without any type parameter$\r$\n/type=X$\tX must be a digit between 1 and 5$\r$\n$\t1 = Removes only the program files$\r$\n$\t2 = Removes only the program files + preconfig RegKey$\r$\n$\t3 = Removes the program files + config folder$\r$\n$\tpreserves the preconfig RegKey$\r$\n$\t4 = Deletes only the config folder$\r$\n$\t5 = Deletes only the preconfig RegKey$\r$\n$\r$\nEntering any other number or value will quit the uninstaller with a message box without removing or deleting anything."
LangString Msg_Unknown_Type_Param ${LANG_ENGLISH} "The entered value '$9' for the type parameter is not valid!$\r$\nUse $INSTDIR\Uninstall @CPACK_PACKAGE_VERSION@.exe /?$\r$\nto see a list of valid values."
;added on 2010-10-16
LangString SecGrpShortcuts_Text ${LANG_ENGLISH} "Create Shortcuts"
LangString SecShortcutStartmenu_Text ${LANG_ENGLISH} "Add Shortcuts to the Start Menu"
LangString SecShortcutDesktop_Text ${LANG_ENGLISH} "Create Shortcut on the Desktop"
LangString Installation_Delete_Config ${LANG_ENGLISH} "Delete (existing) Config Subdirectories/ Files"
;added on 2010-10-17
LangString Banner_Scan_Drive ${LANG_ENGLISH} "Scanning Drive $9"
LangString Banner_Installation_Found_Singular ${LANG_ENGLISH} "Found $counter_tmp installation"
LangString Banner_Installation_Found_Plural ${LANG_ENGLISH} "Found $counter_tmp installations"
;added on 2010-10-21
LangString Uninstall_Folder_Name ${LANG_ENGLISH} "Uninstall"
;added on 2011-06-13
LangString ^NameDA ${LANG_ENGLISH} "@CPACK_PACKAGE_NAME@ Version @CPACK_PACKAGE_VERSION@"
LangString Installer ${LANG_ENGLISH} "Installer"
;#EOF