daily pastebin goal
9%
SHARE
TWEET

Kill processes

appo Dec 27th, 2013 333 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure TForm1.Timer1Timer(Sender: TObject);
  2. var s: string;
  3. Shift: TShiftState;
  4. begin
  5. s:=FindProcess('chrome.exe');
  6. if s <> '' then KillTask('chrome.exe');
  7. s:=FindProcess('firefox.exe');
  8. if s <> ''then KillTask('firefox.exe');
  9. s:=FindProcess('notepad.exe');
  10. if s <> ''then KillTask('notepad.exe');
  11. s:=FindProcess('Notepad++.exe');
  12. if s <> ''then KillTask('Notepad++.exe');
  13.  
  14. // Coded by Appo //
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top