CD-ROM : charger et éjecter ? [ RESOLU ]

Bonjour ,

Existe-il un code pour éjecter et/ou charger le lecteur CD-ROM du PC ?

Merci

Cordialement ,
Le réparateur de PC

Bonsoir,

Qu'entends-tu par "charger" le lecteur cd? Le fermer?

Pour éjecter son contenu, on va utiliser une API :

Dans le premier onglet de ton éditeur de fonctions :
- Déclarer une API :
Bibliothèque : winmm
Fonction : mciSendStringA
Type de la valeur retourné : Long
Paramètre1 : lpstrCommand Type:String
Paramètre2 : lpstrReturnString Type:String
Paramètre3 : uReturnLength Type:Long
Paramètre4 : hwndCallback Type:Long

Et pour l'utiliser dans une fonction :
- Exécuter une API :
Nom de la fonction : mciSendStringA
Valeur du paramètre 1 : "Set CDAudio Door Open" (ne pas oublier les guillemets)
Paramètre 2, 3 et 4 : 0

Voila

@+

re ,

je parlelais d'éjecter et de rentrer le lecteur CD

Cordialement ,
Le réparateur de PC

Ok, tu as déjà la méthode pour ouvrir le lecteur. Pour le fermer, il suffit de changer la valeur du paramètre 1, dans Exécuter une API, et de mettre :
"Set CDAudio Door Closed"
à la place de
"Set CDAudio Door Open"

@+

re ,

MERCI !!

Très bien tout ça mais il faut déjà avoir un lecteur CD !!

Existe-il un code pour détecter si il y a ou non un lecteur cd-rom ?

Merci !!

Cordialement ,
Le réparateur de PC

re ,

SUPPER !! ça marche trop bien !!

mais dans " exécuter une API " j'ai mis dans " Variable reçevant le résultat " ma variable : var_tiroir ; et j'ai un nombre
ce nombre correspond a quoi ??????

MERCI

Cordialement ,
Le réparateur de PC

Salut,

Si la valeur retournée est 0, c'est que tout c'est bien passé, sinon, c'est qu'il y a eu une erreur (mais laquelle, ça on ne sait pas lol).

Pour détecter s'il y a un lecteur cd, on peut regarder chaque lecteur et voir si c'est un lecteur cd ou pas :
Créer une variables Drives de type tableau, elle sera égale à la liste des lecteurs. Une variable ActualDrive, qui sera égale au lecteur analysé dans le tableau Drives. Une variable Num que l'on utilisera pour une boucle limitée. Et enfin une variable DriveTy qui sera égale au type du lecteur (cd, disque dur..etc).

maintenant la démarche :
- Exécuter des commandes VB.Net :
Drives = System.IO.DriveInfo.GetDrives
- Créer une boucle limitée :
On par de Num = 0 jusqu'à Drives soustrait de 1
--- Modifier une variable : ActualDrive = Drives(Num) (cette valeur n'est pas du texte)
--- Modifier une variable : DriveTy = ActualDrive.DriveType (cette valeur n'est pas du texte)
--- Créer une condition : si DriveTy = System.IO.DriveType.CDRom (cette valeur n'est pas du texte), alors :
--- --- Afficher un message : Le lecteur [ CODE]ActualDrive.Name[/ CODE] est un lecteur CD-ROM
Note : normalement il n'y a pas d'espace entre [ et CODE], idem pour [/ et CODE]

Voila, je pense qu'avec cet exemple tu peux faire à peut près tout ce que tu veux

@+

re ,

Pour moi , la valeur retournée n'est jamais 0 !! alors que le tiroir s'ouvre et se referme très bien !!

Sinon , celà fonctionne !!

Maintenant , je souhaite afficher un message quand AUCUN lecteur cd-rom n'est détecté ?? j'ai essayé un else dans la condition
mais il maffiche ce message plusieures fois ( je sais pourquoi ) donc , y a t-il un moyen de savoir quand la boucle est terminée ???


Merci !!

Cordialement ,
Le réparateur de PC

Oui Le principe est en fait très simple :
- j'ai une variable LecteurDetecte = False
- j'ai ma boucle limité
--- dans la condition : si DriveTy = System.IO.DriveType.CDRom, alors :
--- --- LecteurDetecte = True
et après la boucle :
- Si LecteurDetecte = True, alors
--- Un lecteur a été détecté
- Sinon
--- Aucun lecteur cd détecté

re ,

eu et une fois de plus .... je cherche compliqué !!

Maintenent : est-il possible de savoir si le lecteur est ouvert ou fermé ?

-> indépendament du code précédent !! ( un code VB.net par exemple )

Cordialement ,
Le réparateur de PC

Et bien, il faut en tout cas réutiliser en partie ce que je t'ai donné, avec les GetDrives et autre :
Comme tu as put le constater, ActualDrive.Name retourne la lettre du lecteur enregistré dans la variable ActualDrive.
en mettant ActualDrive.IsReady, tu obtient une valeur (True ou False) indiquant si un CD est dans le lecteur ou pas, c'est le mieux que l'on puisse faire. Je n'ai pas trouvé comment détecter si le lecteur est ouvert ou fermé.

@+

re ,

OK , ce n'est pas si grave !! et puis , c'est déjà très BIEN !!

MERCI !!

Sujet résolu !

Cordialement ,
Le réparateur de PC