Upload New File Main.pas

main.pas

@@ -0,0 +1,101 @@
+unit Main;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus, Unix;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    MenuItem1          : TMenuItem;
+    MenuItem2          : TMenuItem;
+    MenuItem3          : TMenuItem;
+    PopupMenu1         : TPopupMenu;
+    TrayIcon1          : TTrayIcon;
+    procedure FormCreate(Sender: TObject);
+    procedure MenuItem1Click(Sender: TObject);
+    procedure MenuItem2Click(Sender: TObject);
+    procedure MenuItem3Click(Sender: TObject);
+  private
+
+  public
+
+  end;
+
+var
+  Form1                 : TForm1;
+  S                     : LongInt;
+  HasPassword           : Boolean;
+  Password              : String;
+
+implementation
+
+{$R *.frm}
+
+{ TForm1 }
+
+procedure CameraOn;
+begin
+    S := fpsystem(concat('echo ',Password,' | sudo -S modprobe uvcvideo'));
+end;
+
+procedure CameraOff;
+begin
+    S := fpsystem(concat('echo ',Password,' | sudo -S modprobe -r uvcvideo'));
+end;
+
+procedure AskPassword;
+begin
+    Password := PasswordBox('User Input','Please Enter Sudo Password');
+    HasPassword := True;
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+    HasPassword                 := false;
+    application.showmainform    := false;
+    TrayIcon1.Hint              := 'Camera Switch';
+    TrayIcon1.ShowIcon          := True;
+    TrayIcon1.Show;
+
+end;
+
+procedure TForm1.MenuItem1Click(Sender: TObject);
+begin
+    if HasPassword then
+       begin
+           CameraOn;
+       end
+    else
+        begin
+          AskPassword;
+          CameraOn;
+        end;
+end;
+
+procedure TForm1.MenuItem2Click(Sender: TObject);
+begin
+    if HasPassword then
+       begin
+           CameraOff;
+       end
+    else
+        begin
+          AskPassword;
+          CameraOff;
+        end;
+end;
+
+procedure TForm1.MenuItem3Click(Sender: TObject);
+begin
+    TrayIcon1.Hide;
+    Halt (0);
+end;
+
+end.
+