MemoryEx and catch the WM_POWERBROADCAST not work in minimize to tray

[alihady]

i use this code it work good but when application minimize to system tray it not work!

Subclass.Remove(Application.GetWndHandle()); 
              WM_POWERBROADCAST = 0x218;
              WM_DESTROY = 0x0002;
              PBT_APMPOWERSTATUSCHANGE = 10;
              PBT_APMRESUMEAUTOMATIC = 18;
              PBT_APMRESUMESUSPEND = 7;
              PBT_APMSUSPEND = 4;
              PBT_POWERSETTINGCHANGE = 32787;
              local s = Subclass.Create(Application.GetWndHandle(), function(hWnd, uMsg, wParam, lParam)
             
                if(uMsg == WM_DESTROY)then
                 Subclass.Remove(Application.GetWndHandle());
                 return 0
                end
               
                if(uMsg == WM_POWERBROADCAST)then
                
                 if (wParam == PBT_APMPOWERSTATUSCHANGE) then
                 Application.Restore();
		Paragraph.SetText("Paragraph1", "PBT_APMPOWERSTATUSCHANGE.");

                 
                 elseif (wParam == PBT_APMRESUMEAUTOMATIC) then
                 Application.Restore();
		 Paragraph.SetText("Paragraph2", "PBT_APMRESUMEAUTOMATIC.");

                 elseif (wParam == PBT_APMRESUMESUSPEND) then
                 Application.Restore();
		 Paragraph.SetText("Paragraph3", "PBT_APMRESUMESUSPEND");

                 elseif (wParam == PBT_APMSUSPEND) then
                 Application.Restore();
		 Paragraph.SetText("Paragraph4", "PBT_APMSUSPEND");

                 elseif (wParam == PBT_POWERSETTINGCHANGE) then
                 Application.Restore();
		 Paragraph.SetText("Paragraph5", "PBT_POWERSETTINGCHANGE");

                 end
                end
              return Subclass.OldWinProc(hWnd, uMsg, wParam, lParam);
              end)

what is wrong ?

[RizlaUK]

http://msdn.microsoft.com/en-us/library/windows/desktop/aa373195%28v=vs.85%29.aspx

^^ check that, maybe AMS is destroying the window, i dont know and dont have time to test