На страницах форума уже есть ответы.
Только для vb6, незнаю подойдет?
Вот:
1. Проигрываем файл в формате *.mp3:
'Функция для проигрывания файлов в формате *.mp3
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'чтобы воспроизвести файл
Call mciExecute("play имя вашего файла"
'чтобы закрыть файл
Call mciExecute("close имя вашего файла"
2. Проигрываем файл в формате *.mid:
'Функция для проигрывания файлов в формате *.mid
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uRetrunLength As Long, ByVal hwndCallback As Long) As Long
'Открываем файл
Call mciSendString ("open ИМЯ ВАШЕГО ФАЙЛА type sequencer alias passport", 0, 0,0)
'Проигрываем файл
Call Call mciSendString ("play passport", 0, 0, 0).
'Останавливаем файл
Call mciSendString ("stop passport", 0, 0, 0)
3. Проигрываем файл в формате *.wav:
Функция для проигрывания файлов в формате *.wav
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Проигрываем файл
Call sndPlaySound("ИМЯ ВАШЕГО ФАЙЛА", 0)
Еще вариант:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'чтобы воспроизвести файл
Call mciExecute("play C:\MYZ\1.mp3"
'чтобы закрыть файл
Call mciExecute("close C:\MYZ\1.mp3 "
Имхо, этим способом ещё наши дедушки пользовались. 8)
Тока хреново конроль осуществлять. Лучше юзать специальные библиотеки (fmod, bass) либо DirectSound. Библиотеки удобны тем, что их можно с собой таскать, а Директ даёт большие возможности по издевательству над звуком. Да и есть он почти у каждого (динозаврики не в счёт), поэтому 1:0 в его пользу.
Wav кстати можно и напрямую воспроизвести - подачей потока на аудиокарту - не очень сложно осуществить. Ищи статью на rsdn.
P.S. Sorry my english. It is looks like russian. 8)