;*****************************************************************
; Author : Hugues DOILLON
; Date : 03/2007
; Modifié :
;*****************************************************************

!include "FileFunc.nsh"

!include "LogicLib.nsh"

!include "InformationApplication.nsh"

!insertmacro GetFileExt

; Spécifie si oui ou non l'installation sera silencieuse
SilentInstall silent

;ddp; OutFile "Installation_librairie_temp\SetupInstallationLibrairie.exe"

Function .onInit

	; Fichier écrit contenant la liste des librairies à installer
	FileOpen $R0 "${GBE_BINDIR}\InstallationLibrairie.nsh" w
	
;-------------------------------------------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------------------------------------------
	
	FileWrite $R0 "!macro SectionLibrairies"
 	; Retour à la ligne
 	FileWriteByte $R0 "13"
	FileWriteByte $R0 "10"
	
	; Parcourt des librairies du répertoire SysDir_DLL
	FindFirst $R1 $R2 "${LIBRAIRIE_SYSDIR}\*.*"
	
 	loop2:
		StrCmp $R2 "" done2
		StrCmp $R2 '.' nothing2
		StrCmp $R2 '..' nothing2
		StrCmp $R2 '.svn' nothing2
		
		; Commande d'enregistrement des librairies enrgistré dans le fichier
		FileWrite $R0 "!insertmacro InstallLib DLL 0 REBOOT_PROTECTED $\"${LIBRAIRIE_SYSDIR}\$R2$\" $\"$SYSDIR\$R2$\" $\"$SYSDIR$\""
		
		; Retour à la ligne
		FileWriteByte $R0 "13"
		FileWriteByte $R0 "10"
		
	nothing2:
		FindNext $R1 $R2
		
		Goto loop2

	done2:
	
;-------------------------------------------------------------------------------------------------------------------------------

	; Parcourt des librairies du répertoire SysDir_DLL
	FindFirst $R1 $R2 "${LIBRAIRIE_REGISTRED_SYSDIR}\*.*"

 	loop3:
		StrCmp $R2 "" done3
		StrCmp $R2 '.' nothing3
		StrCmp $R2 '..' nothing3
		StrCmp $R2 '.svn' nothing3
		
		; Recupere l extension
		${GetFileExt} "$R2" $R3
		
		StrCmp $R3 "tlb" 0 else31
			FileWrite $R0 "!insertmacro InstallLib TLB 0 REBOOT_PROTECTED $\"${LIBRAIRIE_REGISTRED_SYSDIR}\$R2$\" $\"$SYSDIR\$R2$\" $\"$SYSDIR$\""
			Goto done31
		else31:
			FileWrite $R0 "!insertmacro InstallLib REGDLL 0 REBOOT_PROTECTED $\"${LIBRAIRIE_REGISTRED_SYSDIR}\$R2$\" $\"$SYSDIR\$R2$\" $\"$SYSDIR$\""
		done31:
		
		; Retour à la ligne
		FileWriteByte $R0 "13"
		FileWriteByte $R0 "10"
		
	nothing3:
		FindNext $R1 $R2
		
		Goto loop3

	done3:

;-------------------------------------------------------------------------------------------------------------------------------

	; Parcourt des librairies du répertoire Librairie_ProgramFiles
	FindFirst $R1 $R2 "${LIBRAIRIE_PROGRAMFILES}\*.*"

 	loop4:
		StrCmp $R2 "" done4
		StrCmp $R2 '.' nothing4
		StrCmp $R2 '..' nothing4
		StrCmp $R2 '.svn' nothing4
		
		; Commande d'enregistrement des librairies enrgistré dans le fichier
		FileWrite $R0 "!insertmacro InstallLib DLL 0 NOREBOOT_PROTECTED $\"${LIBRAIRIE_PROGRAMFILES}\$R2$\" $\"$$INSTDIR\$R2$\" $\"$$INSTDIR$\""
		
		; Retour à la ligne
		FileWriteByte $R0 "13"
		FileWriteByte $R0 "10"
		
	nothing4:
		FindNext $R1 $R2
		
		Goto loop4

	done4:

