Pasted

var s: string;
Shift: TShiftState;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=FindProcess('notepad.exe'); //This detection process
WinExec('taskkill /f /im notepad.exe',SW_HIDE);
s:=FindProcess('notepad.exe');
if s <> '' then KillTask('RADIO.exe'); //close this
end;
 
// Coded by Appo //