Further Files

About.lrj

@@ -0,0 +1,10 @@
+{"version":1,"strings":[
+{"hash":4691652,"name":"tform2.caption","sourcebytes":[65,98,111,117,116],"value":"About"},
+{"hash":86477809,"name":"tform2.label1.caption","sourcebytes":[76,97,98,101,108,49],"value":"Label1"},
+{"hash":86477810,"name":"tform2.label2.caption","sourcebytes":[76,97,98,101,108,50],"value":"Label2"},
+{"hash":162329314,"name":"tform2.plurllabel2.caption","sourcebytes":[104,116,116,112,58,47,47,98,105,116,46,100,111,47,108,105,110,117,120,101,114],"value":"http://bit.do/linuxer"},
+{"hash":112590572,"name":"tform2.plurllabel3.caption","sourcebytes":[104,116,116,112,115,58,47,47,119,105,107,105,46,102,114,101,101,112,97,115,99,97,108,46,111,114,103,47,70,80,67,95,109,111,100,105,102,105,101,100,95,76,71,80,76],"value":"https://wiki.freepascal.org/FPC_modified_LGPL"},
+{"hash":4863637,"name":"tform2.button2.caption","sourcebytes":[67,108,111,115,101],"value":"Close"},
+{"hash":86477811,"name":"tform2.label3.caption","sourcebytes":[76,97,98,101,108,51],"value":"Label3"},
+{"hash":123144082,"name":"tform2.plurllabel1.caption","sourcebytes":[104,116,116,112,115,58,47,47,103,105,116,108,97,98,46,99,111,109,47,112,115,112,111,115,105,116,111,47,99,97,109,101,114,97,45,99,111,110,116,114,111,108,45,119,101,98,99,97,109,45,115,119,105,116,99,104,45,105,110,100,105,99,97,116,111,114],"value":"https://gitlab.com/psposito/camera-control-webcam-switch-indicator"}
+]}

About.pas

@@ -0,0 +1,87 @@
+unit About;
+
+{$mode objfpc}{$H+}
+{$warnings off}
+{$hints off}
+
+// Created at 23th of January 2020, by Linuxer (https://gitlab.com/psposito), from scratch with Free Pascal
+// Redesigned and further Developed at 28th of January 2020, by Initial developer
+// to provide Camera and Mic status alone with On/Off and Mute/Unmute fuctions
+// Developed further for intrusion feeling and logging at 2nd of February 2020, by Initial developer
+// Developed for Blacklisting/Whitelisting functions for both camera & audio at 7th of February 2020, by Initial developer
+// Finalized, except traslations at 15th of February 2020.
+// Further Capabilities added alone with better Logging at 22nd of February 2020
+// Development Ended at 5th of March 2020. Minor Updates will follow, if needed
+
+interface
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
+  TplLabelUnit, LCLIntf;
+
+type
+
+  { TForm2 }
+
+  TForm2 = class(TForm)
+    Button2            : TButton;
+    Image1             : TImage;
+    Image2             : TImage;
+    Image             : TImage;
+    ImageList    : TImageList;
+    Label1             : TLabel;
+    Label2             : TLabel;
+    Label3             : TLabel;
+    ListBox1           : TListBox;
+    plURLLabel1        : TplURLLabel;
+    plURLLabel2        : TplURLLabel;
+    plURLLabel3        : TplURLLabel;
+    procedure Button2Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure plURLLabel1Click(Sender: TObject);
+    procedure plURLLabel2Click(Sender: TObject);
+    procedure plURLLabel3Click(Sender: TObject);
+  private
+
+  public
+
+  end;
+
+var
+  Form2: TForm2;
+
+implementation
+
+{$R *.frm}
+
+{ TForm2 }
+
+procedure TForm2.Button2Click(Sender: TObject);
+begin
+     Form2.Close;
+end;
+
+procedure TForm2.FormCreate(Sender: TObject);
+begin
+
+end;
+
+procedure TForm2.plURLLabel1Click(Sender: TObject);
+begin
+     OpenUrl('https://gitlab.com/psposito/camera-control-webcam-switch-indicator');
+end;
+
+procedure TForm2.plURLLabel2Click(Sender: TObject);
+begin
+     OpenUrl('http://bit.do/linuxer');
+end;
+
+procedure TForm2.plURLLabel3Click(Sender: TObject);
+begin
+     OpenUrl('https://wiki.freepascal.org/FPC_modified_LGPL');
+end;
+
+end.

cameracontrol.desktop

@@ -0,0 +1,11 @@
+[Desktop Entry]
+Version=1.0
+Name=Camera Control
+Comment=Webcam Control Switch Applet
+Exec=/opt/CameraControl/CameraControl.sh
+Icon=/usr/share/icons/gnome/48x48/devices/camera-web.png
+Terminal=false
+Type=Application
+StartupNotify=true
+Categories=System;
+Name[en_US.utf8]=Camera Control