USEFORM("Main.cpp", frm_Main);
USEFORM("FInfo.cpp", frm_Info);
USEFORM("FHelp.cpp", F_Help);
USEFORM("FSplash.cpp", Splash);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
Application->CreateForm(__classid(TSplash), &Splash);
try
{
Splash->Show();
Application->Initialize();
Application->CreateForm(__classid(Tfrm_Main), &frm_Main);
Application->CreateForm(__classid(Tfrm_Info), &frm_Info);
Application->CreateForm(__classid(TF_Help), &F_Help);
Application->Run();
}
catch (
Exception &
exception)
{
Application->ShowException(&
exception);
}
catch (...)
{
try
{
throw
Exception("");
}
catch (
Exception &
exception)
{
Application->ShowException(&
exception);
}
}
return 0;
}