Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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 //
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement