🚀 go-pugleaf

Remy Lebeau (TeamB) wrote:
> Why are you creating the icon so early to begin with?
Well, I assumed that the best time to create the icon is when my 
application starts.

I suppose I could use a timer and wait until a few seconds after 
initializing my app before actually creating the system tray icon. And 
probably this will reduce, if not eliminate, my problem. But I would 
have to pick an arbitrary number for the delay and I'm unsure what value 
to pick. Should I wait 3 seconds, or maybe 10 seconds just to be sure? 
Furthermore, when the user manually starts the application (instead of 
during Windows start-up), they expect the system tray icon to appear 
immediately).

So, perhaps it still would be best attempt to create the icon asap 
during startup and then retry periodically (e.g. every second) until 
NIM_ADD actually succeeds ?

This is where I attempt to create my icon during startup:

__fastcall TActivityMonitorServer::TActivityMonitorServer
   (TComponent* Owner): TForm(Owner)
{
    DEBUG("Activity Monitor Server %s started.",SERVER_VERSION);
    SetTrayIcon(NIM_ADD,BALLOON_OFF,"RES_ICON_SERVER_WARNING");
    ...
}

> Are you setting up your message handler before "TaskbarCreated" is actually 
> broadcasted?

I'm setting it up as soon as possible (during WM_CREATE) but since 
NIM_ADD sometimes fails without subsequently ever receiving a 
TaskbarCreated message, I'm guessing that something else is causing my 
NIM_ADD to fail. The actual TaskbarCreated message handler is working 
just fine, as can be confirmed when I simulate a shell crash (by 
terminating and restarting explorer.exe)

void __fastcall TActivityMonitorServer::WndProc(TMessage& Message)
{
   static UINT WM_TASKBARCREATED;

   switch (Message.Msg)
   {
     case WM_CREATE:
       WM_TASKBARCREATED=::RegisterWindowMessage(TEXT("TaskbarCreated"));
       break;

     default:
       if (Message.Msg==WM_TASKBARCREATED)
       {
         // re-create the system tray icon
        SetTrayIcon(NIM_ADD,BALLOON_OFF,"RES_ICON_SERVER_WARNING");
    }

    TForm::WndProc(Message);
}

Kris