🚀 go-pugleaf

"Dennis Jones" <nospam@nospam.com> wrote in message
news:447cf4e6$1@newsgroups.borland.com...

> Right.  In my case, the process is kicked off by a TTimer::OnTimer event
> handler on the application's main form and uses PostMessage calls to close
> the windows in question.

One thing to try is to have each form that shows a MessageBox grab the HWND,
like I mentioned earlier, and store it in a member of itself.  Then your
TTimer can close the active MessageBox of any form it wants.  For example
(untested):

    class TForm1 : public TForm
    {
    private:
        HWND hMsgBoxWnd;
        HHOOK hMsgBoxHook;
        static LRESULT CALLBACK MsgBoxCBTProc(int nCode, WPARAM wParam,
LPARAM lParam);
    public:
        int __fastcall ShowMsgBox(const AnsiString &Msg, const AnsiString
&Title, int Flags);
        void __fastcall CloseMsgBox();
    };


    LRESULT CALLBACK TForm1::MsgBoxCBTProc(int nCode, WPARAM wParam, LPARAM
lParam)
    {
        if( nCode == HCBT_ACTIVATE )
            Form1->hMsgBoxWnd = reinterpret_cast<HWND>(wParam);

        return ::CallNextHookEx(Form1->hMsgBoxHook);
    }

    int __fastcall TForm1::ShowMsgBox(const AnsiString &Msg, const
AnsiString &Title, int Flags)
    {
        hMsgBoxHook = ::SetWindowsHookEx(WH_CBT, (HOOKPROC) MsgBoxCBTProc,
NULL, GetCurrentThreadId());
        if( !hMsgBoxHook )
            return 0;

        int iRet = ::MessageBox(NULL, Msg.c_str(), Title.c_str(), Flags);
        hMsgBoxWnd = NULL;

        ::UnhookWindowsHookEx(hMsgBoxHook);
        hMsgBoxHook = NULL;

        return iRet;
    }

    void __fastcall TForm1::CloseMsgBox()
    {
        if( hMsgBoxWnd )
            ::EndDialog(hMsgBoxWnd, IDABORT);
    }

    void __fastcall TForm1::Timer1Timer(TObject *Sender)
    {
        Form1->CloseMsgBox();
    }


Gambit