Воспроизвести видео-файл

'Вообще, для того, что бы воспроизвести аудио или видео файл, можно
'воспользоваться элементом управления Microsoft Multimedia Control, но при
'этом вместе с вашим приложением придется таскать файл MCI32.OCX, а это
'лишних 193 кб, приведенный же выше код гораздо меньше.
 
'Вариант 1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub Form_Click()
    Dim res
    res = mciExecute("Play C:\Путь_до_файла")
End Sub
 
'Вариант 2
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Private Sub Form_Load()
    Dim x As Long
    x = PlaySound("C:\Путь_до_файла", 0, &H1 Or &H10)
End Sub
 
'Вариант 3
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Private Sub Form_Load()
    Dim x As Long
    x = sndPlaySound("C:\Путь_до_файла", &H1 Or &H10)
End Sub

Private Sub CmdFind_Click()
' открывается окно выбора файла
CDlg1.ShowOpen
' проиграть файл, который в этом окне выбрали
' вместо CDlg1.FileName можно указать путь к видео файлу
' при этом убрав компонент CDlg1 с формы
' пользователь не будет выбирать видео файл
' проигрываться будет видео по указанному пути
' если, например, видео находиться в одной папке с exeшником, то нужно написать
' MMControl1.FileName = App.Path & "/video.avi" 
MMControl1.FileName = CDlg1.FileName
MMControl1.Command = "open"
MMControl1.hWndDisplay = P1.hWnd
' передаем фокус
Form1.P1.SetFocus
End Sub
 
Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
' тип аудио и видео, у нас только AVI файлы
MMControl1.DeviceType = "WaveAudio"
MMControl1.DeviceType = "AVIVideo"
End Sub
 
Private Sub Form_Unload (Cancel As Integer)
MMControl1.Command = "Close"
End Sub

MMControl1.DeviceType = "AVIVideo"

MMControl1.DeviceType = "MP4Video"