关于启动画面停留时间的问题(20分)

如题目,如何控制启动画面的时间?

这样太简单 的问题 我还真 不知 如何作答，可以不给我分 []，给你顶
哪位 dfw 给答答！！！

用timer控件

我可是刚入门,可不可以说详细些.

// DataExplorer.dpr

program DataExplorer;

uses
Forms,
SysUtils,
testdll in 'TESTDLL.PAS' {TestDlla},
datasetQRpas in 'datasetQRpas.pas' {DatasetQR: TQuickRep},
{$R *.res}

var
Time1:TDateTime;
begin
boot:=Tboot.Create(nil);
boot.show;
boot.update;
Time1:=now;
repeat until Time1+StrToTime('00:00:2')<=now; //时间自定

麻烦楼上的老大,把后半此代码贴出来.谢谢

工程文件里加入即可。数据随便你调
sleep(5000);
注意在帮助里查一下sleep的单元加入即可

program DataExplorer;

uses
Forms,
SysUtils,
testdll in 'TESTDLL.PAS' {TestDlla},
datasetQRpas in 'datasetQRpas.pas' {DatasetQR: TQuickRep},
ListViewpas in 'ListViewpas.pas' {DBListView},
Formroot in 'Formroot.pas' {boot},
Functionpas in '../../../2004_Feb/Delphi7.0/testFunctionpas/Functionpas.pas';

{$R *.res}
var
Time1:TDateTime;
begin
boot:=Tboot.Create(nil); //为启动Form
boot.show;
boot.BorderStyle:=bsNone;
boot.update;
Time1:=now;
repeat until Time1+StrToTime('00:00:4')<=now;
Application.Initialize;
Application.CreateForm(TTestDlla, TestDlla);
boot.free;
Application.Run;
end.

查查GetTickTime的帮助！
论坛有过这样的帖子。你也可以查！

接受答案了.