#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=iSafari_install.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Installation de iSafari
#AutoIt3Wrapper_Res_Fileversion=0.7.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Creative Commons - DJSIR (by-nc-sa)
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Res_File_Add=parametress.ini
#AutoIt3Wrapper_Res_File_Add=iSafari.dll
#AutoIt3Wrapper_Res_File_Add=iSafari_uninstall.ex_
#AutoIt3Wrapper_Res_File_Add=iSafari.png
#AutoIt3Wrapper_Res_File_Add=splash.jpg
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;DJSIR (iSafari)
;iSafari TOOL : Install

;Includes
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <GUIconstants.au3>
#include <IE.au3>
#Include <date.au3>
#include <StaticConstants.au3>
#include <WinAPI.au3>
#include <Misc.au3>
#include <File.au3>
#include <Sound.au3>
#NoTrayIcon

;Noms
Dim $pic = (@TempDir & "\install.jpg")
Dim $splash = (@TempDir & "\splash.jpg")

;Premiere installation
FileInstall("splash.jpg", @TempDir & "\splash.jpg", 1)
SplashImageOn("",$splash, 400, 300, -1, -1, 1)
FileInstall("install.jpg", @TempDir & "\install.jpg", 1)
Sleep(3000)
SplashOff()
$Form1 = GUICreate("iSafari INSTALLER", 291, 370, -1, -1, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)
GUISetBkColor(0xFFFFFF)
;Boutons
GUICtrlCreatePic($pic, 0, 0, 291, 240)
$Button1 = GUICtrlCreateButton("Commencer l'installation", 59, 310, 180, 24, 0)
$Text0 = GUICtrlCreateLabel ("Bienvenue dans l'installation de", 59, 250, 180, 24, 0)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Input0 = GUICtrlCreateLabel ("iSafari. Cet assistant va vous ", 59, 265, 180, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Input9 = GUICtrlCreateLabel ("guider dans l'installation. ", 59, 280, 180, 24)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

;Fenêtre fixe
GUISetState(@SW_SHOW)

;Loop
While 1
$nMsg = GUIGetMsg()
    If $nMsg = $GUI_EVENT_CLOSE Then Exit
Switch $nMsg
    Case $Button1
        GUICtrlDelete($Button1)
        GUICtrlDelete($Input0)
        GUICtrlDelete($Text0)
                GUICtrlDelete($Input9)
        $Text1 = GUICtrlCreateLabel ("Ou installer iSafari : ", 59, 260, 180, 24, 0)
        $Input1 = GUICtrlCreateInput ("", 59, 280, 180, 24)
        $button0 = GUICtrlCreateButton ("", 59, 310, 180, 24, 0)
        $Folder = FileSelectFolder("Choisir le dossier d'installation de iSafari :", @ProgramFilesDir)
        GUICtrlDelete ($Text1)
        GUICtrlDelete ($Input1)
                GUICtrlDelete ($button0)
        $text2 = GUICtrlCreateLabel ("Installer iSafari dans :", 59, 260, 180, 24, 0)
        $Button2 = GUICtrlCreateButton("Installer iSafari", 59, 310, 180, 24, 0)
        $Input2 = GUICtrlCreateInput ($Folder, 59, 280, 180, 24)
            While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
            Case $Button2
            ;Commencement de l'installation de iSafari
            SplashTextOn ("", "Installation en cours", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
        GUICtrlDelete ($text2)
        $text3 = GUICtrlCreateLabel ("Installation en cours :", 59, 260, 180, 24, 0)
        GUICtrlDelete ($Input2)
        GUICtrlDelete ($Button2)
        $input3 = GUICtrlCreateLabel ("Veuillez patienter...", 59, 280, 180, 24, 0)
        $button4 = GUICtrlCreateButton ("", 59, 310, 180, 24, 0)
            ;Cration du dossier
            DirCreate ( $Folder & "\iSafari")
            DirCreate ( $Folder & "\iSafari\aide")
            DirCreate ( $Folder & "\iSafari\aide\images")
            Sleep(1000)
            ;Installation automatique des fichiers
            SplashTextOn ("", "Installation en cours" & @CRLF & "parametres.ini", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileInstall("parametres.ini", $Folder & "\iSafari\parametres.ini", 1)
            SplashTextOn ("", "Copie des fichiers :" & @CRLF & "iSafari.exe", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileInstall("iSafari.exe", $Folder & "\iSafari\iSafari.exe", 1)
            SplashTextOn ("", "Installation de l'aide", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            Sleep(1000)
            SplashTextOn ("", "Installation de l'aide :" & @CRLF & "aide.html", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileInstall("aide\aide.html", $Folder & "\iSafari\aide\aide.html", 1)
            SplashTextOn ("", "Installation de l'aide :" & @CRLF & "iSafari.png", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileInstall("aide\images\iSafari.png", $Folder & "\iSafari\aide\images\iSafari.png", 1)
            SplashTextOn ("", "Installation de iSafari UNINSTALLER :" & @CRLF & "iSafari_uninstall.exe", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileInstall("iSafari_uninstall.exe", $Folder & "\iSafari\iSafari_uninstall.exe", 1)
            SplashTextOn ("", "Création du raccourci sur le bureau :" & @CRLF & "iSafari.lnk", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileCreateShortcut ($Folder & "\iSafari\iSafari.exe", @DesktopDir & "\iSafari.lnk", $Folder)
            SplashTextOn ("", "Créations des raccourcis dans le menu démmarer", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            DirCreate ( @ProgramsDir & "\iSafari")
            SplashTextOn ("", "Créations des raccourcis dans le menu démmarer :" & @CRLF & '"iSafari"', 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileCreateShortcut ($Folder & "\iSafari\iSafari.exe", @ProgramsDir & "\iSafari.lnk", $Folder)
            FileCreateShortcut ($Folder & "\iSafari\iSafari.exe", @ProgramsDir & "\iSafari\iSafari.lnk", $Folder)
            FileCreateShortcut ($Folder & "\iSafari\iSafari_uninstall.exe", @ProgramsDir & "\iSafari\iSafari UNINSTALL.lnk", $Folder)
            SplashTextOn ("", "Ajout des clés registre : " & @CRLF & "[HKLM\SOFTWARE\iSafari]", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            RegWrite("HKLM\Software\iSafari", "version","REG_SZ","0.7")
            RegWrite("HKLM\Software\iSafari", "path","REG_SZ",$Folder & "\iSafari")
            RegWrite("HKLM\Software\iSafari", "path_isafari","REG_SZ",$Folder)
            SplashOff()  
            ;Fin de l'installation
            Sleep(1000)

            SplashTextOn ("", "Finalisation", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
            FileDelete( @TempDir & "\install.jpg")
            Sleep(3000)
            SplashOff()
            GUICtrlDelete ($text3)
        $text4 = GUICtrlCreateLabel ("Installation terminée !", 59, 260, 180, 24, 0)
        GUICtrlDelete ($Input3)
        GUICtrlDelete ($Button4)
        $input4 = GUICtrlCreateLabel ("iSafari a été correctement installé", 59, 280, 180, 24, 0)
        $button5 = GUICtrlCreateButton ("Fermeture automatique", 59, 310, 180, 24, 0)  
        Sleep(3000)
        Exit      
        EndSwitch
        WEnd
    Exit
    EndSwitch
    WEnd