OVH Cloud OVH Cloud

ouverture lecteur CD

1 réponse
Avatar
François ROLAND
Pour commander l'ouverture du tiroir de CD (ou la fermeture) j'utilise :

Dim ResultString
mciSendString "set CDAudio door open ", ResultString, 127, 0

En revanche, c'est toujours le 1er lecteur qui est commander.

Comment faire pour choisir d'ouvrir le 2eme ou 3eme (le cas echeant)

Cordialement
--

François ROLAND
francois.roland@free.fr

1 réponse

Avatar
François Picalausa
Bonjour/soir,

Tu peux essayer ceci:
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

Const Lecteur = "h" 'letre du lecteur

Dim AliasLecteur As String

AliasLecteur = "Drive" & Lecteur

mciSendString "Open " & Lecteur & ": Alias " & AliasLecteur & " Type
CDAudio", _
vbNullString, 0, 0
mciSendString "Set " & AliasLecteur & " Door Open", 0, 0, 0
mciSendString "Close " & AliasLecteur, ByVal 0, 0, 0

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"François ROLAND" a écrit dans le message de
news:
Pour commander l'ouverture du tiroir de CD (ou la fermeture)
j'utilise :

Dim ResultString
mciSendString "set CDAudio door open ", ResultString, 127, 0

En revanche, c'est toujours le 1er lecteur qui est commander.

Comment faire pour choisir d'ouvrir le 2eme ou 3eme (le cas echeant)

Cordialement