01.05.2009, 18:53
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами:
9980798
Репутация:
435
|
|
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;
доработаете как вам надо |
|
|