Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Form_Load()
mciExecute "play C:\1.mp3"
End Sub
Smith68 писал(а):З.Ы. так воспроизводятся большинство полезных форматов. Чтоб остановить воспроизведение, нужно остановить выполение программы.
mciExecute "pause C:\1\1.mp3" 'Пауза
mciExecute "stop C:\1\1.mp3" 'остановка
Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 127