gratifiant > microsoft.* > microsoft.dotnet

mg (27/03/2010, 19h29)
Bonjour,
sous vb 2008 EXPRESS
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 (28/03/2010, 14h21)
probleme, resolu

excuser moi !
Bill2 (28/03/2010, 18h41)
mg wrote:
> probleme, resolu
> excuser moi !


Bonjour,

Ca serait sympa de donner la réponse, pour ceux que ça intéresse ...
mg (03/04/2010, 10h37)
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
Bill2 (03/04/2010, 10h49)
mg wrote:
[..]
> RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
> End Sub
> End Class


Ca pourrait m'être utile.
Merci :)
Discussions similaires