mmmm algo asi pero processactive no es una funcion TT_TT
Código Delphi
[-]procedure TForm1.OnTimer(Sender: TObject);
begin
if processactive('Blocker.exe')=false then
Shellexecute(handle,'open','C:\Windows\Blocker.exe',nil,'C:\Windows\',SW_SHOWNORMAL);