显示一个封面

显示一个封面
假设要为项目创建一个封面。封面能够在应用程序启动时显示，并在应用程序初始化期间一直停
留在屏幕上。显示封面是一件很简单的事情。
下面是创建一个封面的基本步骤：
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;
}