//--------------------------------------------------------------------------- #include #pragma hdrstop USERES("DesignTool.res"); USEFORM("..\DesignTool\about.cpp", AboutBox); USEFORM("..\DesignTool\Environment.cpp", EnvironmentForm); USEUNIT("..\DesignTool\sdiapp.cpp"); USEFORM("..\DesignTool\SDIMain.cpp", SDIAppForm); USEFORM("..\DesignTool\Tool.cpp", ToolForm); USEFORM("..\DesignTool\View.cpp", ViewForm); USEUNIT("Common.cpp"); USEUNIT("Define.cpp"); USEUNIT("ProtectCard.cpp"); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->Title = "TexWork - DesignTool"; Application->CreateForm(__classid(TSDIAppForm), &SDIAppForm); Application->CreateForm(__classid(TAboutBox), &AboutBox); Application->CreateForm(__classid(TToolForm), &ToolForm); Application->CreateForm(__classid(TViewForm), &ViewForm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; } //---------------------------------------------------------------------------