[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);
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);
'先新建模块
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