想给程序加一个启动窗口

[glooby]

想给我的一个程序加一个启动窗口，就像word之类的软件，刚启动时首先弹出一个窗体，上面是公司的图标和一些版权信息，然后过一小会儿，这个窗体自动消失了，真正的主窗体才出来。请问该如何做？

[chpst]

#include <vcl.h>
#include "SplashUnit.h"
long Itime;
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Splash= new TSplash(Application);
Splash- >Show();
Application- >Initialize();
Application- >CreateForm(__classid(TDM), &DM);
Application- >CreateForm(__classid(TLoginForm), &LoginForm);
Application- >CreateForm(__classid(TMainForm), &MainForm);
Itime=GetTickCount();
while ((GetTickCount()-Itime)/1000 <1)

Splash- >Update();
Splash- >Free();
Application- >Run();
}
catch (Exception &exception)
{
Application- >ShowException(&exception);
}
catch (...)
{
try
{
throw Exception( " ");
}
catch (Exception &exception)
{
Application- >ShowException(&exception);
}
}
return 0;
}

[thp]

.

[空中猎手]

TForm2* frm = new TForm2(this);
try {
frm->ShowModal();
frm->Update();
Sleep(10000);
} __finally {
delete frm;
}

[glooby]

请再帮忙看看，程序运行后溢出，代码如下：


#include <vcl.h>
#pragma hdrstop
#include "Unit5.h" //这是启动窗口的头文件
long Itime;

USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
USEFORM("Unit3.cpp", Form3);
USEFORM("Unit6.cpp", Form6);
USEFORM("Unit7.cpp", Form7);
USEFORM("Unit4.cpp", Form4);
USEFORM("Unit5.cpp", Form5);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{

try
{
TForm5 *Splash= new TForm5(Application);
Splash->Show();

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1); // 主窗口
Application->CreateForm(__classid(TForm2), &Form2); // 运行到这儿程序溢出
Application->CreateForm(__classid(TForm3), &Form3);
Application->CreateForm(__classid(TForm6), &Form6);
Application->CreateForm(__classid(TForm7), &Form7);
Application->CreateForm(__classid(TForm4), &Form4);
Itime=GetTickCount();
while ((GetTickCount()-Itime)/1000 <1);

Splash->Update();
Splash->Free();
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

[chpst]

Splash->Show();
应是Form5吧！