Avi Dosyası Çalmak-Oynatmak

'Projenize bir adet modül ekleyin
'Formunuza 2 adet buton ekleyin
'1.buton dosyayı çalmaya başlar
'Avi gösterimi bitse bile memoryi hala meşgul ettiği için
'2. butonla da memoryden sileriz


'Önce projeye modül ekleyin ve aşağıdakileri modüle kopyalayın:

Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

'Aşağıdakileri de form’a kopyalayın:

Private Sub Command1_Click()
Dim returnstring As String
Dim FileName As String
returnstring = Space(127)
'Dosya yerini kendiniz belirtin
FileName = "c:\MyMovie.avi"
erg = mciSendString("open " & Chr$(34) & FileName & _
Chr$(34) & " type avivideo alias video", returnstring, 127, 0)
erg = mciSendString("set video time format ms", returnstring, 127, 0)
erg = mciSendString("play video from 0", returnstring, 127, 0)
End Sub

Private Sub Command2_Click()
erg = mciSendString("close video", returnstring, 127, 0)
End Sub