贴上吧,权当灌水:)
var
count:integer;
begin
Application.Initialize;
splashfrm:=tsplashfrm.create(application);
splashfrm.show;
splashfrm.update;
for count:=0 to 400000000 do//是不是太老了啊?
begin
end;
splashfrm.hide;
splashfrm.free;
gagl_dl:=Tgagl_dl.Create(application);
gagl_dl.Showmodal;
if gagl_dl.dl=false then
begin
exit;
application.Terminate;
end;
Application.CreateForm(Tmain, main);
var
count:integer;
begin
Application.Initialize;
splashfrm:=tsplashfrm.create(application);
splashfrm.show;
splashfrm.update;
for count:=0 to 400000000 do//是不是太老了啊?
begin
end;
splashfrm.hide;
splashfrm.free;
gagl_dl:=Tgagl_dl.Create(application);
gagl_dl.Showmodal;
if gagl_dl.dl=false then
begin
exit;
application.Terminate;
end;
Application.CreateForm(Tmain, main);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货