４１．CDトレイをオープンする



＜　使用用途　＞
CDトレイをオープンする

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ ダウンロード・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数のmciSendString を使用します。
mciSendString＝＞MCIデバイスににコマンド文字列を送る
　　＜引数＞
　　　 　lpstrCommand：コマンド文字列(表を参照）
　　　 　lpSectorsPerCluster：戻り値の文字列
　　　　 uReturnLength：文字列の大きさ
　　　　 hwndCallbac：無視
　　＠戻り値＠　　
　　　　　　正常終了0

<　ＳＡＭＰＬＥ　＞
'ここではCDトレイをオープンする処理です
'標準モジュール
Public　Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpSectorsPerCluster As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'ここからはフォームの処理
Private Sub Command1_Click()
　　
　　　Dim nCommand As String 'コマンド文字列
　　　Dim Musi As Long
　　　Dim moji As String * 255
　　　Dim nLeng As Long
　　　Dim Ret As Long

　　　’CDトレイをオープンするコマンド文字列
　　　nCommand = "set cdaudio door open"

　　　Ret = mciSendString(nCommand, moji, nLeng, Musi)

End Sub