// ICS ServiceTcp demo - C++Builder project source, the equivalent of OverbyteIcsServiceTcp.dpr
#include <vcl.h>
#pragma hdrstop
#include <Vcl.SvcMgr.hpp>
#include <tchar.h>

// vcl.h also brings in Forms::Application; this program needs the service application object.
#define Application Vcl::Svcmgr::Application

USEFORM("OverbyteIcsServiceTcp1.cpp", IcsTcpServce);   /* TService: File Type */

int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try {
        Application->Initialize();
        Application->CreateForm(__classid(TIcsTcpServce), &IcsTcpServce);
        Application->Run();
    }
    catch (Exception &exception) {
        Sysutils::ShowException(&exception, System::ExceptAddr());
    }
    return 0;
}