email.cpp

C++Builder高级应用开发指南随书源码

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

#include <vcl.h>
#pragma hdrstop
USERES("EMail.res");
USEFORM("UnitMain.cpp", FormMain);
USEFORM("UnitNewMail.cpp", FormNewMail);
USEFORM("UnitConfig.cpp", FormConfig);
USEUNIT("UnitMail.cpp");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TFormMain), &FormMain);
                 Application->CreateForm(__classid(TFormNewMail), &FormNewMail);
                 Application->CreateForm(__classid(TFormConfig), &FormConfig);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------