#294
WindowsAPIを使ってCD-ROMドライブのトレイを開閉します。
まず、標準モジュールに次のようなAPIの宣言を記述します。
Public Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long)
ByVal lpstrReturnString As Any, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long)
あとはコーディングは非常に簡単です。開く場合と閉じる場合で、それぞれ次のようなコードを実行します。
'開く
mciSendStringA "Set CDAudio Door Open", 0&, 0, 0
'閉じる
mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0
mciSendStringA "Set CDAudio Door Open", 0&, 0, 0
'閉じる
mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0
