显示一个封面

显示一个封面
假设要为项目创建一个封面。封面能够在应用程序启动时显示，并在应用程序初始化期间一直停
留在屏幕上。显示封面是一件很简单的事情。
下面是创建一个封面的基本步骤：
1) 在创建了主窗体后，再创建一个窗体来作为封面。把这个窗体叫做SplashForm。
2) 使用Project | Options菜单命令，确保SplashForm没有出现在Auto-Create列表中。
3) 把SplashForm的BorderStyle属性设为bsNone，BorderIcons属性设为[]。
4) 把一个TImage 组件放到SplashForm上，把它的Align属性设为alClient。
5) 选择Picture属性，在TImage组件中调入一个位图。
现在已经设计好这个封面了，只要在项目文件中加入代码来显示它。

 

#include  < vcl.h >
#pragma  hdrstop
#include  " logo.h " //
// ---------------------------------------------------------------------------
USEFORM( " Unit1.cpp " , Form1);
USEFORM( " LOGO.cpp " , frmlogo);
USEFORM( " QryResult.cpp " , fmQryResult);
// ---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR,  int )
{
   try
  {
      HANDLE m_hMutex;
      m_hMutex = CreateMutex(NULL,FALSE, " healthdcxt " );

       if  (m_hMutex)
      {
          if  (GetLastError() == ERROR_ALREADY_EXISTS)
         {
            MessageBox(NULL, " 该系统已经运行！ " , " 提示信息 " ,MB_OK | MB_ICONINFORMATION);
             return   0 ;
         }
      }

      ReleaseMutex(m_hMutex);
      frmlogo = new  Tfrmlogo(Application);
      frmlogo -> Show();
      frmlogo -> Update();
       while  (frmlogo -> tmMainTimer -> Enabled)
      {
        Application -> ProcessMessages();
      }

      Application -> Title  =   " 客户调查系统 " ;
      Application -> HelpFile  =   "" ;
      Application -> Initialize();

      Application -> CreateForm(__classid(TForm1),  & Form1);
      delete frmlogo;
      Application -> Run();
  }
   catch  (Exception  & exception)
  {
     Application -> ShowException( & exception);
  }
   catch  (...)
  {
      try
     {
        throw  Exception( "" );
     }
      catch  (Exception  & exception)
     {
       Application -> ShowException( & exception);
     }
  }
   return   0 ;
}