Test lecteur cd ou dvd ouvert ou fermé

Soyez le premier à donner votre avis sur cette source.

Vue 15 272 fois - Téléchargée 1 226 fois

Description

Ce code teste l'état du lecteur Cd ou DVD sélectionné et indique si le lecteur est ouvert ou fermé.Ce programme a été créé en réponse à une question du forum posée par Magentha

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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
cs_Galain
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
8
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.
cs_Galain
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
8
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 :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.