Ouvrir et fermer un lecteur cd-rom

Soyez le premier à donner votre avis sur cette source.

Snippet vu 23 097 fois - Téléchargée 144 fois


Contenu du snippet

Comment ouvrir et fermer le lecteur CD-ROM ?

Mettez ce code dans un Module :

Source / Exemple :


Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'Pour Fermer le lecteur
Sub FermerCD()
ret = mciSendString("Set cdaudio door closed wait", vbNullChar, 0, 0)
End Sub

'Pour ouvrir le lecteur
Sub OuvrirCD()
ret = mciSendString("Set cdaudio door open wait", vbNullChar, 0, 0)
End Sub

' Pour Ouvrir le lecteur : 
Call OuvrirCD

' Pour Fermer le lecteur : 
Call FermerCD

A voir également

Ajouter un commentaire

Commentaires

super l'astuce!
mais n'oubliez pas de déclarer la variable ret en Integer
Et comment on fait qd on a plusieurs lecteurs et qu'on veut en ejecter specifiquement ?
CA marche pas ton truc !!!
Regiga
Messages postés
17
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
13 octobre 2003
-
C vrai. G un graveur et un CD. Comment qu'on fait ?
Sinon, C trop bien
leneuf22
Messages postés
156
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
4 mars 2003
-
Mat, "mais n'oubliez pas de déclarer la variable ret en Integer"
Pourquoi ? Le résultat est un long.

VB devra caster dans ton dos si ta variable est integer.

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.