ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [DELPHI] таймер
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

[DELPHI] таймер
  #1  
Старый 01.05.2009, 18:40
Аватар для Ant1Player
Ant1Player
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394

Репутация: 6
По умолчанию [DELPHI] таймер
задача такая: закрывать приложение через время, если приложение не запущенно то повторить запуск таймера, если запущенно то закрыть и включить опять таймер, короче цикл, у меня выходит если приложение открыто закрывается и запускатся заного таймер но если приложение не открыто то программа закрывается... как осуществить цикл?
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if PostMessage(FindWindow(Nil, 'ICQ'), WM_QUIT, 0, 0) then
    Timer1.Enabled := true;
end;
 
Ответить с цитированием

  #2  
Старый 01.05.2009, 18:53
Аватар для Flame of Soul
Flame of Soul
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746

Репутация: 435
Отправить сообщение для Flame of Soul с помощью MSN
По умолчанию
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; 
доработаете как вам надо
 
Ответить с цитированием

  #3  
Старый 01.05.2009, 18:56
Аватар для Ant1Player
Ant1Player
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394

Репутация: 6
По умолчанию
спасибо!
 
Ответить с цитированием

  #4  
Старый 01.05.2009, 19:45
Аватар для Ant1Player
Ant1Player
Познающий
Регистрация: 21.11.2008
Сообщений: 36
Провел на форуме:
117394

Репутация: 6
По умолчанию
а как найти и закрыть процесс, а не окно как в этом случае?
Последний раз редактировалось Ant1Player; 01.05.2009 в 19:56..
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Delphi] Помощь по Synapse Apocalypse С/С++, C#, Delphi, .NET, Asm 7 28.08.2009 10:56
[Delphi] хочу исходник RPG на Delphi CeHoKoC С/С++, C#, Delphi, .NET, Asm 22 13.02.2009 18:46
[Delphi] Предлагаю услуги кодера MNX О Работе 0 23.01.2009 00:36
таймер Fantasy Болталка 0 01.12.2008 01:55
[Delphi] Добавить многопоточность бруту Navern С/С++, C#, Delphi, .NET, Asm 7 09.02.2007 10:19



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