program SunkAssister;

uses
  Vcl.Forms,
  System.SysUtils,
  Tocsg.Safe,
  Tocsg.Shell,
  Tocsg.Path,
  Tocsg.Win32,
  DAstMain in 'DAstMain.pas' {DlgKoAstMain},
  Define in 'Define.pas',
  DConfig in 'Config\DConfig.pas' {DlgConfig},
  ManagerConfig in 'Config\ManagerConfig.pas',
  FShotcutForder in 'Shotcut\FShotcutForder.pas' {FrmShotcutForder: TFrame},
  DAddShotcutForder in 'Shotcut\DAddShotcutForder.pas' {DlgAddShotcutFolder},
  DShowAudioVolume in 'Config\DShowAudioVolume.pas' {DlgShowAudioVolume},
  DAngle in 'MessageBox\DAngle.pas' {DlgAngle},
  FWindowPage in 'WindowPage\FWindowPage.pas' {FrmWindowPage: TFrame},
  ManageWindowPage in 'WindowPage\ManageWindowPage.pas',
  DKeyInput in 'View\DKeyInput.pas' {DlgKeyInput},
  DCloseQuestion in 'MessageBox\DCloseQuestion.pas' {DlgCloseQuestion},
  DLockScreen in 'Lock\DLockScreen.pas' {DlgLockScreen},
  DefineWndMon in '..\..\WndMsgHook\DefineWndMon.pas',
  CtrlWndActiveHook in '..\..\WndMsgHook\EXE_WndMsgHook\CtrlWndActiveHook.pas',
  DefineKeyMon in '..\..\KeyMon\DefineKeyMon.pas',
  KeyMonDLL in '..\..\KeyMon\EXE_KeyMon\KeyMonDLL.pas';

{$R *.res}

var
  sExeUpdate: String;
  mtx: TTgMutex;

begin
  ReportMemoryLeaksOnShutdown := DebugHook <> 0;

//{$IFDEF DEBUG}
//  if DebugHook = 0 then
//  begin
//{$ENDIF}
//    sExeUpdate := GetCurrentPathDir + APP_UPDATE;
//    if FileExists(sExeUpdate) then
//      ExecutePath(sExeUpdate, Format('/pjname %s /exename %s',
//                                     [FAMILY_NAME, APP_EXECUTE]));
//{$IFDEF DEBUG}
//  end;
//{$ENDIF}

{$IFNDEF DEBUG}
  sExeUpdate := GetRunExePathDir + APP_UPDATE;
  if FileExists(sExeUpdate) then
    ExecutePath(sExeUpdate, Format('/pjname %s /exename %s',
                                   [FAMILY_NAME, APP_EXECUTE]));
{$ENDIF}

  Guard(mtx, TTgMutex.Create(APP_MUTEX));
  if mtx.MutexState = msAlreadyExist then
    exit;

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TDlgKoAstMain, DlgKoAstMain);
  Application.Run;
end.