Ouvrir cd et fermer cd

Commenter

Contenu du snippet

c'est simple se code n'est pas de moi mais je voulaisle mettre pour l'avoir dans ma liste pour un acces plus rapide :)) et aussi que vous l'utuliser

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 
 
dans un bouton ou autre fonction écrivé

' Pour Ouvrir le lecteur : 
Call OuvrirCD

' Pour Fermer le lecteur : 
Call FermerCD

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_diablotin)