有什么好的方法在启动EXE文件之前先启动一个动画，相当于启动画面？

[grace_zou]

EXE程序不知道是用什么工具打包好了的，没有源程序，但是现在想在启动这个EXE程序时，先出现一个动画，相当于启动画面，等动画播放完毕后直接进入到EXE程序主界面。这个动画是用FLASH做的，或者是GIF格式的动画。请高手指点好的方法，谢谢！
本人另外弄了一程序，加了一个按钮才能实现进入EXE程序，
procedure TForm1.FormCreate(Sender: TObject);
var
myGif:TGIFImage;
i:Integer;
begin
// WindowsMediaPlayer1.URL :='./l.avi';
myGif := TGIFImage.Create;
myGif.LoadFromFile('124.gif');
Image1.Width:=myGif.Width;
Image1.Height:=myGif.Height;
Image1.Picture.Assign(myGif);
myGif.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Hide ;
shellexecute(handle,nil,'D:\u.exe',nil,nil,sw_shownormal);
end;

但这不是我想要的效果：等动画播放完毕后直接进入到EXE程序主界面。

[dinoalex]

有flash控件吖,加载的flash里有命令,程序接收就可以了.

[天火]

顶楼上。

[grace_zou]

[Quote=引用 1 楼 dinoalex 的回复:]
有flash控件吖,加载的flash里有命令,程序接收就可以了.
[/Quote]
flash控件在哪个里面？

[ljluck7687]

先计算播放Flash/Gif所需的时间（读文件的帧数和速率）。
然后加一个定时器，Flash/Gif打开后，启动定时器，开始计时。到了时间执行主程序并关闭窗体