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

在工程文件中选File->New Form新建一个窗口，设计好窗口的外观。

给窗口起名为AboutBox，源文件命名为AboutBox.Cpp

选Project->Options，将新建的窗口从自动建立中去掉。

选View->Project Source，打开工程文件的源文件，在下面加入句子。

#include "AboutBox.h"

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

DWord lTime;

try

{

Application->Initialize();

AboutBox=new TAboutBox(AboutBox);

AboutBox->Show();

AboutBox->Update();

lTime=GetTickCount();

Application->CreateForm(__classid(TMainForm), &MainForm);

while((GetTickCount()-lTime) / 1000 <3);

AboutBox->Hide();

AboutBox->Free();

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

return 0;

}