Delphi編程播放無聲音的AVI動畫

在窗體的初始化過程中添加以下代碼：
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    self.Animate1.Active:=true;
    end;
    這樣，在程序運(yùn)行的初期，程序就會激活TAnimate組件，從而開始播放拷貝文件的動畫aviCopyFile。
    程序代碼如下：
    unit Unit1;
    interface
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, ComCtrls;
    type
    TForm1 = class(TForm)
    Animate1: TAnimate;
    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    var
    Form1: TForm1;
    implementation
    {$R *.dfm}
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    self.Animate1.Active:=true;
    end;
    end.
    保存文件，然后按F9鍵運(yùn)行程序
    本程序中沒有調(diào)用磁盤中的AVI動畫文件，讀者在自己的應(yīng)用程序中可以通過指定TAnimate組件的FileName屬性來播放沒有聲音的AVI動畫文件。