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;
под процесс
то есть какие команды на поиск и на убивание процесса идут?