：一个关于显示splash的程序，其中有一小部分不懂，请高手指教(30分)

下面是显示splash窗口的程序。其中***之间的程序不懂，请指点一下。谢谢。

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.

The GetTickCount
function retrieves the number of milliseconds that
have elapsed since Windows was started.

同意arm.
指窗体打开后的总时间。e-b的差即为splash画面的停留时间

[8D]

时间过长，斑竹代为结束。
希望你们在Delphibbs开开心心！ :>