Como Abrir La La Bandeja Del Cd

[raac]

Hace tiempo me encontré con el siguiente código:

Código:

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

Public Sub SetCDState(pbState As Boolean)
    If pbState Then
        Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
    Else
        Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
    End If
End Sub

Creo que este código lo encontré en <a href='ir.asp?http://abstractvb.com/' target='_blank'>http://abstractvb.com/...</a> Cualquier duda aquí seguimos.

Saludos,

<div align="center"><a href="http://membres.lycos.fr/raac/"><img src="http://membres.lycos.fr/raac/Img/barra_raac.gif" width="400" height="20" border="0"></a></div>