制作主窗口显示前的版权窗口

13、制作主窗口显示前的版权窗口
答：
在工程文件中选File->New Form新建一个窗口，设计好窗口的外观。给窗口起名为AboutBox,选Project->Options，将新建的窗口从自动建立中去掉。选View->Project Source，打开工程文件的源文件，在下面加入红色的句子。
Uses AboutBox
Var
lTime :TDateTime;
Begin
Application.Initialize();
AboutBox=TAboutBox.Create(AboutBox);
AboutBox.Show;
AboutBox.Update;
lTime=GetTickCount;
Application.CreateForm(TMainForm,MainForm);
while((GetTickCount-lTime) / 1000 <3) do;
AboutBox.Hide;
AboutBox.Free;
Application.Run;
end;