在C++ Builder中制作主窗口显示前的版权窗口

在工程文件中选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;
    }

//------------------------------------------------------------------------------------------
//----以上部分是本人以前在论坛上看到一些大侠们所写，但是经过本人实践之后发现这个方法不可取！！
//----以上方法实际上是通过蛮力来计算，照此设计的程序， 执行初始便是CPU使用达到100％，
//----不知道如果机器差劲，会不会死机！！^_^
//----如有问题于本人交流 ：
//----E-mail: lonelyforest@126.com QQ:36274668
//----blog: http://blog.csdn.net/lonelyforest (乱，没水准！多多指教！)
//---可与本人联系交流！ 广交各路高手！
//--------------------------------------------------------------------------------------------
//以下是本人觉得比较合适的一种，希望各位高人能够多多指教！

在工程文件中选File->New Form新建一个窗口，设计好窗口的外观。
给窗口起名为AboutBox,假设源文件为 Unit7.cpp
选Project->Options，将新建的窗口从自动建立中去掉。
选Project->ViewSource，打开工程文件的源文件，重新设置如下。
其中不恰当的我已经用注释来注解调了。

 

	#include "Unit7.h"
	WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
		{     //  DWORD lTime; 
		try    {      
			Application->Initialize();      
			AboutBox=new TAboutBox(AboutBox);      
			//AboutBox->Show();      
			//AboutBox->Update();
			AboutBox->Show();   
			AboutBox->Update();       
			// lTime=GetTickCount();      
			Application->CreateForm(__classid(TMainForm), &MainForm);
			      
			// while((GetTickCount()-lTime) / 1000 <3); //尤其这句！！CPU 100% ！！    
			// AboutBox->Hide();      
			// AboutBox->Free();
			Sleep(3000); 	 
			//原理是使当前程序休息一段时间，当然你也可以自己设置长短，（1000代表1秒）
			//并且改进比如在此期间进行文件核查，注册校对等等！！
			AboutBox->Hide();  
			delete AboutBox;    
			Application->Run();
		}     
		catch (Exception &exception)     
		{       
			Application->ShowException(&exception);     
		}     
		return 0; 
	    }