Ouvrir un lecteur cd (avec choix du lecteur par sa lettre)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 108 fois - Téléchargée 42 fois

Contenu du snippet

Merci à www.geocities.com/smigman.geo/mci/cd.html et à Pierre Heinzer (VBfrançais)

Vous pouvez ouvrir et fermer un lecteur de votre choix en utilisant les commandes suivantes : ouvreCD et ferme CD. Exemple, si je veut ouvrir le lecteur f:\ je fais : ouvreCD "f:\"...

Le code ne fonctionne pas si le lecteur est en train de lire un CD de musique...

Source / Exemple :


Option Explicit

' Publié par 69VobD3 (DivX-Paradise.net)
' Merci à www.geocities.com/smigman.geo/mci/cd.html
' et à Pierre Heinzer (VBfrançais)

Public 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

Public Sub ouvreCD(V_NomCD$)
Dim i&
    i& = mciSendString("open " & V_NomCD$ & " type cdaudio alias cdaudio", _
vbNullString, 0, 0)
    i& = mciSendString("set cdaudio door open", vbNullString, 0, 0)
    i& = mciSendString("close cdaudio", vbNullString, 0, 0)
End Sub

Public Sub fermeCD(V_NomCD$)
Dim i&
    i& = mciSendString("open " & V_NomCD$ & " type cdaudio alias cdaudio", _
vbNullString, 0, 0)
    i& = mciSendString("set cdaudio door closed", vbNullString, 0, 0)
    i& = mciSendString("close cdaudio", vbNullString, 0, 0)
End Sub

A voir également

Ajouter un commentaire

Commentaire

cs_Titant
Messages postés
103
Date d'inscription
mardi 2 juillet 2002
Statut
Membre
Dernière intervention
21 juillet 2008
-
Regarde CD Ejector V2 que j'ai programmé. Je suis sure que sa t'aidera.

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.