[DllImport("Winmm.dll")] 
public static extern int mciSendString(string s1,string s2,int i1,int i2); private void button1_Click(object sender, System.EventArgs e) 

       mciSendString("set cdaudio door open","",0,0); 
} private void button2_Click(object sender, System.EventArgs e) 

mciSendString("set cdaudio door closed","",0,0); 

解决方案 »

  1.   

    打开和关闭CD-ROM 
    '先新建模块
    Module mciAPIModule
      Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
      (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
      ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    End Module'打开CD-ROM 
    Dim lRet As Long
    lRet = mciSendString("set cdAudio door open", 0&, 0, 0)'关闭CD-ROM 
    Dim lRet As Long
    lRet = mciSendString("set cdAudio door Closed", 0&, 0, 0)
    '更多请参见
    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/mmcmdstr_8eyc.asp
      

  2.   

    http://xml.sz.luohuedu.net/xml/ShowDetail.asp?id=6977HLMY-ELPN-4KIR-BI89-7YS2LNENT5HR