Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.117.196.184] |
|
Сообщ.
#1
,
|
|
|
Код будет работать, если на компьютере установлены, соответствующие кодеки
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 |