求一API

[qbilbo]

有那个API可以在指定窗口的指定位置播放AVI动画。
我不想用控件。
mciExecute好象不行。

[qbilbo]

很急，请帮忙。

[fontz]

光用api不能播放AVI动画。

[junnef]

只能用控件，api好像不行，就是你用api能写，恐怕是你自己开发了一套流播放体系了，那多麻烦。

[xfyxq]

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetureString As String, ByVal uRetureLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
Dim a As String
Dim i1 As Long
Dim m1 As String * 512
a = "open avivideo"
i1 = mciSendString(a, m1, 512, aa.hWnd)
'MsgBox i1
a = "play c:\a.avi"
i1 = mciSendString(a, m1, 512, aa.hWnd)
'MsgBox i1

End Sub

以上代码不能在指定位置播放！

[孙小雄]

Dim MMControl1 As Object
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, Text1.Text)
Debug.Print winHwnd
If winHwnd <> 0 Then
MMControl1.hWndDisplay = winHwnd
music
End Sub
Private Sub Form_Load()
Set MMControl1 = CreateObject("MCI.MMControl")
End Sub
Sub music()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "MPEGVideo"
MMControl1.FileName = "C:\WINNT\clock.avi"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
MMControl1.Command = "prev"
End Sub

[孙小雄]

text1 为窗体名

以上代码 可以在任意窗体上播放

[lou_df]

mciExecute 好象都行。