program KeyMon;

uses
  Vcl.Forms,
  Tocsg.Win32,
  Tocsg.Safe,
  DKeyMonMain in 'DKeyMonMain.pas' {DlgKeyMon},
  Define in 'Define.pas',
  KeyMonDLL in 'KeyMonDLL.pas',
  DefineKeyMon in '..\DefineKeyMon.pas';

{$R *.res}

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

  ReportMemoryLeaksOnShutdown := DebugHook <> 0;

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TDlgKeyMon, DlgKeyMon);
  Application.Run;
end.