//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "SplashForm.h";
//---------------------------------------------------------------------
#ifdef LOCK_TEX
#include "Authorization_F.h"
#endif

#ifdef TRIAL
#include "TrialLock.h"
#include "TrialLoginForm.h"
#endif
//---------------------------------------------------------------------------
USEFORM("W:\WeaveKnit\TpwTest\about.cpp", AboutBox);
USEFORM("W:\WeaveKnit\TpwTest\BaseYarnDesign_F.cpp", BaseYarnDesignForm);
USEFORM("W:\WeaveKnit\TpwTest\ColorChart.cpp", ColorChartForm);
USEFORM("W:\WeaveKnit\TpwTest\ColorLibrary_F.cpp", ColorLibraryForm);
USEFORM("W:\WeaveKnit\TpwTest\CommonPrint.cpp", CommonPrintForm);
USEFORM("W:\WeaveKnit\TpwTest\EnlargeCanvas.cpp", EnlargeCanvasForm);
USEFORM("W:\WeaveKnit\TpwTest\FileManager_F.cpp", FileManagerForm);
USEFORM("W:\WeaveKnit\TpwTest\FullView.cpp", FullViewForm);
USEFORM("W:\WeaveKnit\TpwTest\Grid_F.cpp", GridForm);
USEFORM("W:\WeaveKnit\TpwTest\NewCanvas.cpp", NewCanvasForm);
USEFORM("W:\WeaveKnit\TpwTest\Palette.cpp", PaletteForm);
USEFORM("W:\WeaveKnit\TpwTest\PalFileManager.cpp", PFMForm);
USEFORM("W:\WeaveKnit\TpwTest\Progress_F.cpp", ProgressForm);
USEFORM("W:\WeaveKnit\TpwTest\SimpleWindow_F.cpp", SimpleWindowForm);
USEFORM("W:\WeaveKnit\TpwTest\SplashForm.cpp", splash);
USEFORM("W:\WeaveKnit\TpwTest\Texture_F.cpp", TextureForm);
USEFORM("W:\WeaveKnit\TpwTest\UserColorData_F.cpp", UserColorDataForm);
USEFORM("W:\WeaveKnit\TpwTest\UserColor_F.cpp", UserColorLibForm);
USEFORM("W:\WeaveKnit\TpwTest\YarnBrightness_F.cpp", YarnBrightnessForm);
USEFORM("W:\WeaveKnit\TpwTest\YarnDesign_F.cpp", YarnDesignForm);
USEFORM("W:\WeaveKnit\TpwTest\YarnRepeat_F.cpp", YarnRepeatForm);
USEFORM("W:\WeaveKnit\TpwTest\YarnTable_F.cpp", YarnTableForm);
USEFORM("W:\WeaveKnit\TpwTest\YarnUnit_F.cpp", YarnUnitForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\Environment.cpp", EnvironmentForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\Printer_F.cpp", PrintForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\TextureDesign_F.cpp", TextureDesignForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\TexturePrint.cpp", TexturePrintForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\Weaving_F.cpp", WeavingForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\YarnAccount_F.cpp", YarnAccountForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\YarnArrange_F.cpp", YarnArrangeForm);
USEFORM("W:\WeaveKnit\TpwTest\YarnScan_F.cpp", YarnScanForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\MainMenu.cpp", MainMenuForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\Main.cpp", MainForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\MainImage.cpp", MainImageForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\TextureArrange_F.cpp", TextureArrangeForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\OneRepeat_F.cpp", OneRepeatForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\SimpleAPTable_F.cpp", SimpleAPTableForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\ColorChange_F.cpp", ColorChangeForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\NewProductData.cpp", NewProductDataForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\OldProductData.cpp", ProductDataForm);
USEFORM("W:\WeaveKnit\TpwTest\Notice_F.cpp", NOTICE);
USEFORM("W:\WeaveKnit\TpwTest\MakeMark_F.cpp", MarkForm);
USEFORM("W:\WeaveKnit\TpwTest\Weave\Authorization_F.cpp", AuthorizationForm);
USEFORM("W:\WeaveKnit\TpwTest\ColorInfoView_F.cpp", ColorInfoViewForm);
USEFORM("W:\WeaveKnit\TpwTest\DTPColorLibrary_F.cpp", DTPColorLibraryForm);
USEFORM("W:\WeaveKnit\TpwTest\Calc_F.cpp", CalcForm);
USEFORM("W:\WeaveKnit\TpwTest\ExceptionReport_F.cpp", ExceptionReportForm);
USEFORM("W:\WeaveKnit\TpwTest\AutoUpdate_F.cpp", AutoUpdateForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{

#ifdef TRIAL_COMM
  // Áߺ¹ ½ÇÇàÀ» ¹æÁöÇϱâ À§Çؼ­ ¸¸µé¾úÁö¸¸ µðÀÚÀνÇÀÌ ºÒÇÊ¿äÇÏ´Ù°í
  // À̾߱â Ç߱⠶§¹®¿¡ ÇöÀç ÁÖ¼®À¸·Î ó¸®ÇÔ.
  // ÃßÈÄ »ç¿ë °¡´É Çϱ⿡ Áö¿ìÁö ¸»±æ~ - by maxleo21c(06.06.23)
  const char ProgMutex[] = "YoungWoo TexPro System - Weave(Trial)"; //Áߺ¹½ÇÇà ±ÝÁö...
  HANDLE Mutex = OpenMutex(MUTEX_ALL_ACCESS, false, ProgMutex);

  if (!Mutex)
    CreateMutex(NULL, true, ProgMutex);
  else
  {
    //ÀÌ¹Ì ÇÁ·Î±×·¥ÀÌ ¶°ÀÕÀ» °æ¿ì ¸Þ¼¼Áö¸¦ º¸³»¾ß ÇÑ´Ù....
    ReleaseMutex(Mutex );

    if ( ParamCount() == 1 )
    {
      String strData = ParamStr(1);
      COPYDATASTRUCT  cds;
      cds.dwData = 1; // ±³È¯ÇÏ°íÀÚ ÇÏ´Â Á¤¼ö°ª : ParamÀÌ À¯¹Â / 0Àº false;
      cds.cbData = strData.Length()+1; // Àü´ÞµÉ Á¤º¸ lpDataÀÇ Å©±â
      cds.lpData = strData.c_str(); // Àü´ÞµÉ Á¤º¸

      HWND h_wnd;

      h_wnd = FindWindow("TMainForm", "Texpro Design CAD System - Weave (Trial)");
      if (h_wnd)
        SendMessage(h_wnd, WM_COPYDATA,(WPARAM)h_wnd,(LPARAM)&cds);
    }
    return 0;
  }
#endif

  try
  {
    Application->Initialize();

#ifdef LOCK_TEX
    // DoubleLock - by monkman (2007.08.20)
    AuthorizationForm = new TAuthorizationForm(Application);
    if (AuthorizationForm->Check(false) == true) { // ±âÁ¸¿¡ ÀÎÁõÀÌ µÇ¾ú´ÂÁö üũ
      delete AuthorizationForm;
    }
    else {
      if (AuthorizationForm->ShowModal() == mrOk) { // ÀÎÁõÀ» ¹Þ¾Æ¾ßÇÒ °æ¿ì
        delete AuthorizationForm;
      }
      else {
        delete AuthorizationForm; // ÀÎÁõ Ãë¼Ò½Ã
        return 0;
      }
    }
#endif

#ifdef TRIAL_LOCK
    // TrialLock - by monkman (2008.11.13)
    TTrialLock *TrialLock = new TTrialLock(Application, TRL_TEXTILE|TRL_WEAVE|TRL_KNIT);
    if (TrialLock->CHK() == true) {
      delete TrialLock;
    }
    else {
      delete TrialLock;
      return 0;
    }
#endif

#ifdef TRIAL_COMM
    TrialLogin_Form = new TTrialLogin_Form(Application);
    if (TrialLogin_Form->ShowModal() == mrOk) { // ÀÎÁõÀ» ¹Þ¾Æ¾ßÇÒ °æ¿ì
      delete TrialLogin_Form;
    }
    else {
      delete TrialLogin_Form; // ÀÎÁõ Ãë¼Ò½Ã
      return 0;
    }
#endif
    splash = new Tsplash(Application);
    #if !defined(LOCK_CRYPKEY) && !defined(LOCK_IFC) && !defined(LOCK_USB) && !defined(LOCK_TEX) && !defined(NETHASP)
    if (splash->bAutoUpdate) {
      delete splash;
      return 0;
    }
    #endif     
    splash->Show();
    splash->Update();
#ifdef TRIAL
    Application->Title = "Texpro Design CAD System - Weave (Trial)";
#else
    Application->Title = "Texpro Design CAD System - Weave (Professional)";
#endif
    Application->CreateForm(__classid(TMainForm), &MainForm);
     splash->Close();
    Application->Run();
  }
  catch (Exception &exception)
  {
    Application->ShowException(&exception);
  }
  return 0;
}
//---------------------------------------------------------------------