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

#include <vcl.h>
#pragma hdrstop
#include "SplashForm.h"
//---------------------------------------------------------------------------
#ifdef LOCK_TEX
#include "Authorization_F.h"
#endif
//---------------------------------------------------------------------------
USEFORM("W:\TexWeave\TpwTest\TexWeave\BaseYarnDesign_F.cpp", BaseYarnDesignForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\ColorChart.cpp", ColorChartForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\ColorLibrary_F.cpp", ColorLibraryForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\CommonPrint.cpp", CommonPrintForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\DobbyDesign.cpp", DobbyDesignForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\FileManager_F.cpp", FileManagerForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\Main.cpp", MainForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\MainDesign_F.cpp", MainDesignForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\MainMenu.cpp", MainMenuForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\Palette.cpp", PaletteForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\PalFileManager.cpp", PFMForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\Printer_F.cpp", PrintForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\ProductData_F.cpp", ProductDataForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\TextureEdit_F.cpp", TextureEditForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\TextureList_F.cpp", TextureListForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\TextureResize_F.cpp", TextureResizeForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\TextureSetting_F.cpp", TextureSettingForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\UserColor_F.cpp", UserColorLibForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\UserColorData_F.cpp", UserColorDataForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YarnArrangement_F.cpp", YarnArrangementForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YarnDesign_F.cpp", YarnDesignForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YarnDye_F.cpp", YarnDyeForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YarnRepeat_F.cpp", YarnRepeatForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YarnScan_F.cpp", YarnScanForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\YarnTable_F.cpp", YarnTableForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YarnUnit_F.cpp", YarnUnitForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\Texture_F.cpp", TextureForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\NewCanvas_F.cpp", NewCanvasForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\Environment_F.cpp", EnvironmentForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\TextureNewMenu_F.cpp", TextureNewMenuForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\SimpleWindow_F.cpp", SimpleWindowForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\about.cpp", AboutBox);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YarnArrangeMenu_F.cpp", YarnArrangeMenuForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\Resize_F.cpp", ResizeForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\SimMenu_F.cpp", SimMenuForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\SplashForm.cpp", splash);
USEFORM("W:\TexWeave\TpwTest\TexWeave\NumberInputDialog_F.cpp", NumberInputDialog);
USEFORM("W:\TexWeave\TpwTest\TexWeave\ResolutionInputDialog_F.cpp", ResolutionInputDialog);
USEFORM("W:\TexWeave\TpwTest\TexWeave\RealSizeView_F.cpp", RealSizeViewForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\DetailProductData_F.cpp", DetailProductDataForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YarnCostSetting_F.cpp", YarnCostSettingForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\NewProductData_F.cpp", NewProductDataForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\Blanket_F.cpp", BlanketForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\Combo_F.cpp", ComboForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\ComboArrange_F.cpp", ComboArrangeForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\ComboMenu_F.cpp", ComboMenuForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\ComboPrint_F.cpp", ComboPrintForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\ComboScreen_F.cpp", ComboScreenForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\HairEffect_F.cpp", HairEffectForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\MakeMark_F.cpp", MakeMarkForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\Seersucker_F.cpp", SeersuckerForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\SeersuckerPreview_F.cpp", SeersuckerPreviewForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\SimpleAPTable_F.cpp", SimpleAPTableForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\TextureForBlanket.cpp", TextureFormForBlanket);
USEFORM("W:\TexWeave\TpwTest\TexWeave\TexturePrint_F.cpp", TexturePrintForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YACombo_F.cpp", YAComboForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YAComboEdit_F.cpp", YAComboEditForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\YarnPrint_F.cpp", YarnPrintForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\Denting_F.cpp", DentingForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\DobbyDesign_F.cpp", EasyDobbyDesignForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\SavingFormat_F.cpp", SavingFormatForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\Authorization_F.cpp", AuthorizationForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\ColorInfoView_F.cpp", ColorInfoViewForm);
USEFORM("W:\TexWeave\TpwTest\TexWeave\OldForm\DTPColorLibrary_F.cpp", DTPColorLibraryForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
 	const char mutexname[] = "TexWeaveDesignCAD";
	HANDLE hMutex = NULL;

  OSVERSIONINFO strOSVersionInfo;
  strOSVersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
	try
	{
    GetVersionEx(&strOSVersionInfo);
/*
    if (strOSVersionInfo.dwPlatformId == VER_PLATFORM_WIN32_NT) {
#ifndef _DEBUG
      hMutex = OpenMutex(SYNCHRONIZE, false, mutexname);
#endif
    } else {
*/
      hMutex = OpenMutex(0, false, mutexname);
//    }
    if (hMutex==NULL) {
    	hMutex = CreateMutex(NULL, true, mutexname);
    } else {
		  CloseHandle(hMutex);
    	ShowMessage("Application Already Running.");
      return 0;
    }
		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

    splash = new Tsplash(Application);
    splash->Show();
    splash->Update();
#ifdef NETHASP
		Application->Title = "TexWeave NetHASP Design CAD System";
#else
    Application->Title = "TexWeave Design CAD System";
#endif
    Application->CreateForm(__classid(TMainForm), &MainForm);
     Application->CreateForm(__classid(TTextureEditForm), &TextureEditForm);
     Application->CreateForm(__classid(TNewProductDataForm), &NewProductDataForm);
     Application->CreateForm(__classid(TSavingFormatForm), &SavingFormatForm);
     splash->Close();
     Application->Run();
	}
	catch (Exception &exception)
	{
		Application->ShowException(&exception);
	}
  ReleaseMutex(hMutex);
  CloseHandle(hMutex);
	return 0;
}
//---------------------------------------------------------------------------