|
Nebo s "ActiveMovie control type library" (quartz.dll - také MS)
Option Explicit
Dim mp As FilgraphManager
' do referencí přidat knihovnu: "ActiveMovie control type library"
Private Sub Form_Load()
On Error GoTo JeChyba
Dim soubor As String
soubor = App.Path & "\HappyBirthday.mp3"
Set mp = New FilgraphManager
mp.RenderFile soubor
mp.Run
Exit Sub
JeChyba:
MsgBox Err.Description
End Sub
|