Private Declare Function sndPlaySound Lib "winmm.dll" Alias"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) AsLong
'播放聲音文件
Private checki As Integer
Const SND_SYNC = &H0 '播 放 完 畢 后 將 控 制 轉(zhuǎn) 移 回 你 的 應(yīng)用 程 序 中
Const SND_ASYNC = &H1 '播 放WAV 文 件， 然 后 將 控 制 立 即 轉(zhuǎn) 移 回 你 的 應(yīng)用 程 序 中， 而 不 管 對WAV 文 件 的 播 放 是 否 結(jié) 束
Const SND_NODEFAULT = &H2 '不 要 播 放 缺 省 的WAV 文 件， 以 免 發(fā) 生 某 些 意外 的 錯 誤
Const SND_MEMORY = &H4 '播 放 以 前 已 經(jīng) 加 載 到 內(nèi) 存 中 的WAV 文 件
Const SND_ALIAS = &H10000
Const SND_FILENAME = &H20000
Const SND_RESOURCE = &H40004
Const SND_ALIAS_ID = &H110000
Const SND_ALIAS_START = 0
Const SND_LOOP = &H8 '循環(huán)播放文件
Const SND_NOSTOP = &H10 '在 開 始 播 放 其 它 的WAV 文 件 之 前， 需 要 完 成 對本W(wǎng)AV 文 件 的 播 放
Const SND_VALID = &H1F
Const SND_NOWAIT = &H2000
Const SND_VALIDFLAGS = &H17201F
Const SND_RESERVED = &HFF000000
Const SND_TYPE_MASK = &H170007
調(diào)用方法：
dim ReturnValue as long
ReturnValue= sndPlaySound("X:\XXXX.wav", SND_ASYNC)
