program NILM_Agent;

uses
  Forms,
  Windows,
  Dialogs,
  uMain in 'uMain.pas' {frmMain},
  MQTT in '..\Lib\MQTT.pas',
  uConfigMQTT in 'uConfigMQTT.pas' {frmConfigMQTT},
  uConfigNILM in 'uConfigNILM.pas' {frmNILM},
  uDevConfig in 'uDevConfig.pas' {frmDevConfig},
  global in '..\Lib\global.pas';

{$R *.res}
const
  MUTEX_NAME = 'NILM Manager';
var
  mMutex: THandle;

begin
  // mutex ¿­±â
  mMutex := OpenMutex(MUTEX_ALL_ACCESS, False, MUTEX_NAME);
  // mutex ÀÌ¹Ì ÀÖ´Ù¸é ½ÇÇà ÁßÁö
  if mMutex <> 0 then Exit;
  // ¾øÀ¸¸é mutex¸¸µé°í ½ÃÀÛ
  mMutex := CreateMutex(nil, True, MUTEX_NAME);

  Application.Initialize;
  Application.Title := 'NILM Manager';
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmConfigMQTT, frmConfigMQTT);
  Application.CreateForm(TfrmNILM, frmNILM);
  Application.CreateForm(TfrmDevConfig, frmDevConfig);
  Application.Run;
end.