Создатель » 20.12.2004 (Пн) 18:06
попробуй так:
'Функция для проигрывания файлов в формате *.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 micSendString ("play passport", 0, 0, 0)
'Останавливаем файл
Call micSendString ("stop passport", 0, 0, 0)