怎樣打開或關閉CD-ROM

領測軟件測試網 如果你想通過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.kjueaiud.com/