AVI视频
用TMediaPlayer播放AVI视频，选择AVI文件，并调用Play方法（或者点击Play按钮），如果使用默认的MediaPlayer设置，将会出现一个单独的窗口播放AVI视频。如下图：
也可以设置TMediaPlayer的Display属性为任何窗口组件（Windowed component），视频播放将会在这个组件的客户区（client area）中出现。
例如，在窗体上有一个pnl1的面板，想在这个pnl1面板上显示AVI视频，这时，应该按下面的代码设置Display属性：
|
1
|
mp1.Display := pnl1; |
当AVI播放时，它将显示在面板中。如果视频大于面板矩形，视频将会被裁剪到面板大小。如下图：
可以通过设置DisplayRect属性来放大或缩小视频，代码如下：
|
1
|
mp1.DisplayRect := pnl1.ClientRect; |
播放后效果如下：
AVI视频格式有很多种，并不是所有的AVI都可以播放的。为了放映特定的视频编码格式需要用户安装相应的解码器。为了安全起见，用标准的Microsoft AVI视频格式。用户几乎都安装了该编码器。
Note
TAnimate组件（在Win32标签下）用于播放你在操作Windows时看到的小的视频，例如在Windows资源管理中拷贝文件或移动文件时看到的动画，如下图：
再例如查找文件时，查找对话框的动画。用TAnimate组件播放的AVI必须是未压缩的或仅进行过RLE压缩，其他的压缩形式都是不允许的。AVI中也不可以包含音频。
以上代码均在Delphi 7下测试通过，示例代码下载：AVIPlayer.rar
示例AVI视频下载地址：http://kuai.xunlei.com/d/RFJZWJPHLOIG
转：http://www.cnblogs.com/pchmonster/archive/2012/07/20/2600659.html