customlistbox.cpp

版本窗口程序 这是书本上的相关内容

//---------------------------------------------------------------------------

#include <vcl.h>
#include "AboutBox.h"
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", MainForm);
USEFORM("Unit2.cpp", EditForm);
USEFORM("AboutBox.cpp", Form3);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
DWORD lTime;
	try
	{
		Application->Initialize();
               AboutBox=new TForm3(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);
	}
	catch (...)
	{
		try
		{
			throw Exception("");
		}
		catch (Exception &exception)
		{
			Application->ShowException(&exception);
		}
	}
	return 0;
}
//---------------------------------------------------------------------------