linuxer.gr
/
camera-control-webcam-switch-indicator
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added Unique Instance of the Application

This commit is contained in:
PSposito 2020-02-26 02:30:39 +02:00
parent e8a6bdbd88
commit b280bc80b1
No known key found for this signature in database
GPG Key ID: 92E2BB27E8617EFC
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
main.frm
View File

@ -31398,4 +31398,10 @@ object Form1: TForm1
OnClick = MenuItem37Click
end
end
object UniqueInstance1: TUniqueInstance
Enabled = True
Identifier = 'CameraControl'
Left = 832
Top = 664
end
end

7
main.pas
View File

@ -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);