//--------------------------------------------------------------------------- #include #pragma hdrstop //--------------------------------------------------------------------------- USEFORM("dbcedit.cpp", FrmMain); USEFORM("TitleFrm.cpp", FrmTitle); USEFORM("SearchFrm.cpp", FrmSearch); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TFrmMain), &FrmMain); Application->CreateForm(__classid(TFrmTitle), &FrmTitle); Application->CreateForm(__classid(TFrmSearch), &FrmSearch); Application->Run(); } catch (Exception& exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception& exception) { Application->ShowException(&exception); } } return 0; } //---------------------------------------------------------------------------