Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   [DELPHI] таймер (https://forum.antichat.xyz/showthread.php?t=118660)

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

Flame of Soul 01.05.2009 18:53
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; 
доработаете как вам надо

Ant1Player 01.05.2009 18:56
спасибо!

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


Время: 13:32