如何制作启动Splash??????

[picky]

请帮忙！！！！！！！！！如何制作启动Splash??????

[newyj]

program splash_demo;

uses
Forms,windows,sysutils,
splashu1 in 'splashu1.pas' {Form1},
splashu2 in 'splashu2.pas' {splash};

{$R *.RES}
var b,e:longint;
begin
Application.Initialize;

//create splash from self ,with owener application
splash:=tsplash.create(application);
//show splash form
splash.show;
//to update splash form screen
splash.update;
//create mainform form1
Application.CreateForm(TForm1, Form1);
//get time from the windows start
b:=windows.GetTickCount;
e:=windows.GetTickCount;
//*******************************************************//
//waiting for 1000MS (1sec)
while (e-b)<1000 do
begin
e:=windows.GetTickCount;
end;
//*******************************************************//
//hide splash form ,peraper to show mainform
splash.Hide;
//show mainform form1
form1.show;
//destroy the splash form from memory
splash.Destroy;
Application.Run;
end.

[picky]

谢谢！！！！！！！！

[MAX°孟兆]

哎，来迟了一步，都是路上的车太塞了。

[baiyujing]

问题既然已经解决,就给人家个分数嘛...
可怜的好心人...