commtest.cpp

串口调试工具

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("CommTest.res");
USEFORM("CommMainUnit.cpp", CommMain);
USEUNIT("..\Common\Components\CommControl\CommControl.cpp");
USEUNIT("..\Common\Units\Functions.cpp");
USEFORM("ParityTypeSele.cpp", ChooseParity);
USEFORM("..\Common\Forms\Settings2.cpp", FormSettings);
USEFORM("..\Common\Forms\AboutBox.cpp", AboutBoxForm);
USEUNIT("..\Common\Units\CRCClass.cpp");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
        Application->Initialize();
        Application->Title = "串口通讯测试程序";
        Application->CreateForm(__classid(TCommMain), &CommMain);
        Application->CreateForm(__classid(TChooseParity), &ChooseParity);
        Application->CreateForm(__classid(TFormSettings), &FormSettings);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    return 0;
}
//---------------------------------------------------------------------------