能不能用api实现播放vcd?

用mciSendString试试Public 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 Longdim cmd as string
dim ret as string
dim rc as longcmd="open" & mFileName & "alias" &mAlias & "type MPEGVideo"rc=mciSendString(cmd,ret,0,0)定位窗口：cmd="window" & mAlias & "handle" & Trim$(Str$(mhWnd))
rc=mciSendString(cmd,ret,0,0)定位图象：cmd="put" & mAlias & "destination at" & strmLeft & strmTop & strmWidth & strmHeight(strmXXX使用前把数字用Trim$(Str$())转换成字符）用完了不要忘了关闭：rc=mciSendString("close MPEGVideo",ret,0,0)这个东西是播AVI用的，MCI设备应该能通用吧（不过不支持自动播放），供参考
如果是DIV4格式，则把MPEGVideo后面加2