#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=isafari.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=iSafari Component
#AutoIt3Wrapper_Res_Description=Installer de iSafari
#AutoIt3Wrapper_Res_Fileversion=1.0.2.2
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=Creative Commons - DJSIR (by-nc-sa)
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Res_Field=Compilé le | %date%
#AutoIt3Wrapper_Res_Field=Programmeur | DJSIR, Timmalos, Tlem et Minoui
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion
;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 & "\isafari_temp\install_autoit_1.jpg")
Dim $pic2 = (@TempDir & "\isafari_temp\install_autoit_2.jpg")
Dim $pic3 = (@TempDir & "\isafari_temp\install_autoit_3.jpg")
Dim $pic4 = (@TempDir & "\isafari_temp\install_2.jpg")
Dim $splash = (@TempDir & "\isafari_temp\splash.jpg")

$Form1 = GUICreate("iSafari INSTALLER", 641, 516, -1, -1, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)
GUISetBkColor(0xFFFFFF)
;Boutons
GUICtrlCreatePic($pic, 0, 0, 641, 310)

$Button1 = GUICtrlCreateButton("Commencer l'installation", 435, 453, 180, 24, 0)

;Fenêtre fixe
GUISetState(@SW_SHOW)

;Loop
While 1
$nMsg = GUIGetMsg()
    If $nMsg = $GUI_EVENT_CLOSE Then Exit
Switch $nMsg
	Case $Button1
		GUICtrlDelete($Button1)
		$Input1 = GUICtrlCreateInput ("", 35, 257, 180, 24)
        $Button0 = GUICtrlCreateButton("                        ", 435, 453, 180, 24, 0)
        $Folder = FileSelectFolder("Choisir le dossier d'installation de iSafari :", @ProgramFilesDir)
        GUICtrlDelete ($pic)
		GUICtrlDelete ($Input1)
        GUICtrlDelete ($button0)
		$pic4 = GUICtrlCreatePic($pic4, 0, 0, 641, 76)
		GUICtrlDelete ($pic4)			
		$pic2 = GUICtrlCreatePic($pic2, 0, 0, 641, 310)
        $Button2 = GUICtrlCreateButton("Installer iSafari", 435, 453, 180, 24, 0)
        $Input1 = GUICtrlCreateInput ($Folder, 35, 257, 180, 24)
		$pic2 = GUICtrlCreatePic($pic2, 0, 0, 641, 310)
            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 ($Button2)
        $Button3 = GUICtrlCreateButton("", 435, 453, 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 ($pic2)
		GUICtrlDelete ($button2)
		$pic5 = GUICtrlCreatePic($pic4, 0, 0, 641, 76)
		GUICtrlDelete ($pic5)
		$pic3 = GUICtrlCreatePic($pic3, 0, 0, 641, 379)
        $Button3 = GUICtrlCreateButton("Quitter", 435, 453, 180, 24, 0)
        GUICtrlSetOnEvent($Button3,"sortie")
        EndSwitch
	WEnd
    EndSwitch
WEnd 

Func sortie()
Exit
EndFunc