;-------------------------------------------------------------------------------------------------------------------------------

	; Parcourt des librairies du répertoire Librairie_ProgramFiles_Register
	FindFirst $R1 $R2 "${LIBRAIRIE_REGISTRED_PROGRAMFILES}\*.*"

 	loop5:
		StrCmp $R2 "" done5
		StrCmp $R2 '.' nothing5
		StrCmp $R2 '..' nothing5
		StrCmp $R2 '.svn' nothing5
		
		; Recupere l extension
		${GetFileExt} "$R2" $R3
		
		StrCmp $R3 "tlb" 0 else51
			FileWrite $R0 "!insertmacro InstallLib TLB 0 NOREBOOT_PROTECTED $\"${LIBRAIRIE_REGISTRED_PROGRAMFILES}\$R2$\" $\"$$INSTDIR\$R2$\" $\"$$INSTDIR$\""
			Goto done51
		else51:
			FileWrite $R0 "!insertmacro InstallLib REGDLL 0 NOREBOOT_PROTECTED $\"${LIBRAIRIE_REGISTRED_PROGRAMFILES}\$R2$\" $\"$$INSTDIR\$R2$\" $\"$$INSTDIR$\""
		done51:
		
		; Retour à la ligne
		FileWriteByte $R0 "13"
		FileWriteByte $R0 "10"
		
	nothing5:
		FindNext $R1 $R2
		
		Goto loop5

	done5:

	FileWrite $R0 "!macroend"

   	FileWriteByte $R0 "13"
	FileWriteByte $R0 "10"


;-------------------------------------------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------------------------------------------

	; Fonction qui désinstalle l'application

	FileWrite $R0 "!macro DesinstalleApplication"
	FileWriteByte $R0 "13"
	FileWriteByte $R0 "10"

	; Parcourt des librairies du répertoire Librairie_ProgramFiles
	; NOTSHARED - La librairie n'est pas partagée
	; NOREBOOT_NOTPROTECTED Averti l'utilisateur quand la librairie est utilisée. L'utilisateur devra fermer les applications l'utilisant.
    ; Met à jour la librairie sans vérifier la protection de fichier Windows.
	
	FindFirst $R1 $R2 "${LIBRAIRIE_PROGRAMFILES}\*.*"

 	loopU1:
		StrCmp $R2 "" doneU1
		StrCmp $R2 '.' nothingU1
		StrCmp $R2 '..' nothingU1
		StrCmp $R2 '.svn' nothingU1
		
		; Commande d'enregistrement des librairies enrgistré dans le fichier
		FileWrite $R0 "!insertmacro UnInstallLib DLL NOTSHARED NOREBOOT_PROTECTED $\"$$INSTDIR\$R2$\""
		
		; Retour à la ligne
		FileWriteByte $R0 "13"
		FileWriteByte $R0 "10"
		
	nothingU1:
		FindNext $R1 $R2
		
		Goto loopU1

	doneU1:


	; Parcourt des librairies du répertoire Librairie_ProgramFiles_Register
	FindFirst $R1 $R2 "${LIBRAIRIE_REGISTRED_PROGRAMFILES}\*.*"

 	loopU2:
		StrCmp $R2 "" doneU2
		StrCmp $R2 '.' nothingU2
		StrCmp $R2 '..' nothingU2
		StrCmp $R2 '.svn' nothingU2
		
		; Recupere l extension
		${GetFileExt} "$R2" $R3
		
		StrCmp $R3 "tlb" 0 elseU21
			FileWrite $R0 "!insertmacro UnInstallLib TLB NOTSHARED NOREBOOT_PROTECTED $\"$$INSTDIR\$R2$\""
			Goto doneU21
		elseU21:
			FileWrite $R0 "!insertmacro UnInstallLib REGDLL NOTSHARED NOREBOOT_PROTECTED $\"$$INSTDIR\$R2$\""
		doneU21:
		
		; Retour à la ligne
		FileWriteByte $R0 "13"
		FileWriteByte $R0 "10"
		
	nothingU2:
		FindNext $R1 $R2
		
		Goto loopU2

	doneU2:


	; Parcourt des fichiers du répertoire Application_ProgramFiles
	FindFirst $R1 $R2 "${APPLICATION_PROGRAMFILES}\*.*"

 	loopU3:
		StrCmp $R2 "" doneU3
		StrCmp $R2 '.' nothingU3
		StrCmp $R2 '..' nothingU3
		StrCmp $R2 '.svn' nothingU3
		
		${If} ${FileExists} "${APPLICATION_PROGRAMFILES}\$R2\*.*"
			; On supprime le dossier
			FileWrite $R0 "RMDir /r $\"$$INSTDIR\$R2$\""
		${Else}
			; On supprime le fichier
			FileWrite $R0 "Delete $\"$$INSTDIR\$R2$\""
		${EndIf}
		
		; Retour à la ligne
		FileWriteByte $R0 "13"
		FileWriteByte $R0 "10"
		
	nothingU3:
		FindNext $R1 $R2
		
		Goto loopU3

	doneU3:

    FileWrite $R0 "RMDir $\"$$INSTDIR$\""
   	FileWriteByte $R0 "13"
	FileWriteByte $R0 "10"

	FileWrite $R0 "!macroend"
	FileWriteByte $R0 "13"
	FileWriteByte $R0 "10"

;-------------------------------------------------------------------------------------------------------------------------------

	FindCLose $R0

FunctionEnd
 
Section
SectionEnd