Abrir y cerrar CDROM

[erick_arcini]

Que tal, dentro de mis curiosidades encontre esta app, la cual nunca pude concluir por que me mandaba un error de PInvoke... no se que mas, pero te mando el codigo haber si te funciona, la funcion abrir(estado) es true para abrir y false para cerrar, de todas formas el codigo si funciona, jajaja seria el colmo, pero busca informacion sobre mciSendStringA eso te puede dar una ayuda

Private Declare Function cd 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 abrir(ByVal estado As Boolean)
Try
If estado Then
cd("Set CDAudio Door Open wait", 0&, 0&, 0&)
Else
cd("Set CDAudio Door Closed wait", 0&, 0&, 0&)
End If
Catch ex As Exception
Label1.Text = ex.Message
End Try
End Sub