ITS_OP/VmsTestMain/VmsZTestMain.cpp

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

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include "AppGlobalF.h"

//---------------------------------------------------------------------------
USEFORM("FrmTestSubF.cpp", FrmTestSub);
USEFORM("FrmTestMainF.cpp", VmsTestMain);
//---------------------------------------------------------------------------
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    if (!ApplicationSingleRun("TVmsTestMain", "VMS Test ÇÁ·Î±×·¥")) {
        return 0;
    }

    try
    {
         ReportMemoryLeaksOnShutdown = true;
         Application->Initialize();
         Application->MainFormOnTaskBar = true;
         Application->Title = "VMS Test ÇÁ·Î±×·¥";
         Application->CreateForm(__classid(TVmsTestMain), &VmsTestMain);
         Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    catch (...)
    {
         try
         {
             throw Exception("");
         }
         catch (Exception &exception)
         {
             Application->ShowException(&exception);
         }
    }
    return 0;
}
//---------------------------------------------------------------------------