چگونگی پخش فیلم بدون برنامه windows media player

[alishahbazi]

با سلام
لطفا مرا در مورد اینکه در ویژوال بیسک چگونه میتوان بدون کامپوننت ویندوز مدیا پلیر فایل تصویری را اجرا کرد راهنمايي كنيد.
فوري فوري فوريييييييييييييييييييييي ييييييييييييييييييييييييي يي

[black_storm]

با دستورات mci می توانی
-------------------------------
باید api نیاز داره !

[alishahbazi]

با تشكر از شما كه به سوال من پاسخ داديد ولي خواهش ميكنم كه api مورد نياز را به من معرفي كنيد.

[Romina2006]

Private 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

Private Sub Form_Click()
Dim Ret As Long, A$, x As Integer, y As Integer
x = 0
y = 0
A$ = "C:\Windows\Movie.avi" 'Change the path and filename
Ret = mciSendString("stop movie", 0&, 128, 0)
Ret = mciSendString("close movie", 0&, 128, 0)
Ret = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", 0&, 128, 0)
Ret = mciSendString("put movie window client at " & x & " " & y & " 0 0", 0&, 128, 0)
Ret = mciSendString("play movie", 0&, 128, 0)
End Sub

Private Sub Form_Terminate()
Dim Ret As Long
Ret = mciSendString("close all", 0&, 128, 0)
End Sub