program HCMQTTSender;

uses
  Winapi.Windows,
  System.SysUtils,
  Vcl.Forms,
  uHCMQTTSender in 'uHCMQTTSender.pas' {frmHCMQTTSender},
  ulazharpooneventsmqttglobals in 'ulazharpooneventsmqttglobals.pas';

{$R *.res}

begin
  ReportMemoryLeaksOnShutdown := DebugHook <> 0;

  // ALE 20200918 only allow one copy of the application to run
  //  per Windows session.
  if CreateMutex(nil, True, '7FA7551D-569B-4D5E-8CE1-73EDABCB5FEF') = 0 then
    RaiseLastOSError;

  if GetLastError = ERROR_ALREADY_EXISTS then
    Exit;

  // ALE 20200918 Back to our regularly scheduled startup
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmHCMQTTSender, frmHCMQTTSender);
  Application.Run;
end.