Private Declare Function GetShortPathNameA Lib "kernel32" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Declare Function mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

 

Private Function GetShortPath(Filename) As String

   Dim Temp As String * 255

   GetShortPath = GetShortPathNameA(Filename, Temp, 254)

   GetShortPath = Left$(Temp, GetShortPath)

End Function

 

Private Sub OpenSong(Filename, Alias)

   Call mciSendStringA("open " + GetShortPath(Filename) + " alias " + Alias, 0, 0, 0)

End Sub

 

Private Sub PlaySong(Alias)

   Call mciSendStringA("play " + Alias, 0, 0, 0)

End Sub

 

Private Sub StopSong(Alias)

   Call mciSendStringA("stop " + Alias, 0, 0, 0)

End Sub

 

Private Sub PauseSong(Alias)

   Call mciSendStringA("pause " + Alias, 0, 0, 0)

End Sub

 

Private Sub CloseSong(Alias)

   Call mciSendStringA("close " + Alias, 0, 0, 0)

End Sub