如何在闪现窗口中播放flash ( 积分: 50 )

我代码是这样的：
Application.Initialize;
fflash:=TFflash.Create(application);
fflash.sflash.Movie:=extractfilepath(application.ExeName)+'/flash/index.swf';
fflash.Show;
fflash.sflash.Play;
fflash.Update;

Application.CreateForm(Tfmain, fmain);
Application.CreateForm(Tflogin, flogin);
Application.CreateForm(Tfgsxx, fgsxx);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(Tadodm, adodm);
Application.CreateForm(Tfspxx, fspxx);
Application.CreateForm(Tfaddspxx, faddspxx);
Application.CreateForm(Tfeditspxx, feditspxx);
Application.CreateForm(TForm1, Form1);
//CurrentTime:=GetTickcount div 1000;
// while ((GetTickcount div 1000)< (CurrentTime + 5))do
;
//
fflash.Hide;
fflash.Free;
Application.Run;
//但是这样的话，在播放动画之前闪现窗口就被关闭了，如果我把程序中用来延时的那段代码加上的话，在延时的时间的内并不播放动画，还是在主窗口启动之后才播放，该怎么处理呢

关注一下，天哪，你要一下子create so many form吗？

应该是先SHOW窗体再播放SWF吧!
fflash:=TFflash.Create(application);
fflash.Show;
fflash.sflash.Movie:=extractfilepath(application.ExeName)+'flash/index.swf';

fflash.sflash.Play;
fflash.Update;

==================
另外把这些代码放在主窗体的OnCreate事件试试
//CurrentTime:=GetTickcount div 1000;
// while ((GetTickcount div 1000)< (CurrentTime + 5))do
;
//

结了