Je comprend pas pourquoi sur les machine quand je met le CD au bout de quelques secondes il me met une erreur windows, "pas de disque" et pourtant li fonctionne mais j'ai toujours cet erreur merci de m'aider a comprendre ce qui se passe
Voilà mon code
► Afficher le texte
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
#ceMerci beaucoup d'avacne
