dcw.~cpp

来自「平台:c++ builder V6.0 功能:利用串口设备通讯,」· ~CPP 代码 · 共 48 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("main.cpp", Form_Main);
USEFORM("about.cpp", Form_About);
USEFORM("Unit_Set_Comm.cpp", Form_Set_Comm);
USEFORM("Unit_Link.cpp", Form_Link);
USEFORM("Unit_File.cpp", Form_File);
USEFORM("Unit_Print.cpp", Form_Print);
USEFORM("Unit_Preview.cpp", Form_Preview);
USEFORM("Unit_Company.cpp", Form_Company);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm_Main), &Form_Main);
                 Application->CreateForm(__classid(TForm_About), &Form_About);
                 Application->CreateForm(__classid(TForm_Set_Comm), &Form_Set_Comm);
                 Application->CreateForm(__classid(TForm_Link), &Form_Link);
                 Application->CreateForm(__classid(TForm_File), &Form_File);
                 Application->CreateForm(__classid(TForm_Print), &Form_Print);
                 Application->CreateForm(__classid(TForm_Preview), &Form_Preview);
                 Application->CreateForm(__classid(TForm_Company), &Form_Company);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------