Subversion Repositories Games.Chess Giants

!include "MUI2.nsh"

!include "FileFunc.nsh"

!define PRODUCT_NAME "Chess Giants"

!define PUBLISHER "Pierre-Marie Baty"

!define PUBLISHER_WEBSITE "http://www.pmbaty.com/chess/"

!define INSTALLER_SRC "C:\Users\Pierre-Marie Baty\Documents\Mes projets\Chess Giants"

Name "${PRODUCT_NAME}"

OutFile "C:\Users\Pierre-Marie Baty\Documents\Mes projets\www.pmbaty.com\chess\Chess Giants Installer.exe"

BrandingText "${PRODUCT_NAME} by ${PUBLISHER} - ${PUBLISHER_WEBSITE}"

SetCompressor lzma

RequestExecutionLevel user

AllowRootDirInstall true

InstallDir "$LOCALAPPDATA\${PRODUCT_NAME}"

!define MUI_ICON "${INSTALLER_SRC}\resource\installer.ico"

!define MUI_HEADERIMAGE

!define MUI_HEADERIMAGE_BITMAP "${INSTALLER_SRC}\resource\installer.bmp"

!define MUI_ABORTWARNING

!insertmacro MUI_PAGE_LICENSE "${INSTALLER_SRC}\License.txt"

!insertmacro MUI_PAGE_DIRECTORY

Var STR_HAYSTACK

Var STR_NEEDLE

Var STR_CONTAINS_VAR_1

Var STR_CONTAINS_VAR_2

Var STR_CONTAINS_VAR_3

Var STR_CONTAINS_VAR_4

Var STR_RETURN_VAR

Function StrContains

		Exch $STR_NEEDLE

		Exch 1

		Exch $STR_HAYSTACK

		StrCpy $STR_RETURN_VAR ""

		StrCpy $STR_CONTAINS_VAR_1 -1

		StrLen $STR_CONTAINS_VAR_2 $STR_NEEDLE

		StrLen $STR_CONTAINS_VAR_4 $STR_HAYSTACK

	loop:

		IntOp $STR_CONTAINS_VAR_1 $STR_CONTAINS_VAR_1 + 1

		StrCpy $STR_CONTAINS_VAR_3 $STR_HAYSTACK $STR_CONTAINS_VAR_2 $STR_CONTAINS_VAR_1

		StrCmp $STR_CONTAINS_VAR_3 $STR_NEEDLE found

		StrCmp $STR_CONTAINS_VAR_1 $STR_CONTAINS_VAR_4 done

		Goto loop

	found:

		StrCpy $STR_RETURN_VAR $STR_NEEDLE

		Goto done

	done:

		Pop $STR_NEEDLE

		Exch $STR_RETURN_VAR  

FunctionEnd

!macro _StrContainsConstructor OUT NEEDLE HAYSTACK

		Push `${HAYSTACK}`

		Push `${NEEDLE}`

		Call StrContains

		Pop `${OUT}`

!macroend

!define StrContains '!insertmacro "_StrContainsConstructor"'

Function .onVerifyInstDir

		Push $R0

		Push $R1

		${StrContains} $0 "Program Files" "$INSTDIR"

		StrCmp $0 "Program Files" pathbad

		StrCpy $R0 "$INSTDIR"

	loop:

		StrLen $R1 "$R0"

		StrCmp $R1 0 pathbad

		IfFileExists "$R0" 0 parentLoop

		${GetFileAttributes} "$R0" "DIRECTORY" $R1

		StrCmp $R1 0 parentLoop

		${GetFileAttributes} "$R0" "READONLY" $R1

		StrCmp $R1 1 pathbad

		ClearErrors

		IfFileExists "$R0\.nsis_test_dir" pathgood 0

		CreateDirectory "$R0\.nsis_test_dir"

		IfErrors pathbad 0

		RMDir "$R0\.nsis_test_dir"

		Goto pathgood

	parentLoop:

		${GetParent} "$R0" "$R0"

		Goto loop

	pathbad:

		Abort

	pathgood:

		Pop $R1

		Pop $R0

FunctionEnd

;!insertmacro MUI_PAGE_COMPONENTS

!insertmacro MUI_PAGE_INSTFILES

AutoCloseWindow true

!insertmacro MUI_UNPAGE_CONFIRM

!insertmacro MUI_UNPAGE_INSTFILES

!insertmacro MUI_LANGUAGE "English"

!insertmacro MUI_LANGUAGE "French"

