Напоминалка

[Smitt&Wesson]

Сообщение от Аватар

PS Между прочим tag более глобален, если так можно сказать, чем переменная определенная в private класса. Его, этот самый tag, видно и можно изменить во всех местах, где доступен указатель на экземпляр класса, а та переменная фигвам

Да, согласен. Переделал.

[Smitt&Wesson]

Чё-то нихрена у меня не получается закрыть прогу при закрытии Винды. Вот, прилагаю исходники заготовки в которой оставлены только функции управления открытием и закрытием формы. Всяко пробовал. Просидел почти неделю. Перерыл все поисковики. На дельфях инфы полно, но все предлагают воспользоваться обработчиком onQueryEndSession, которого в Buildere, хоть убейся, нету .

[Аватар]

Дык и в делфи нет такого обработчика. А есть сообщение WM_QUERYENDSESSION винды, которое не зависит от языка, на котором прога написана

[Smitt&Wesson]

Сообщение от Аватар

Дык и в делфи нет такого обработчика. А есть сообщение WM_QUERYENDSESSION винды, которое не зависит от языка, на котором прога написана

Так я пытался его получить таким методом:

        BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_USER,TMessage,MTIcon);// MyTrayIcon
        MESSAGE_HANDLER(WM_QUERYENDSESSION, TMessage, WMCLOSE);//WMCLOSE );
        END_MESSAGE_MAP(TComponent);

void __fastcall TForm1::WMCLOSE(TMessage& Msga)
{
  // WM_QUERYENDSESSION  = 0x0011
  if (Msga.WParam == WM_QUERYENDSESSION)//<= 0x0010) // WM_CLOSE
  {
    //ShowMessage("Exit App");
    DestroyWindow(Handle);
    if (Msga.WParam <= 0x0002) // WM_DESTROY
      PostQuitMessage(0);
  }
}

Если ставлю WM_CLOSE, прога просто закрывается как и при обычном нажатии на крестик. Но при этом, на закрытие винды не реагирует.
Если ставлю WM_QUERYENDSESSION, перестаёт вообще реагировать на крестик, но и на винду по прежнему не реагирует. Мозги уже кипят!

[come-on]

Так а вы читали про WM_QUERYENDSESSION, это просто запрос "что делать", и надо вернуть надо закрывать или нет.

[Smitt&Wesson]

Сообщение от come-on

Так а вы читали про WM_QUERYENDSESSION, это просто запрос "что делать", и надо вернуть надо закрывать или нет.

Ой, я за неделю столько всего перечитал и перепробовал, мама не горюй. Сайтов 100 пересмотрел. Нигде ничего толком нет. Даже по прямому запросу WM_QUERYENDSESSION, всякая чушь и флуд на форумах.
И потом, как выловить, что винда выдаёт при закрытии? Пробовал под отладчиком, так она билдер закрывает (он не в трее), а прога как висела, так и висит.
Даже нашел, где эти константы декларируются CBuilder6\Source\Vcl\messages.pas.
Пробовал и через компонент TrayIcon, всё бесполезно. Но делают же это как-то? Все проги висящие в трее, закрываются нормально. Не думал, что для такой распространённой задачки, будет так мало инфы.

[kvitaliy]

WM_QUERYENDSESSION надо ловить в CALLBACK функции

LRESULT CALLBACK WindowProc( 
  HWND hwnd,      // handle to window 
  UINT uMsg,      // message identifier 
  WPARAM wParam,  // not used 
  LPARAM lParam   // logoff option
);

если uMsg = WM_QUERYENDSESSION, то комп или выключается или перезагружается.

На Бейсике это выглядит так

Procedure WinCallback(hWnd, uMsg, wParam, lParam)
  Protected result = #PB_ProcessPureBasicEvents
  Select uMsg
  Case #WM_QUERYENDSESSION
     If 1; упростил, но тут должен быть флаг нужна задержка закрытию приложения или нет
      result=#False ; говорим винде, что мы пока не можем завершить свою работу, пусть подождет
     Else
      result=#True ; или разрешаем перезагрузиться или выключиться...
     EndIf
 
    Case #WM_ENDSESSION, #WM_CLOSE
            ;ПроцедураСохранения параметров() ; Тут ваша процедура сохранения
            MessageRequester("Внимание!","Сохраняю все данные",0)
            
      If uMsg = #WM_ENDSESSION
        result = 0 ; дела сделаны, можно разрешить винде убить программу или закрыть её самому END.
      EndIf
  EndSelect
  ProcedureReturn result
EndProcedure

If OpenWindow(0, 0, 0, 300, 200, "Перезагрузка, сохранение настроек", #PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered)
  SetWindowCallback(@WinCallback())
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
      EndSelect
  ForEver
EndIf

[Smitt&Wesson]

Вот, нашел нЕчто похожее, на то, что мне нужно: http://www.firststeps.ru/mfc/winapi/r.php?56
И куда мне эту функцию пристроить в оконной Билдеровской проге?
Пробовал, даже в главный файл проекта засунуть, одни ошибки.

[Alex11223]

https://www.google.com/search?q=wm_q...%2B%2B+builder

[Smitt&Wesson]

Сообщение от Alex11223

https://www.google.com/search?q=wm_q...%2B%2B+builder

А я всегда говорил: - Без пузыря не разобраться . Пошел. С горя взял пузырёк. Вмазал рюмочку, думаю - дай на форум загляну, а решение проблемы уже на блюдечке . Alex11223, спасибо!
Да, вот исходники заготовки, для работы с треем. Builder 6.

Сворачивается/разворачивается кликом на иконке.
Выводит сообщение при наведении мышью.
Разворачивается/закрывается из всплывающего меню.
При щелчке на "крестике", сворачивается в трей.
Закрывается, если закрывается Винда.