appo

Close program on detection process

Dec 27th, 2013
390
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;
  10.  
  11. // Coded by Appo //
RAW Paste Data