Section ""

	SetOutPath "$INSTDIR"

	File /r "${INSTALLER_SRC}\data"

	File /r "${INSTALLER_SRC}\engines"

	File /r "${INSTALLER_SRC}\helpfiles"

	File /r "${INSTALLER_SRC}\themes"

	File "${INSTALLER_SRC}\*.pgn"

	File "${INSTALLER_SRC}\${PRODUCT_NAME}.exe"

	File "${INSTALLER_SRC}\${PRODUCT_NAME}.exe.manifest"

	File "${INSTALLER_SRC}\Chess Giants (English).html"

	File "${INSTALLER_SRC}\Chess Giants (French).html"

	File "${INSTALLER_SRC}\config.ini"

	File "${INSTALLER_SRC}\materials.cfg"

	File "${INSTALLER_SRC}\d3dx9_42.dll"

	File "${INSTALLER_SRC}\msvcr90.dll"

	File "${INSTALLER_SRC}\openal32.dll"

	File "${INSTALLER_SRC}\wrap_oal.dll"

	CreateShortCut "$DESKTOP\${PRODUCT_NAME}.lnk" "$INSTDIR\${PRODUCT_NAME}.exe" "" "" "" "" "" "Start a chess game"

	CreateDirectory "$SMPROGRAMS\${PRODUCT_NAME}"

	CreateShortCut "$SMPROGRAMS\${PRODUCT_NAME}\${PRODUCT_NAME}.lnk" "$INSTDIR\${PRODUCT_NAME}.exe" "" "" "" "" "" "Start a chess game"

	CreateShortCut "$SMPROGRAMS\${PRODUCT_NAME}\Documentation (English).lnk" "$INSTDIR\Chess Giants (English).html" "" "" "" "" "" "Read the software documentation in English"

	CreateShortCut "$SMPROGRAMS\${PRODUCT_NAME}\Documentation (Français).lnk" "$INSTDIR\Chess Giants (French).html" "" "" "" "" "" "Read the software documentation in French"

	WriteRegStr HKCU "Software\Classes\.pgn" "" "ChessGiantsPGN"

	WriteRegStr HKCU "Software\Classes\ChessGiantsPGN" "" "Portable Game Notation"

;	WriteRegStr HKCU "Software\Classes\ChessGiantsPGN\DefaultIcon" "" "$INSTDIR\${PRODUCT_NAME}.exe,1"

	WriteRegStr HKCU "Software\Classes\ChessGiantsPGN\shell\open\command" "" '"$INSTDIR\${PRODUCT_NAME}.exe" "%1"'

	WriteRegStr HKCU "Software\Classes\.fen" "" "ChessGiantsFEN"

	WriteRegStr HKCU "Software\Classes\ChessGiantsFEN" "" "Forsyth-Edwards Notation"

;	WriteRegStr HKCU "Software\Classes\ChessGiantsFEN\DefaultIcon" "" "$INSTDIR\${PRODUCT_NAME}.exe,1"

	WriteRegStr HKCU "Software\Classes\ChessGiantsFEN\shell\open\command" "" '"$INSTDIR\${PRODUCT_NAME}.exe" "%1"'

	WriteUninstaller $INSTDIR\uninstall.exe

	WriteRegStr HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "DisplayName" "${PRODUCT_NAME}"

	WriteRegStr HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "DisplayIcon" "$INSTDIR\${PRODUCT_NAME}.exe,0"

	WriteRegStr HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "UninstallString" "$\"$INSTDIR\uninstall.exe$\""

	WriteRegStr HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "QuietUninstallString" "$\"$INSTDIR\uninstall.exe$\" /S"

	WriteRegStr HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "Publisher" "${PUBLISHER}"

	WriteRegDWORD HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "NoModify" 1

	WriteRegDWORD HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "NoRepair" 1

	${GetSize} "$INSTDIR" "/S=0K" $0 $1 $2

	IntFmt $0 "0x%08X" $0

	WriteRegDWORD HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "EstimatedSize" "$0"

	Exec '"$WINDIR\explorer.exe" "$INSTDIR\${PRODUCT_NAME}.exe"'

SectionEnd

Section "Uninstall"

	DeleteRegKey HKCU "Software\Classes\.pgn"

	DeleteRegKey HKCU "Software\Classes\ChessGiantsPGN"

	DeleteRegKey HKCU "Software\Classes\.fen"

	DeleteRegKey HKCU "Software\Classes\ChessGiantsFEN"

	Delete "$DESKTOP\${PRODUCT_NAME}.lnk"

	RMDir /r "$SMPROGRAMS\${PRODUCT_NAME}"

	RMDir /r "$INSTDIR"

	DeleteRegKey HKCU "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"

SectionEnd