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

Fixed main.pas Release Number

This commit is contained in:
Linuxer パスカリス スポシト 2020-02-10 00:04:10 +00:00
parent 95227ebf6b
commit cccfa927a9
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
main.pas
View File

@ -138,6 +138,11 @@ procedure RebootSystem; forward;
{ TForm1 } { TForm1 }
procedure SetReleaseNo;
begin
ReleaseNo := '1.2.3';
end;
procedure GetMicCaptureStatus; procedure GetMicCaptureStatus;
var var
AStringList : TStringList; AStringList : TStringList;
@ -167,7 +172,7 @@ end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
ReleaseNo := '1.2-1'; SetReleaseNo;
application.showmainform := false; // Hide Main form application.showmainform := false; // Hide Main form
HasPassword := false; HasPassword := false;
CamImageIndex := 0; CamImageIndex := 0;
@ -294,6 +299,9 @@ procedure TForm1.MenuItem27Click(Sender: TObject); // Blaclist Camera and Reboo
var var
BlackListStr : String; BlackListStr : String;
begin begin
Password := '';
AskPassword;
CmdString := '';
HomeDir := expandfilename('~/'); HomeDir := expandfilename('~/');
FileString := Concat(HomeDir,'.blacklistuvcvideo '); FileString := Concat(HomeDir,'.blacklistuvcvideo ');
FileDestDir := '/etc/modprobe.d/blacklistuvcvideo.conf '; FileDestDir := '/etc/modprobe.d/blacklistuvcvideo.conf ';
@ -326,10 +334,14 @@ begin
begin begin
ShowMessage('Camera was not Whitelisted'); ShowMessage('Camera was not Whitelisted');
end; end;
CmdString := '';
end; end;
procedure TForm1.MenuItem29Click(Sender: TObject); // Whitelist Camera and Reboot procedure TForm1.MenuItem29Click(Sender: TObject); // Whitelist Camera and Reboot
begin begin
Password := '';
AskPassword;
CmdString := '';
FileDestDir := '/etc/modprobe.d/blacklistuvcvideo.conf'; FileDestDir := '/etc/modprobe.d/blacklistuvcvideo.conf';
if (FileExists(FileDestDir) = true) then if (FileExists(FileDestDir) = true) then
begin begin
@ -350,6 +362,7 @@ begin
begin begin
ShowMessage('Camera was not Blacklisted'); ShowMessage('Camera was not Blacklisted');
end; end;
CmdString := '';
end; end;
procedure TForm1.MenuItem2Click(Sender: TObject); // Password Reset procedure TForm1.MenuItem2Click(Sender: TObject); // Password Reset
@ -361,6 +374,10 @@ end;
procedure TForm1.MenuItem32Click(Sender: TObject); // Blacklist Audio and Reboot procedure TForm1.MenuItem32Click(Sender: TObject); // Blacklist Audio and Reboot
begin begin
Password := '';
HasPassword := false;
CmdString := '';
AskPassword;
GetSoundCards; GetSoundCards;
HomeDir := expandfilename('~/'); HomeDir := expandfilename('~/');
FileString := Concat(HomeDir,'.blacklistaudio '); FileString := Concat(HomeDir,'.blacklistaudio ');
@ -394,11 +411,15 @@ begin
begin begin
ShowMessage('Audio Card(s) not Whitelisted before'); ShowMessage('Audio Card(s) not Whitelisted before');
end; end;
CmdString := '';
end; end;
procedure TForm1.MenuItem33Click(Sender: TObject); // Whitelistlist Audio and Reboot procedure TForm1.MenuItem33Click(Sender: TObject); // Whitelistlist Audio and Reboot
begin begin
Password := '';
HasPassword := false;
CmdString := '';
AskPassword;
FileString := '/etc/modprobe.d/blacklistaudio.conf'; FileString := '/etc/modprobe.d/blacklistaudio.conf';
CmdString := Concat(Concat(Concat('echo ', Password), ' | sudo -S rm '), FileString); CmdString := Concat(Concat(Concat('echo ', Password), ' | sudo -S rm '), FileString);
@ -420,7 +441,7 @@ begin
begin begin
ShowMessage('Audio Card(s) not Blacklisted before'); ShowMessage('Audio Card(s) not Blacklisted before');
end; end;
CmdString := '';
end; end;
procedure RebootSystem; procedure RebootSystem;
@ -644,4 +665,4 @@ begin
end; end;
end; end;
end. end.