又改了,通常的那种,如下,还出错:(Form6是启动窗体,Form5是数据库密码验证窗体,form1是原来的主窗体。)
program RainPlot;
uses
Forms, SysUtils,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {AboutBox},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6};
{$R *.res}
var
time1 : TDateTime ;
begin
Form6 := TForm6.Create(Application);
Form6.Show;
Form6.Refresh;
time1:=now;
repeat
until time1+StrtoTime('00:00:3')<=now;
Application.Initialize;
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TAboutBox, AboutBox);
Application.Run;
end.
请继续指教哦!