//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Define.h"
#include "SplashForm.h"
USERES("Tex3D.res");
USEUNIT("W:\TpwTest\Common.cpp");
USEUNIT("W:\TpwTest\Define.cpp");
USEUNIT("W:\TpwTest\Exception.cpp");
USEUNIT("W:\TpwTest\File.cpp");
USEUNIT("W:\TpwTest\ProtectCard.cpp");
USEFORM("W:\TpwTest\about.cpp", AboutBox);
USEFORM("W:\TpwTest\CommonPrint.cpp", CommonPrintForm);
USEFORM("W:\TpwTest\EnlargeCanvas.cpp", EnlargeCanvasForm);
USEFORM("W:\TpwTest\FileManager_F.cpp", FileManagerForm);
USEFORM("W:\TpwTest\FullView.cpp", FullViewForm);
USEFORM("W:\TpwTest\NewCanvas.cpp", NewCanvasForm);
USEFORM("W:\TpwTest\Palette.cpp", PaletteForm);
USEFORM("W:\TpwTest\PalFileManager.cpp", PFMForm);
USEFORM("W:\TpwTest\ResizeCanvas.cpp", ResizeCanvasForm);
USEFORM("W:\TpwTest\SplashForm.cpp", splash);
USEFORM("W:\TpwTest\UserColor_F.cpp", UserColorLibForm);
USEFORM("W:\TpwTest\UserColorData_F.cpp", UserColorDataForm);
USEFORM("W:\TpwTest\TPrint_F.cpp", TPrintForm);
USEUNIT("W:\TpwTest\n3d\Undo.cpp");
USEFORM("W:\TpwTest\n3d\Main.cpp", MainForm);
USEFORM("W:\TpwTest\n3d\MainImage.cpp", MainImageForm);
USEFORM("W:\TpwTest\n3d\MainMenu.cpp", MainMenuForm);
USEUNIT("W:\TpwTest\VecDraw.cpp");
USEFORM("W:\TpwTest\Vector_F.cpp", VectorForm);
USEUNIT("W:\TpwTest\n3d\Data3D3.cpp");
USEFORM("W:\TpwTest\n3d\N3DGrid.cpp", N3DGridForm);
USEFORM("W:\TpwTest\ColorChart.cpp", ColorChartForm);
USEFORM("W:\TpwTest\Dialog_F.cpp", DialogForm);
USEFORM("W:\TpwTest\ColorLibrary_F.cpp", ColorLibraryForm);
USEFORM("W:\TpwTest\n3d\Layer_F.cpp", LayerForm);
USEFORM("W:\TpwTest\n3d\N3DPattern.cpp", N3DPatternForm);
USEFORM("W:\TpwTest\n3d\N3DPatternMenu.cpp", N3DPatternMenuForm);
USEFORM("W:\TpwTest\n3d\N3DShadow.cpp", N3DShadowForm);
USEFORM("W:\TpwTest\n3d\N3DDropper.cpp", N3DDropperForm);
USEUNIT("W:\TpwTest\n3d\TN3D.cpp");
USEUNIT("W:\TpwTest\n3d\TLayer.cpp");
USEUNIT("W:\TpwTest\n3d\N3DLib.cpp");
USEFORM("W:\TpwTest\Grid_F.cpp", GridForm);
USEFORM("\\newfile\n3d2\TpwTest\FileManager_waiting_F.cpp", FileManagerWaitingForm);
USEFORM("\\newfile\n3d2\TpwTest\n3d\N3DPattern_waiting_F.cpp", N3DPatternWaitingForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
  const char mutexname[] = "TexpiaDesignCAD(New3D)";
  HANDLE hMutex;

  try
  {
  	hMutex = OpenMutex(0, false, mutexname);
    if (hMutex==NULL) {
    	hMutex = CreateMutex(NULL, true, mutexname);
    } else {
    	CloseHandle(hMutex);
      ShowMessage("Application already running.");
      return 0;
    }
    Application->Initialize();
    splash = new Tsplash(Application);
    splash->Show();
    splash->Update();
    Application->Title = "Texpro Design CAD System - " + ProductName + " (Professional)";
    Application->CreateForm(__classid(TMainForm), &MainForm);
       splash->Close();
    Application->Run();
  }
  catch (Exception &exception)
  {
    Application->ShowException(&exception);
  }
  ReleaseMutex(hMutex);
  CloseHandle(hMutex);
  return 0;
}
//---------------------------------------------------------------------------