(一)VB
Private Sub Form_Load()
MMControl1.DeviceType = "AVIVideo" '指定Mci设备类型
'设定播放的文件,你可以自行设定
MMControl1.FileName = App.Path & "/phei.avi"
MMControl1.Command = "Open" '执行打开命令
MMControl1.hWndDisplay = Picture1.hWnd '在图片框上播放
End Sub
(二)AutoPlay Menu Builder
(三)将SWF转为EXE