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程序主界面。
解决方案 »
- 散分:今天碰到一件让人无语的事,大家进来顶一下(关于图片上传的)
- 简单问题:怎么给WebBrowser1改名啊?
- ■如何在显示窗体的时候(在最前面)而不使其他窗体失去焦点(变灰)?
- 关于Cleintdataset的Filter为一个汉字的问题
- 关于fastreport打印问题
- 急!!!!!多次运用recordcount时为什么的到的是-1,在线等!!!!!!
- 关于查询
- 怎么样让listbox中的内容可以让用户随便的改变次序?
- 过滤表的记录?
- 在orical数据库中如何用delphi存储jpg图象!!jpg图象是文件的形式!!!急!!!!!!
- 让我懵了好久的代码,高手过来帮我翻译翻译好吗?
- 请教各位高手:Delphi如何用LoadImage获取图标
然后加一个定时器,Flash/Gif打开后,启动定时器,开始计时。到了时间执行主程序并关闭窗体