HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [DELPHI] таймер
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

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

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

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

Репутация: 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
Познающий
Регистрация: 21.11.2008
Сообщений: 36
С нами: 9194467

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

  #4  
Старый 01.05.2009, 19:45
Ant1Player
Познающий
Регистрация: 21.11.2008
Сообщений: 36
С нами: 9194467

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



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



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


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




ANTICHAT ™ © 2001- Antichat Kft.