TEST LECTEUR CD OU DVD OUVERT OU FERMÉ

cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 - 12 mars 2006 à 00:36
drikus Messages postés 3 Date d'inscription dimanche 6 mars 2005 Statut Membre Dernière intervention 15 juillet 2013 - 15 juil. 2013 à 12:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/36502-test-lecteur-cd-ou-dvd-ouvert-ou-ferme

drikus Messages postés 3 Date d'inscription dimanche 6 mars 2005 Statut Membre Dernière intervention 15 juillet 2013
15 juil. 2013 à 12:39
bonjour,

cette fonction marche t'elle encore ? sous Windows 7, j'ai beau avoir corriger le projet (qui ne s'ouvrait plus correctement) : malgré cela, l'exécutable se lance mais la réponse du système indique toujours que le cd/dvd-rom est fermé (sur portable comme sur un pc) ... ???

merci de me dire si ça a réellement déjà correctement fonctionner une fois svp ?

Drickus@vbfrance.com
Profil bloqué
12 mars 2006 à 18:31
Merci Magentha pour le 10/10. c'est sympa
Dans le vbfrance_source_32480 à la fonction CdromTrayOpen le code "If cd.LastASC &H3A And cd.LastASCQ &H1 then" ne contient plus les fameux "cd"
Ceux-ci faisait référence à un module de classe nommé CDinfo.cls dans la source d'origine anglaise "Dll Accès bas niveau Cdrom" dont je me suis inspiré.
Pour la source 32480 (Accès Direct Disque) j'ai utilisé les fonctions des différentes classes dans un module pour gérer les CDROM et DVDROM mais je ne me suis pas servi des modules de classe eux-mêmes .
bonne prog et A+

Galain
Magentha Messages postés 28 Date d'inscription jeudi 1 septembre 2005 Statut Membre Dernière intervention 14 avril 2022 1
12 mars 2006 à 17:29
Hé voila!
Merci Galain pour votre réponse.
j'ai bien essayé d'y parvenir par moi-même en décorticant la fonction "CdromTrayOpen" dans le vbfrance_source_32480; mais quelle pataugeoire, je cherchais vainement la signification de "cd" dans la ligne de code" If cd.LastASC &H3A And cd.LastASCQ &H1 Then" de la dite fonction.
Merci encore pour le travail de synthèse car cette fois tout fonctionne à merveille.
Pour tous ceux qui cherchaient comme moi comment parvenir à detecter l'état ouvert ou fermé d'un CD, ça vaut bien un 10 de remerciement.
Profil bloqué
12 mars 2006 à 13:03
Salut Willi
De rien : ce code est tiré d'une source trouvé sur un site anglais que j'ai mis à disposition sur VBFrance ( voir ma source Dll cdrom )
A+
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 22
12 mars 2006 à 00:36
Tu as été plus rapide que moi, j'allais posté un code similaire suite à cette même question :)
Rejoignez-nous