//--------------------------------------------------------------------------- #include #pragma hdrstop #include "splash.h" //--------------------------------------------------------------------------- USEFORM("src\main.cpp", Form1); USEFORM("src\splash.cpp", splashScreen); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); /***********************/ splashScreen = new TsplashScreen(Application); splashScreen->Show(); splashScreen->Update(); /***********************/ Application->CreateForm(__classid(TForm1), &Form1); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; } //---------------------------------------------------------------------------