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程序主界面。
本人另外弄了一程序,加了一个按钮才能实现进入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程序主界面。
解决方案 »
- fastreport 不对称型分栏
- 如何动态添加控件的值?
- Automation object 的方法的参数数据类型疑惑
- edit.txt='123456',现在我在'4'的后面输入'9'时,它却成了'1234956',而我想要的是'123496',有什么办法
- stringgrid列显示的问题?
- 有没有解压缩控件
- 在线等待——程序中修改本地计算机的IP地址?
- 请问:在调用DOS程序的时候,如果控制他的命令行?
- 能不能将ico存成bmp
- 哭述:我一定要发财!我还在用P166MMX,还要用Delphi6.0
- 让我懵了好久的代码,高手过来帮我翻译翻译好吗?
- 请教各位高手:Delphi如何用LoadImage获取图标
然后加一个定时器,Flash/Gif打开后,启动定时器,开始计时。到了时间执行主程序并关闭窗体