如 何 用 API 播 放 CD (转)

如 何 用 API 播 放 CD (转)[@more@]'Author: Gordon F. MacLeod
' How to play a CD Audio disc via api

' Declare the following API
Declare Function mciSendString& Lib "MMSYSTEM" (ByVal lpstrCommand$,ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal hCallBack%)

'Add the code below to appropriate routines

Sub cmdPlay_Click ()
  Dim lRet As Long
  Dim nCurrentTrack As Integer

  'Open the device
  lRet = mciSendString("open cdaudio alias cd wait", 0&, 0, 0)

  'Set the time format to Tracks (default is milliseconds)
  lRet = mciSendString("set cd time format tmsf", 0&, 0, 0)

  'Then to play from the beginning
  lRet = mciSendString("play cd", 0&, 0, 0)

  'Or to play from a specific track, say track 4
  nCurrentTrack = 4
  lRet = mciSendString("play cd from" & Str(nCurrentTrack), 0&, 0, 0)

End Sub
 

' Remember to Close the device when ending playback

Sub cmdStop_Click ()
  Dim lRet As Long

  'Stop the playback
  lRet = mciSendString("stop cd wait", 0&, 0, 0)

  DoEvents  'Let windows process the event

  'Close the device
  lRet = mciSendString("close cd", 0&, 0, 0)

End Sub

　

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-988950/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-988950/