#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=iSafari_install.ico
#AutoIt3Wrapper_Res_File_Add=install.jpg
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=Désinstaller iSafari
#AutoIt3Wrapper_Res_Fileversion=0.7
#AutoIt3Wrapper_Res_LegalCopyright=Creative Commons - DJSIR (by-nc-sa)
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;DJSIR (iSafari)
;iSafari TOOL : Uninstall

;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>

;Pas d'icone
#NoTrayIcon


;Noms
$path = RegRead("HKLM\Software\iSafari", "path")
Dim $pic = (@TempDir & "\install.jpg")

;Premiere installation
SplashTextOn ("", "Veillez patienter...", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
FileInstall("install.jpg", @TempDir & "\install.jpg", 1)
SplashOff()

;Fęnetre
$Form1 = GUICreate("iSafari UNINSTALLER", 291, 370, -1, -1, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)

;Bouton
GUICtrlCreatePic($pic, 0, 4, 285, 264)
$Installer = GUICtrlCreateButton("Désinstaller iSafari", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)

;Fenętre fixe
GUISetState(@SW_SHOW)

;Loop
While 1
$nMsg = GUIGetMsg()
    If $nMsg = $GUI_EVENT_CLOSE Then Exit
Switch $nMsg
Case $Installer

;Commencement de la désinstallation de iSafari
SplashTextOn ("", "Désinstallation en cours", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)

;Désinstallation automatique des fichiers
SplashTextOn ("", "Désinstallation en cours" & @CRLF & "parametres.ini", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
FileDelete($path & "\parametres.ini")
SplashTextOn ("", "Suppression des fichiers :" & @CRLF & "iSafari.exe", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
FileDelete($path & "\iSafari.exe")
SplashTextOn ("", "Désinstallation de l'aide", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
Sleep(1000)
SplashTextOn ("", "Désinstallation de l'aide :" & @CRLF & "aide.html", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
FileDelete($path & "\aide\aide.html")
SplashTextOn ("", "Désinstallation de l'aide :" & @CRLF & "iSafari.png", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
FileDelete($path & "\aide\images\iSafari.png")
SplashTextOn ("", "Suppression des dossiers :" & @CRLF & "\iSafari\aide\images", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
DirRemove ( $path & "\aide\images")
SplashTextOn ("", "Suppression des dossiers :" & @CRLF & "\iSafari\aide", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
DirRemove ( $path & "\aide")
Sleep(1000)
SplashTextOn ("", "Suppression du raccourci sur le bureau :" & @CRLF & "iSafari.lnk", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
FileDelete(@DesktopDir & "\iSafari.lnk")
SplashTextOn ("", "Suppression des raccourcis dans le menu démmarer :" & @CRLF & '"iSafari"', 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
FileDelete ( @StartMenuDir & "\Programmes\iSafari.lnk")
FileDelete ( @StartMenuDir & "\Programmes\iSafari\iSafari.lnk")
SplashTextOn ("", "Suppression des raccourcis dans le menu démmarer :", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
FileDelete ( @StartMenuDir & "\Programmes\iSafari\iSafari UNINSTALL.lnk")
SplashTextOn ("", "Suppression des raccourcis dans le menu démmarer", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
DirRemove ( @StartMenuDir & "\Programmes\iSafari")
SplashOff()  
;Fin de l'installation
Sleep(1000)
GUIDelete()
SplashTextOn ("", "Finalisation", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
Sleep(3000)
FileDelete(@TempDir & "\install.jpg")
FileDelete($path & "\iSafari_uninstall")
RegDelete("HKLM\Software\iSafari", "version")
RegDelete("HKLM\Software\iSafari", "path")
RegDelete("HKLM\Software\iSafari", "path_isafari")
SplashOff()
Exit
Exit
exit
;Quitter
Exit
EndSwitch


;Fin du loop
WEnd