Конкретно как "...это автоматизировать...в планеровщике" не знаю, а в среде делфи можно так, пример для блокнота
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FindWindow('Notepad', nil) <> 0 then
Label1.Caption:= 'Блокнот появился'
else
Label1.Caption:= 'Нет блокнота';
end;