模板
教程
環境
性能
功能
管理
怎樣打開或關閉CD-ROM
發表于：2007-07-14來源：作者：點擊數：
標簽：
如果你想通過 VB 打開或者關閉CD-ROM，你可以向 Windows Multimedia DLL發出一條相關的命令請求，但是你必須先聲明DLL： 在模塊文件中加入以下代碼： Declare Function mciSendString Lib winmm.dll Alias _mciSendStringA (ByVal lpstrCommand As String, B
如果你想通過VB打開或者關閉CD-ROM，你可以向Windows Multimedia DLL發出一條相關的命令請求，但是你必須先聲明DLL：在模塊文件中加入以下代碼：
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
以下是打開CD-ROM的過程代碼：
retvalue = mcisendstring("set CDAudio door open", _
returnstring, 127, 0)
關閉CD-ROM用以下代碼：
retvalue = mcisendstring("set CDAudio door closed", _returnstring, 127, 0)
原文轉自：http://www.anti-gravitydesign.com
