如何用API播放CD

• 关 键 词：
• windows

' 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转 载:http://www.qqread.com/vb/s236078.html进入讨论组讨论。

【深 度 阅 读】 相 关 文 章

如何禁止修改系统时间

买电脑勿随便出手 从商家配置看JS如何宰人

将系统装到U盘中 如何自制XP@USB启动盘

再谈如何释放C盘空间 27招具体优化技巧