• Home
 · 
• Windows API Call/Explanation
 · 
• A Couple of Winmm API Calls

A Couple of Winmm API Calls

There are 2 API Calls to the Winnmm API. One Detects if a Sound Card is installed. The other Plays an .AVI. You need to have Windows Media Player installed.

Assumes
This code is very simple and pretty self explanatory.

Side Effects
As far as I know there are none.

API Declarations
'For SoundCard Function
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
'To Play Avi
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Rate A Couple of Winmm API Calls

• 1
• 2
• 3
• 4
• 5

(12(12 Vote))

Public Function SoundCard() As Boolean
Dim lng As Long
 lng = waveOutGetNumDevs()
 
 If lng > 0 Then
  SoundCard = True
  Exit Function
 Else
   SoundCard = False
   Exit Function
 End If
End Function
Public Sub PlayAvi()
Dim strAviPath As String
Dim strCmdStr As String
Dim lngReturnVal As Long
 strAviPath = "C:\winnt\clock.avi"
 strCmdStr = "play " & strAviPath & " fullscreen "
 lngReturnVal = mciSendString(strCmdStr, 0&, 0, 0&)
End Sub