123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990 |
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
- #include <tchar.h>
- #include <cxFormats.hpp>
- //---------------------------------------------------------------------------
- #include "AppGlobalF.h"
- #include "ITSDbF.h"
- #include "FrmVmsMsgSendDispOldF.h"
- //---------------------------------------------------------------------------
- USEFORM("VMSM500M\FrmVmsMsgSendDispF.cpp", FrmVmsMsgSendDisp);
- USEFORM("VMSM500M\FrmVmsMsgSendDispOldF.cpp", FrmVmsMsgSendDispOld);
- //---------------------------------------------------------------------------
- WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
- {
- if (!CheckApplicationParam()) {
- return 0;
- }
- if (!ApplicationSingleRun("TFrmVmsMsgSendDisp", "VMS 메시지 수동표출 - (DB 장애)")) {
- return 0;
- }
- DateSeparator = '-';
- TimeSeparator = ':';
- ShortDateFormat ="yyyy-MM-dd";
- ShortTimeFormat = "hh:nn:ss";
- LongTimeFormat = "hh:nn:ss";
- cxFormatController()->BeginUpdate();
- cxFormatController()->UseDelphiDateTimeFormats = true;
- cxFormatController()->EndUpdate();
- cxFormatController()->GetFormats();
- cxFormatController()->NotifyListeners();
- g_nPid = (int)GetCurrentProcessId();
- g_sAppDir = ExtractFilePath(Application->ExeName);
- g_sAppName = ChangeFileExt(ExtractFileName(Application->ExeName), "");
- g_sCfgDir = g_sAppDir + g_IniFileDir + "\\";
- g_sLogDir = g_sAppDir + "Log\\";
- ForceDirectories(g_sLogDir.c_str());
- ChDir(g_sAppDir);
- /*
- * 시스템 운영환경을 ini 파일에서 읽어 온다.
- */
- LoadDefaultConfigInfo(g_IniFileName);
- ITSLog = new TITSLog(g_sLogDir, g_sAppName, g_AppCfg.sLogDay);
- ITSLog->FLogCfg = g_LogCfg;
- try
- {
- ReportMemoryLeaksOnShutdown = true;
- Application->Initialize();
- Application->MainFormOnTaskBar = true;
- Application->Title = g_AppCfg.sTitle;
- Application->Title = "VMS 메시지 수동표출 - (DB 장애)";
- Application->CreateForm(__classid(TFrmVmsMsgSendDisp), &FrmVmsMsgSendDisp);
- Application->Run();
- }
- catch (Exception &exception)
- {
- Application->ShowException(&exception);
- }
- catch (...)
- {
- try
- {
- throw Exception("");
- }
- catch (Exception &exception)
- {
- Application->ShowException(&exception);
- }
- }
- prog_exit:
- try
- {
- }
- catch(...)
- {
- }
-
- return 0;
- }
- //---------------------------------------------------------------------------
|