AutoIt Français

Code : Tout sélectionner

#cs 
     L.I.D.I.A.                                 

   Fichier de Démarrage                                                               
   Principe:       - Affichage d'un SPLASH Accueil 
                      - Dezippage de L.I.D.I.A                                  
                      - Changement de la lettre pour les cle USB                     
                      - Lancement de l'application L.I.D.I.A                             
    Auteur: Moi 04/02/2009                                  
    Version : 1.0
#ce
;Déclaration des Modules
#include <GuiConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <7Zip.au3>
#include <WinAnimate.au3>
#include <Array.au3>
#include <Splash anime.au3>

;Déclaration des Variables
$REPTRV = (@ScriptDir)
$REPLIDIA = IniRead($REPTRV & "\LIDIA.ini", "LIDIA", "REPLIDIA", "NotFound")
$FICZIP = IniRead($REPTRV & "\LIDIA.ini", "LIDIA", "FICZIP", "NotFound")
$CDROM = StringLeft(@ScriptDir, 3)
$LettreDrive = StringLeft(@ScriptDir, 1)
$SystemDrive = StringLeft($REPLIDIA, 3)
$TypeDrive = ("")
$sLocalName = IniRead($REPTRV & "\LIDIA.ini", "LIDIA", "LettreReseau", "NotFound")
$TypeOs = @OSVersion
; * SPLASH SCREEN L.I.D.I.A *
#Region ### START Koda GUI section ### Form=D:\Projet-LIDIA\V3.0\Splash.kxf
$Form1 = GUICreate("Splash", 515, 348, -1, -1, BitOR($WS_POPUP, $WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic($REPTRV & "\Images\Acceuil_2.bmp", 0, 0, 513, 345, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
_WinAnimate($Form1, $AW_EXPLODE)
#EndRegion ### END Koda GUI section ###
; ** Detection du support sur lequel est lancé L.I.D.I.A **
; *** Récupération de la lettre du lecteur ou se trouve ID.ver ***
; **** Décompression de L.I.D.I.A sur C:\LIDIA ****
$ArcFile = ($REPTRV & $FICZIP)
If @error Then Exit
$Output = ($REPLIDIA)
If @error Then Exit
$sHide = 1
If @error Then Exit
$retResult = _7ZIPExtractEx(0, $ArcFile, $Output, $sHide)
; **** Décompression Terminée ****
Sleep(2000)
_WinAnimate($Form1, $AW_IMPLODE)
$var = DriveGetDrive("ALL")
For $i = 1 To $var[0]
    If FileExists($var[$i] & "\ID.ver") Then
        ;récuperation du type de lecteur
        $TypeDrive = DriveGetType($var[$i] & "\")
    EndIf

    If $TypeDrive == ("Removable") Then
        If $LettreDrive <> ("R") Then
            $LettreVol = StringUpper($LettreDrive)
            #Region ### START Koda GUI section ### Form=
            $Form2 = GUICreate("Modification Lettre de Lecteur", 625, 197, -1, -1)
            $Label2 = GUICtrlCreateLabel("Veuillez Patienter, L.I.D.I.A. Configure Votre Clé USB en R:", 208, 56, 402, 85)
            GUICtrlSetFont(-1, 14, 800, 0, "Verdana")
            $Pic2 = GUICtrlCreatePic($REPTRV & "\Images\CLE.jpg", 0, 0, 193, 193, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
            _WinAnimate($Form2, $AW_EXPLODE)
            #EndRegion ### END Koda GUI section ###
            RunWait($REPLIDIA & "outils\nircmd.exe execmd " & $REPLIDIA & "scripts\change-lettre.bat" & " " & $LettreVol & " " & $TypeOs)
            Sleep(5000)
            _WinAnimate($Form2, $AW_IMPLODE)
            Exit
        EndIf
    EndIf
Next
If $TypeDrive = ("") Then
    MsgBox(16, "Erreur", "La Version de L.I.D.I.A que vous utiliser est non Officiel")
    _WinAnimate($Form1, $AW_IMPLODE)
    Exit
EndIf

;Initialisation de L.I.D.I.A
If FileExists($sLocalName) Then
    DriveMapDel($sLocalName)
ElseIf FileExists($SystemDrive & "install") Then
    DirRemove($SystemDrive & "install", 1)
EndIf


;Test du type de support
If FileExists($CDROM & "cle.tmp") Then
    DriveSetLabel($CDROM, "LIDIA-USB")
ElseIf FileExists($CDROM & "hdd.tmp") Then
    DriveSetLabel($CDROM, "LIDIA-HDD")
EndIf


;Recup de temps
$HeuDeb = @HOUR
$MinDeb = @MIN
$SecDeb = @SEC
;Lancement de L.I.D.I.A.
ShellExecute ("go.bat","", $REPLIDIA & "scripts\")
exit
;~ Run("cmd /c" & $REPLIDIA & "outils\nircmd.exe execmd " & "cmd /c" & $REPLIDIA & "scripts\go.bat")
;Ejection du CDROM si L.I.D.I.A. a était lancée a partir d'un CDROM
#cs
If $TypeDrive == ("CDROM") Then
    $CD = StringLeft(@ScriptDir, 2)
    _splash(@ScriptDir & 'images\eject.GIF', 5000)
    $support = ("le CD")
    CDTray($CD, "open")
EndIf
Exit
#ce