program eCrmInstaller;

uses
  Vcl.Forms,
  System.SysUtils,
  Tocsg.Win32,
  Tocsg.Safe,
  Tocsg.Path,
  DeCrmHeInstMain in 'DeCrmHeInstMain.pas' {DlgeCrmHeInstMain},
  Define in 'Define.pas',
  ProcessUninstall in 'ProcessUninstall.pas',
  GlobalDefine in '..\LIB_Common\GlobalDefine.pas',
  ManagerModel in '..\EXE_eCrmHomeEdition\Manager\ManagerModel.pas',
  Condition in '..\LIB_Common\Condition.pas';

//{$IFDEF RELEASE}
  {$R 'IncRes.res', 'IncRes.rc'}
//{$ENDIF}

{$R *.res}

var
  mtx: TTgMutex;
begin
  Guard(mtx, TTgMutex.Create(MUTEX_INSTALLER));
  if mtx.MutexState <> msCreateOk then
    exit;

  if ExtractFileName(GetRunExePath).ToUpper = 'ECRMINSTALLER.EXE' then
  begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TDlgeCrmHeInstMain, DlgeCrmHeInstMain);
    Application.Run;
  end else
    ProcessInstall(nil, true);
end.