[DELPHI] таймер

задача такая: закрывать приложение через время, если приложение не запущенно то повторить запуск таймера, если запущенно то закрыть и включить опять таймер, короче цикл, у меня выходит если приложение открыто закрывается и запускатся заного таймер но если приложение не открыто то программа закрывается... как осуществить цикл?

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if PostMessage(FindWindow(Nil, 'ICQ'), WM_QUIT, 0, 0) then
    Timer1.Enabled := true;
end;

 

PHP:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FindWindow(nil, 'ICQ') <> 0 then  //поиск окна
  begin
  ShowMessage('Окно найдено');
  PostMessage(FindWindow(Nil, 'ICQ'), WM_QUIT, 0, 0); //закрываем
end
else
  begin
  ShowMessage('Окно Ненайдено');
  Form1.Close; //выходим с приложения
  end;
end;

доработаете как вам надо

 

спасибо!

 

а как найти и закрыть процесс, а не окно как в этом случае?