EJECTION DU TIROIR CD DE LA MACHINE

Le
mg
Bonjour,
Qui connait le code pour éjecter le tiroir d'un cd ou dvd
ou le code clsid pour l'éjection dans une application ?
d'avance merci
Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LE TROLL
Le #21448651
Bonjour,

Je crois que c'est une API...

Cordialement ;o)

-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"mg" news:
Bonjour,
Qui connait le code pour éjecter le tiroir d'un cd ou dvd
ou le code clsid pour l'éjection dans une application ?
d'avance merci
Michel

LE TROLL
Le #21448751
Suite,

T'as plus qu'à copier coller, c'était même un virus pa méchant jadis, ou sur
les tour un porte gobelet de café:


Option Explicit
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
Sub Form_Load()
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub



Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"mg" news:
Bonjour,
Qui connait le code pour éjecter le tiroir d'un cd ou dvd
ou le code clsid pour l'éjection dans une application ?
d'avance merci
Michel

mg
Le #21448871
merci
et
merci


"LE TROLL" news:
Suite,

T'as plus qu'à copier coller, c'était même un virus pa méchant jadis, ou
sur les tour un porte gobelet de café:


Option Explicit
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
Sub Form_Load()
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub



Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"mg" news:
Bonjour,
Qui connait le code pour éjecter le tiroir d'un cd ou dvd
ou le code clsid pour l'éjection dans une application ?
d'avance merci
Michel




mg
Le #21449471
ca marche pas !!

c'est vrai je suis sur vb 2008 express

autant pour moi !!
LE TROLL
Le #21449891
Qu'est-ce que tu racontes ??? ça marche très bien sous vbNet :


Option Explicit On
Public Class Form1
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
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub
End Class


Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"mg" news:
ca marche pas !!
c'est vrai je suis sur vb 2008 express

autant pour moi !!
mg
Le #21453541
ah oui ca marche
merci
Cordialement :o)

"LE TROLL" news:
Qu'est-ce que tu racontes ??? ça marche très bien sous vbNet :


Option Explicit On
Public Class Form1
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
Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub
End Class


Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"mg" news:
ca marche pas !!
c'est vrai je suis sur vb 2008 express

autant pour moi !!



Publicité
Poster une réponse
Anonyme