//--------------------------------------------------------------------------- #include #pragma hdrstop #include //--------------------------------------------------------------------------- USEFORM("W:\SethaspSRM2010\main.cpp", MainForm); USEFORM("W:\SethaspSRM2010\sethasp_f.cpp", SetHaspForm); USEFORM("W:\SethaspSRM2010\setnethasp_f.cpp", SetNetHaspForm); USEFORM("W:\SethaspSRM2010\config_f.cpp", ConfigForm); USEFORM("W:\SethaspSRM2010\ConfigOld_f.cpp", ConfigOldForm); USEFORM("W:\SethaspSRM2010\setnethasp4_f.cpp", SetNetHasp4Form); USEFORM("W:\SethaspSRM2010\sethasp4_f.cpp", SetHasp4Form); //--------------------------------------------------------------------------- WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) { try { Application->Initialize(); Application->MainFormOnTaskBar = true; Application->CreateForm(__classid(TMainForm), &MainForm); Application->CreateForm(__classid(TSetNetHasp4Form), &SetNetHasp4Form); Application->CreateForm(__classid(TSetHasp4Form), &SetHasp4Form); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; } //---------------------------------------------------------------------------