一个初级问题，如何在启动主窗口之前启动一个进度窗口

Question

由于应用程序的启动时间过长，想在启动主窗口之前显示启动进度，请问如何可能实现！

Answer 1

在application中create一个窗口，然后再主程序中将窗口卸掉。
其实关于flash窗口的制作几乎每本书里都有。

Answer 2

begin
  Application.Initialize;
  FrmFace := TFrmFace.Create(Application); {建立徽标Form}
  Frmface.AlphaBlend := false;
  FrmFace.Show; {显示徽标Form}
  FrmFace.Update; {重画徽标Form，确保其中的图片被显示出来}
  Application.CreateForm(TFrmMain, FrmMain);
  Frmface.AlphaBlend := true;
  Frmface.Update;
  while frmface.AlphaBlendValue > 15 do
    frmface.AlphaBlendValue := frmface.AlphaBlendValue - 5;
  FrmFace.Hide; {隐藏徽标Form，使主Form显示出来}
  FrmFace.Free; {释放徽标Form占用的资源}
  Application.Run;
end.