Delphi编程播放无声音的AVI动画

在窗体初始化期间添加以下代码:

程序TForm1。FormCreate(发件人:to object)；开始
自己。animate 1 . Active:= true；
end；

这样，在程序运行之初，程序就会激活TAnimate组件，从而开始播放复制文件的动画aviCopyFile。

程序代码如下:

unit Unit1
接口
用途

窗口、消息、系统、变量、类、图形、控件、表单，

对话框、控件。

type
t form 1 = class(t form)
animate 1:tani mate；
过程FormCreate(发件人:to object)；
私有
{私有声明}
公共
{公共声明}
end；

var
form 1:t form 1；
实现
{$R *。dfm}
过程TForm1。FormCreate(发件人:to object)；开始
自己。animate 1 . Active:= true；
end；

结束。

保存文件，然后按F9运行程序

这个程序不调用磁盘中的AVI动画文件。读者可以通过指定TAnimate组件的FileName属性，在自己的应用程序中不带声音地播放AVI动画文件。