Attribute VB_Name = "DmtApi"
Option Explicit
'*************************多媒體相關*************************
'*作者：謝建軍                                              *
'*創建日期：2002年11月18日  20：47                          *
'************************************************************
'*1.PlayMusic(ByVal C_WavFile As String)                    *
'*2.GetSoundDevNum()                                        *
'************************************************************

'Play Sound Files(*.wav)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
'Get Sound Dev Number
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

'**************
'播放聲音和提示
'**************
Public Function PlayWavMusic(ByVal C_WavFile As String, Optional cTB As Boolean)
  If Dir(C_WavFile, vbSystem + vbReadOnly + vbHidden + vbNormal) <> "" Then
    PlaySound C_WavFile, 0, Abs(Not cTB)
  End If
End Function

'**************
'得到聲音輸出設備號
'**************
Public Function GetSoundDevNum() As Long
  GetSoundDevNum = waveOutGetNumDevs()
End Function