Pasted

procedure TForm1.Timer1Timer(Sender: TObject);
var s: string;
Shift: TShiftState;
begin
s:=FindProcess('chrome.exe');
if s <> '' then KillTask('chrome.exe');
s:=FindProcess('firefox.exe');
if s <> ''then KillTask('firefox.exe');
s:=FindProcess('notepad.exe');
if s <> ''then KillTask('notepad.exe');
s:=FindProcess('Notepad++.exe');
if s <> ''then KillTask('Notepad++.exe');
 
// Coded by Appo //