关于在程序中调用*.swf的问题！

Question

我想在程序开始的时候播放一段flash动画，当程序打开时就将该动画给关闭，就像是程序运行时出现的LOGO窗体一样。一点头绪都没有，请各位多帮忙！

Answer 1

先引SHOCKWAVEFLASH ACTIVEX；
然后做一个代码创建的窗体，OK；

Answer 2

同意楼上
1.components->import ActiveX->选择Shockwave flash [version1.0]->install
2.创建动画启动窗体。

Answer 3

方法如下：
总结以上两为仁兄：
1。使用laihecongxi的方法导入控件]
2。使用outer2000的方法加入控件
3。确认swfname.swf的文件名称和路径；
4。播放swfname.swf文件
5。在project->view source 修改原文件如下：
 Application.Initialize;
  frmSplash:=TfrmSplash.Create(application);
  frmsplash.Show;
  frmsplash.Update;
  Application.CreateForm(TForm1, Form1);
  frmsplash.Hide;
  frmsplash.Free;
  Application.Run;

Answer 4

unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, ExtCtrls;type
  TForm2 = class(TForm)
    ShockwaveFlash1: TShockwaveFlash;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}procedure TForm2.Timer1Timer(Sender: TObject);
begin
  form2.Close ;
end;end.

Answer 5

program Project1;uses
  Forms,
  windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  form2:=tform2.Create(nil);
  form2.Showmodal;
  form2.Free ;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 6

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}end.

Answer 7

？你开始运行的时候自动创建VCL太多了；

Answer 8

dancedog(猪熔鸡) 你是什么意思？哼~