视频：添加一个WindowsMediaPlayer控件，语法：WindowsMediaPlayer1.URL="视频文件路径"flash：添加一个shodkwaveflash控件，语法：ShockwaveFlash1.Movie="flash文件路径"可以用commondialog打开本地文件(commondialog.showopen)：文件路径用commondialog.filename
