Консольное приложение без окна

[Nester]

Давно не кодил и уже многое подзабыл

Имеем обычное консольное приложение только без окна
При запуске входит в цикл и в нем всё время работает
необходимо отловить момент закрытия приложения (завершения работы ОС) и выполнить некоторые действия

как сие правильно реализовать

[Johnson]

Завершение работы приложения системой можно отследить только по оконному сообщению WM_DESTROY.
Создаете окно посредством винапи и назначаете ему обработчик сообщений.

[Nester]

спасибо!
буду пробовать

Я так понял что для перехвата сообщения WM_DESTROY
необходимо создать окно и через WindowProc уже ловить
но мне не нужно окно (даже скрытое)
как быть?

[Johnson]

Без окна - никак.
Создаете окно CreateWindows, назначаете ему WindowProc, и в нем отлавливаете одно-единственное сообщение... Кода на 20 строк максимум, всё просто.

[Nester]

Согласен что просто!
Но хотел без окна - наверно есть способы но они ещё геморнее
Спасибо за помощь!

[veniside]

я бы попробовал типа такого:

PHP код:

program
  Project1;

{$APPTYPE CONSOLE}

uses
  Windows, Messages;

var
  m: MSG;
  jobDone: boolean;
begin
  //
  repeat
    //
    // do another piece of out job
    // ...
    // check if shutdown was requested
    while (PeekMessage(m, 0, 0, 0, PM_REMOVE)) do begin
      //
      case (m.message) of

        WM_QUERYENDSESSION:     ;
                  //
                  // return true and terminate the application
                  //
      end;
    end;
    //
  until (jobDone);
  //
end. 


[Stilet]

я бы попробовал типа такого:

Врядли... Окна то нет.

[Nester]

У меня не заработало (Win7)

[Johnson]

И не должно было заработать. Без ОКНА невозможно принять ОКОННЫЕ сообщение... Собсна на то они и оконные...

[JTG]

Будет работать

uses Windows, Messages;

function MsgProc(wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  Case Msg of
    WM_TIMER: if MessageBox(0, 'Продолжить?', '', MB_YESNO + MB_ICONQUESTION) = IDNO then halt;
  End;
end;

var Msg: TMsg;
    hTimer: DWord;

begin
  hTimer := SetTimer(0, 12345, 2000, nil);
  while GetMessage(Msg, 0, 0, 0) do
     MsgProc(Msg.hwnd, Msg.message, Msg.wparam, Msg.lparam);
end.

Вот такая заковыка есть http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx, но может это относится только к потокам? (remarks - винда не создаёт очередь обработки сообщений для потока и предлагается вызвать PeekMessage(&msg, NULL, WM_USER, WM_USER, PM_NOREMOVE) to force the system to create the message queue)