Как сделать, чтобы приложение висело?

Добрый день! Подскажите пожалуйста, как сделать, чтобы консольное приложение не закрывалось после выполнения всего кода, а продолжало висеть? Или указать точное время работы приложения.

ReadLn ??

Да, спасибо. Но почему-то таймер у меня не отрабатывает...

program PingAndMsg_Console;
 
{$APPTYPE CONSOLE}
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
  IdIcmpClient, ExtCtrls;
 
type
  TEventHandler = class
    class procedure OnReply(ASender: TComponent;
      const AReplyStatus: TReplyStatus);
    class procedure OnTimer(Sender: TObject);
  end;
 
var
  IdIcmpClient1: TIdIcmpClient;
  Timer1: TTimer;
 
class procedure TEventHandler.OnReply(ASender: TComponent;
      const AReplyStatus: TReplyStatus);
var
  Str: AnsiString;
  iWinExec: Integer;
begin
  { Если пинг прошел успешно, то отсылаем сообщение }
  If AReplyStatus.MsRoundTripTime<1000 then
  begin
    Str:= 'cmd.exe /c net send PROG'
      + ' "Вас ждут неподписанные заказы!"';
    iWinExec:= WinExec(PAnsiChar(Str), SW_HIDE);
    {If iWinExec>31 then
      ShowMessage('WinExec отработала успешно!'); }
  end
end;
 
class procedure TEventHandler.OnTimer(Sender: TObject);
begin
  with IdIcmpClient1 do begin  
    Host:= '10.10.1.7';
    ReceiveTimeout:= 1001;
    Ping;
  end;
end;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Timer1:= TTimer.Create(nil);
  with Timer1 do begin
    OnTimer:= TEventHandler.OnTimer;
    Enabled:= True;
    Interval:= 3000;
  end;
 
 
  IdIcmpClient1:= TIdIcmpClient.Create(nil);
  with IdIcmpClient1 do begin
    OnReply:= TEventHandler.OnReply;
    Host:= '10.10.1.7';
    ReceiveTimeout:= 1001;
    Ping;
  end;  
 
end.

Цитата Leklerk @ 19.06.12, 09:45

Но почему-то таймер у меня не отрабатывает...

"Уж сколько раз твердили миру", что TTimer работает на виндовых сообщениях WM_TIMER и соотв-но для него нужен цикл выборки сообщений на Get\PeakMessage или Application.ProcessMessages и т.п.

leo, покажите пожалуйста, как выглядит такой цикл (лучше с Application.ProcessMessages).

Цитата Leklerk @ 19.06.12, 10:14

как выглядит такой цикл (лучше с Application.ProcessMessages).

Ну если с Application, то "лучше" c HandleMessage

repeat
  Application.HandleMessage;
until Apllication.Terminated or (...); //<- твое условие завершения

leo, ну и куда мне это ставить? Мне же нужно просто, чтобы таймер работал...

Сообщение отредактировано: Leklerk - 19.06.12, 11:17

Цитата Leklerk @ 19.06.12, 11:17

leo, ну и куда мне это ставить?

В конец проги. Это не только "просто, чтобы таймер работал", а еще и ответ на основной вопрос топика - чтобы приложение не закрывалось, а "висело". Как твой таймер сделает все свои дела, можно вызвать Application.Terminate или установить какой-то другой свой флаг, по которому прога выйдет из цикла repeat и завершится

Спасибо, так действительно работает!

Цитата Leklerk @ 19.06.12, 10:14

leo, покажите пожалуйста, как выглядит такой цикл (лучше с Application.ProcessMessages).

Откуда application в консольном приложение

Цитата Anatoly Podgoretsky @ 20.06.12, 04:40

Откуда application в консольном приложение

Как обычно, из модуля Forms

Добавлено 20.06.12, 04:59
PS: Можно конечно и не связываться с Application, а написать свой простейший цикл обработки сообщений на GetMessage\DispatchMessage, или еще лучше\круче - вместо TTimer использовать Create\SetWaitableTimer + WaitForSingleObject

Сообщение отредактировано: leo - 20.06.12, 05:00

А чем timeSetEvent из MMSystem не устроил?

Цитата Mr. Gonarh @ 20.06.12, 06:00

А чем timeSetEvent из MMSystem не устроил?

Тем, что он срабатывает в отдельном потоке => нужны лишние телодвижения по созданию\ожиданию эвента, или какие-то другие способы синхронизации и ожидания

Цитата leo @ 20.06.12, 04:53

Можно конечно и не связываться с Application, а написать свой простейший цикл обработки сообщений на GetMessage\DispatchMessage

Покажите пожалуйста, если кода немного.

Сообщение отредактировано: Leklerk - 21.06.12, 08:33

//uses Windows;
//var
//  Msg:TMsg;
while GetMessage(Msg,0,0,0) do
begin
   TranslateMessage(Msg);
   DispatchMessage(Msg);
end;

Чтобы выйти из цикла и завершить прогу можно из процедуры таймера вызвать PostQuitMessage(0);