wfz26a.cpp

来自「光学仪器的控制系统 用于教学和科研的仪器」· C++ 代码 · 共 73 行

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", ChanShu);
USEFORM("Unit3.cpp", InputConst);
USEFORM("Unit4.cpp", About);
USEFORM("Unit5.cpp", InputBoChang);
USEFORM("Unit6.cpp", SetZuoBiao);
USEFORM("Unit8.cpp", InputFengZhi);
USEFORM("Unit9.cpp", FormDingDian);
USEFORM("Unit10.cpp", FormJiaoZheng);
USEFORM("Unit11.cpp", FormPrntSetting);
USEFORM("Unit12.cpp", FormSysInit);
USEFORM("Unit13.cpp", Form13);
USEFORM("Unit14.cpp", FormTest_On);
USEFORM("Unit15.cpp", FormTest_Off);
USEFORM("Unit16.cpp", FormDataTable);
USEFORM("Unit17.cpp", Form17);
USEFORM("Unit18.cpp", Form18);
USEFORM("Unit19.cpp", Form19);
USEFORM("pointreport.cpp", fmDpoint);
USEFORM("delaytest.cpp", fmDtest);
USEFORM("Unit21.cpp", FormInData);
USEFORM("Unit20.cpp", FormXGD);
USEFORM("Unit7.cpp", XiShouFeng);
USEFORM("workcurvetype.cpp", fmworkcurve_drawtype);
USEFORM("Unit22.cpp", DlgSetNDUnit);
USEFORM("Unit23.cpp", DlgNDPrnSet);
USEFORM("Unit24.cpp", DlgCurveInfo);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
		Application->CreateForm(__classid(TChanShu), &ChanShu);
		Application->CreateForm(__classid(TInputConst), &InputConst);
		Application->CreateForm(__classid(TAbout), &About);
		Application->CreateForm(__classid(TInputBoChang), &InputBoChang);
		Application->CreateForm(__classid(TSetZuoBiao), &SetZuoBiao);
		Application->CreateForm(__classid(TInputFengZhi), &InputFengZhi);
		Application->CreateForm(__classid(TFormDingDian), &FormDingDian);
		Application->CreateForm(__classid(TFormJiaoZheng), &FormJiaoZheng);
		Application->CreateForm(__classid(TFormPrntSetting), &FormPrntSetting);
		Application->CreateForm(__classid(TFormSysInit), &FormSysInit);
		Application->CreateForm(__classid(TForm13), &Form13);
		Application->CreateForm(__classid(TFormTest_On), &FormTest_On);
		Application->CreateForm(__classid(TFormTest_Off), &FormTest_Off);
		Application->CreateForm(__classid(TFormDataTable), &FormDataTable);
		Application->CreateForm(__classid(TForm17), &Form17);
		Application->CreateForm(__classid(TForm18), &Form18);
		Application->CreateForm(__classid(TForm19), &Form19);
		Application->CreateForm(__classid(TfmDpoint), &fmDpoint);
		Application->CreateForm(__classid(TfmDtest), &fmDtest);
		Application->CreateForm(__classid(TFormInData), &FormInData);
		Application->CreateForm(__classid(TFormXGD), &FormXGD);
		Application->CreateForm(__classid(TXiShouFeng), &XiShouFeng);
		Application->CreateForm(__classid(Tfmworkcurve_drawtype), &fmworkcurve_drawtype);
		Application->CreateForm(__classid(TDlgSetNDUnit), &DlgSetNDUnit);
		Application->CreateForm(__classid(TDlgNDPrnSet), &DlgNDPrnSet);
		Application->CreateForm(__classid(TDlgCurveInfo), &DlgCurveInfo);
		Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------