Ouvrir et fermer un lecteur cd-rom
Soyez le premier à donner votre avis sur cette source.
Snippet vu 23 217 fois - Téléchargée 144 fois
Contenu du snippet
Comment ouvrir et fermer le lecteur CD-ROM ?
Mettez ce code dans un Module :
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
- Vb cd
- Cd codes - Meilleures réponses
- Cd basic - Meilleures réponses
- Visual Basic / VB.NET : Ouvrir et fermer le lecteur cd-rom ou dvd - CodeS SourceS - Guide
- Visual Basic / VB.NET : Ouvrir et fermer le lecteur cd - CodeS SourceS - Guide
- Batch : comment ouvrir et fermer un lecteur cd en .bat ✓ - Forum - Visual Basic
- Delphi / Pascal : Ouvrir/fermer un lecteur cd simplement - CodeS SourceS - Guide
- Ouvrir les lecteurs cd-rom et graveur - Codes sources - Javascript (Trucs Amusants)
Commentaires
Private Sub Command1_Click()
Call OuvrirCD
End Sub
Private Sub Command1_Click()
Call FermerCD
End Sub
pour que les débutant puisse l'appliquer
réponse a Lunnatick : en vbs c'est
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
(désolé je suis un peu tard)
- Messages postés
- 74
- Date d'inscription
- mardi 3 février 2004
- Statut
- Membre
- Dernière intervention
- 5 février 2010
2Comme bcp de tes source, elle est simple, claire et très utile. Que demander de mieu?
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.