From b280bc80b160d23930b0fe34094c1e8782ea3004 Mon Sep 17 00:00:00 2001
From: PSposito <paschalis.sp@gmail.com>
Date: Wed, 26 Feb 2020 02:30:39 +0200
Subject: [PATCH] Added Unique Instance of the Application

---
 main.frm | 6 ++++++
 main.pas | 7 ++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/main.frm b/main.frm
index 2ba2a3a..5203819 100644
--- a/main.frm
+++ b/main.frm
@@ -31398,4 +31398,10 @@ object Form1: TForm1
       OnClick = MenuItem37Click
     end
   end
+  object UniqueInstance1: TUniqueInstance
+    Enabled = True
+    Identifier = 'CameraControl'
+    Left = 832
+    Top = 664
+  end
 end
diff --git a/main.pas b/main.pas
index af6807d..3cd9879 100644
--- a/main.pas
+++ b/main.pas
@@ -19,9 +19,9 @@ uses
   cthreads,
   {$ENDIF}
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
-  Menus, PopupNotifier, UTF8Process, ECSpinCtrls, TplTimerUnit, EpikTimer,
-  VpClock, Unix, process, About, Logs, Reboot, RebootDialog, DateUtils, LCLType,
-  LCLTranslator;
+  Menus, PopupNotifier, UTF8Process, UniqueInstance, ECSpinCtrls, TplTimerUnit,
+  EpikTimer, VpClock, Unix, process, About, Logs, Reboot, RebootDialog,
+  DateUtils, LCLType, LCLTranslator;
 
 type
 
@@ -100,6 +100,7 @@ type
     TrayIcon3          : TTrayIcon;
     TrayIcon4          : TTrayIcon;
     TrayIcon5          : TTrayIcon;
+    UniqueInstance1    : TUniqueInstance;
     VpClock1           : TVpClock;
     procedure FormCreate(Sender: TObject);
     procedure MenuItem10Click(Sender: TObject);