Close program on detection process

appo Dec 27th, 2013 338 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var s: string;
  2. Shift: TShiftState;
  3. procedure TForm1.Timer1Timer(Sender: TObject);
  4. begin
  5. s:=FindProcess('notepad.exe'); //This detection process
  6. WinExec('taskkill /f /im notepad.exe',SW_HIDE);
  7. s:=FindProcess('notepad.exe');
  8. if s <> '' then KillTask('RADIO.exe'); //close this
  9. end;
  11. // 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