ab.com コミュニティ

Sub fs()

mciSendString("play cdaudio from 8")'再生


MessageBox(hMainWnd,"OKで停止",Str$(Ret),0)
mciSendString("stop cdaudio")'停止
mciSendString("close cdaudio")'クローズ
End Sub

Declare Function mciSendString2 Lib "Winmm.dll" Alias "mciSendStringA" _
(ByVal lpMciComm As String, ByVal lpMciRetString As String, _
ByVal lpRetLength As Long, ByVal CallBackhWnd As Long) As Long

CDREAD()
Dim Ret As Long
Dim RetString As String '戻り値文字列
Dim RetLength As Long:RetLength=MAX_PATH '戻り文字列長
RetString=ZeroString(RetLength)
Sub CDREAD()
mciSendString("open cdaudio")'開く

mciSendString("status cdaudio number of tracks")'トラック数取得
If Ret=-1 Then msgbox hMainWnd,"失敗"

mciSendString("set cdaudio time format tmsf")'タイムフォーマット設定

End Sub


Function mciSendString(ByVal lpMciComm As String) As Long
mciSendString=mciSendString2(lpMciComm,RetString,RetLength,0)
Ret=mciSendString
End Function