
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'чтобы воспроизвести файл
Call mciExecute("play имя вашего файла")
'чтобы закрыть файл
Call mciExecute("close имя вашего файла")

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2