System Tray Icon Disappears

[vaguy]

I have a perl application that presents an icon in the system tray (Windows 8 calls it the notification area). I've seen it disappear once or twice but the app continues to run). I'm assuming this is because of an Explorer restart or crash. My research suggests I need to listed for a 'TaskbarCreated' message via a RegisterWindowMessage API call. I haven't seen any code snippets in perl that might get me going. Can anybody help me out here?

[Anonymous Monk]

I have a perl application that presents an icon in the system tray ... Can anybody help me out here?

How are you creating this from the perl code ?

perlmonks RegisterWindowMessage, RegisterWindowMessage, RegisterWindowMessage, taskbar, taskbar, tray, tray,

Re: Win32: Get COM object (for IE in this case) from HWND, Win32::TSA::Notify, https://metacpan.org/pod/distribution/Win32-GUI/samples/NotifyIcon.pl, Win32::GUI::Tutorial::Part4, Win32::SysTray,

[vaguy]

I'm using Active Perl with Tk and Win32::GUI().
Calls are to Win32::GUI::Window->new and then to AddNotifyIcon.
Code looks like this:

sub SetupSystray{
 $TrayIcon  = new Win32::GUI::Icon('WebCam.ico');    
 
 $TrayWinHidden = Win32::GUI::Window->new(
                  -name => 'TrayWindow',
                  -text => 'TrayWindow',
                  -width => 20,
                  -height => 20,
                  -visible => 0,
                  );

 $TrayNotify = $TrayWinHidden->AddNotifyIcon(
               -name => "WebCam-App",
               -icon => $TrayIcon,
               -tip => "WebCam",
               -balloon_icon => "info",
               -onRightClick => \&TrackTrayMenu,
               -onClick => \&ToggleProgWindow,
               );

 $TrayMenu = Win32::GUI::Menu->new(
             "" => "Options",
             ">WebCam" => {-name => "WebCam"},
             ">-" => 0,
             ">Open/Close" => {-name => "ToggleProg", -onClick => \&To
+ggleProgWindow,-default => 1},
             ">-" => 0,
             ">Exit"   => {-name => "Exit",-onClick => \&CloseDownFrom
+Tray}
             ) or prtFTL "Failed to create Tray Menu $!";
 }

sub CloseDownFromTray{
    $mw->destroy;
}