/*-----------------------------------------------------------------------------------------------------
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
!ifdef NSIS_PACKEDVERSION
    Unicode true
!endif


;--------------------------------
;# 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"
	!insertmacro MUI_LANGUAGE "Turkish"
	!include /NONFATAL "Langstrings_TURKISH.nsh"
	;!insertmacro MUI_LANGUAGE "Hungarian"
	;!include /NONFATAL "Langstrings_HUNGARIAN.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
;!ifndef NSIS_PACKEDVERSION
;    LogSet on
;!endif
	${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"
			CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\OpenCPN @CPACK_PACKAGE_VERSION@ - No OpenGL.lnk" "$INSTDIR\opencpn.exe" "/no_opengl"
			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}
	AccessControl::GrantOnFile "$APPDATA\@CPACK_NSIS_PACKAGE_NAME_LC@" "(BU)" "GenericRead + GenericExecute + GenericWrite + Delete + FullAccess"

	;# Save the log file
	StrCpy $0 "$INSTDIR\install.log"
	Push $0
        IfSilent +2 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}
		${Case} ${LANG_Turkish}
            		StrCpy $LANG_NAME "Türkçe"
            		StrCpy $REG_LANG "tr_TR"
            		${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}

		; On Upgrade or Downgrade, tentatively trim any Package Version trailer from install location
                ${If} $INSTALL_TYPE == 2
                ${OrIf} $INSTALL_TYPE == 3
                    StrCpy $R1 0
                     Push $INSTDIR
                     Push "OpenCPN"
                     Push ">"
                     Call StrLoc
                     Pop $0

                    StrCpy $R1 $INSTDIR $0
                    StrCpy $R1 "$R1OpenCPN"
                    StrLen $R2 $INSTDIR
                    StrLen $R3 $R1

                    ;   If Previous install dir was a parallel, make the upgrade also parallel.
                    ${If} $R2 > $R3
                        StrCpy $INSTDIR "$R1 @CPACK_PACKAGE_VERSION@"
                    ${Else}
                        StrCpy $INSTDIR $R1
                    ${Endif}

                ${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
			AccessControl::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
			AccessControl::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\gshhs\*.*"
		RMDir /r "$Uninstall_Path_Tmp\gshhs"
	${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
!ifndef LVM_GETITEMCOUNT
  !define LVM_GETITEMCOUNT 0x1004
  !define LVM_GETITEMTEXT 0x1073
!endif

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@"
	LicenseLangString license ${LANG_TURKISH} "@CPACK_RESOURCE_FILE_LICENSE@"
        ;LicenseLangString license ${LANG_HUNGARIAN} "@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
