Ouvrir et fermer un lecteur cd-rom
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
- Ouvrir et fermer un lecteur cd-rom
- Fermer balise html - Forum PHP
- Fabriquer un lecteur rfid ✓ - Forum VBA Office (Excel, Word ...)
- Lecteur m3u en ligne - Forum Flash
- Lecteur M3U pour site internet - Forum PHP
- Installer delphi ds150e sans cd - Forum Delphi / Pascal
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.