>>73
'トレイを開ける
Private Sub OpenTray()
Const BUFFER_CAPACITY As Integer = 256
Dim nCommand As String 'コマンド文字列
Dim hwndCallback As Integer = 0
Dim ReturnString As System.Text.StringBuilder = _
New System.Text.StringBuilder(BUFFER_CAPACITY)
Dim ReturnSize As Integer = BUFFER_CAPACITY
Dim Ret As Integer
'CDトレイをオープンするコマンド文字列
nCommand = "set cdaudio door open"
Ret = mciSendString(nCommand, ReturnString, ReturnSize, hwndCallback)
End Sub
'トレイを閉じる
Private Sub CloseTray()
Const BUFFER_CAPACITY As Integer = 256
Dim nCommand As String 'コマンド文字列
Dim hwndCallback As Integer = 0
Dim ReturnString As System.Text.StringBuilder = _
New System.Text.StringBuilder(BUFFER_CAPACITY)
Dim ReturnSize As Integer = BUFFER_CAPACITY
Dim Ret As Integer
'CDトレイをオープンするコマンド文字列
nCommand = "set cdaudio door Closed"
Ret = mciSendString(nCommand, ReturnString, ReturnSize, hwndCallback)
End Sub
これで開閉はできるが、複数台ドライブがある時には対処できない。
mciSendCommand()を使えば任意のドライブの開閉ができるはずだけど、各ドライブのデバイス識別子を列挙する方法は、俺にも分からない。