Как проигрывать файлы любого формата

'объявляем в разделе формы General Declarations
'следующую API-функцию:
Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long

Private Sub Command2_Click() 'чтобы воспроизвести файл
Call mciExecute("play d:\SilentCikle\05.mp3")
End Sub

Private Sub Command1_Click() 'чтобы закрыть файл
  Call mciExecute("close d:\SilentCikle\05.mp3")
End Sub

 

             

 

 

 

 

 

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