by Charles Davis (2 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (11 Votes)
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
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