Delphi編程播放無(wú)聲音的AVI動(dòng)畫(huà)

在窗體的初始化過(guò)程中添加以下代碼：
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    self.Animate1.Active:=true;
    end;
    這樣，在程序運(yùn)行的初期，程序就會(huì)激活TAnimate組件，從而開(kāi)始播放拷貝文件的動(dòng)畫(huà)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)行程序
    本程序中沒(méi)有調(diào)用磁盤(pán)中的AVI動(dòng)畫(huà)文件，讀者在自己的應(yīng)用程序中可以通過(guò)指定TAnimate組件的FileName屬性來(lái)播放沒(méi)有聲音的AVI動(dòng)畫(huà)文件。