program WndMsgHookAs64;

uses
  Vcl.Forms,
  Tocsg.Safe,
  Tocsg.Win32,
  Tocsg.Param,
  Tocsg.Trace,
  Tocsg.Path,
  DAssistHookMain in 'DAssistHookMain.pas' {DlgAssistHookMain},
  Define in 'Define.pas';

{$R *.res}

var
  mtx: TTgMutex;
  param: TProcessParam;
  trace: TTgTrace;
begin
//  Safer(mtx, TTgMutex.Create(APP_MUTEX));
//  if mtx.MutexState = msAlreadyExist then
//    exit;

{$IFDEF DEBUG}
  Guard(trace, TTgTrace.Create(GetCurrentPath + '.log'));
{$ENDIF}
  TTgTrace.t('WndMsgHookAs64 - Begin');

  Guard(param, TProcessParam.Create);
  if not param.IsParamOK then
  begin
//    TTgTrace.t('WndMsgHookAs64 - No param .. exit');
    exit;
  end;

  ReportMemoryLeaksOnShutdown := DebugHook <> 0;

  Application.Initialize;
  Application.ShowMainForm := false;
  Application.MainFormOnTaskbar := false;//True;
  Application.CreateForm(TDlgAssistHookMain, DlgAssistHookMain);
  Application.Run;

  TTgTrace.t('WndMsgHookAs64 - End');
end.