Re: [perl-win32-gui-users] Windows shutdown

[Jeremy W. <jez...@ho...>]

Something like below - I didn't have time to test it fully, but something is printed when I shutdown.

use strict; use Win32::GUI qw (WM_QUERYENDSESSION); my $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200, -height => 200);$main->AddLabel(-name => "Label", -text => "Hello, world", -left => 20, -top => 20, -notify => 1);$main->Hook(WM_QUERYENDSESSION,\ &EndSession);$main->Show();Win32::GUI::Dialog(); 
sub EndSession {  print "WM_QUERYENDSESSION fired\n";  return 0;}


> Date: Wed, 23 Dec 2009 23:41:11 +0100
> From: se...@h-...
> To: jez...@ho...
> CC: per...@li...
> Subject: Re: [perl-win32-gui-users] Windows shutdown
> 
> 
> Hi Jeremy,
> 
> 
> | One thing that did strike me when reading your mail was when you said
> | "application does not in itself require a GUI". When you hooked
> | WM_QUERYENDSESSION + WM_ENDSESSION, are you sure your application is
> | sitting on the event pump (Win32::GUI::Dialog) when windows shuts down?
> | If it's not, then you wont get the messages before it's too late...
> 
> I'm pretty sure my code isn't at all what it's supposed to look like :-)
> If it's not too much trouble, could you send a working example with these
> variables and Win32::GUI::Dialog ? The simplest things can be hell to put
> together in the right order when it's done for the first time...
> 
> 
> Thanks!
> Seb.
> 
> 
> 
> | > Date: Wed, 23 Dec 2009 13:19:41 +0100
> | > From: se...@h-...
> | > To: per...@li...
> | > Subject: [perl-win32-gui-users] Windows shutdown
> | >
> | >
> | > Hi folks,
> | >
> | >
> | > Here is the question: I'm looking for a minimal example of a (perl) script
> | > that dies (gracefully or not) when Windows tries to shutdown.
> | >
> | > Story: I have developed an application that monitors via RS232 the health
> | > of TV screens attached to PCs. The information gathered is relayed to a
> | > central server. This application must run continuously, but still die
> | > when an automatic shutdown is triggered on the PC. The application works
> | > but doesn't die when asked to (via Start->Stop).
> | >
> | > I have a fair knowledge of Perl and Unix, but I am totally new to Windows
> | > programming: don't hesitate to state an obvious solution :-) Please note
> | > that the application does not in itself require a GUI. I tried a GUI
> | > following the discussion here:
> | > 	http://objectmix.com/perl/20692-win32-how-quit-perl-script-during-log-off-automatically.html
> | > A solution that would use Win32::API would also work for me, I just
> | > thought it might be simpler with Win32::GUI.
> | > I have tried to use GetMessage and PeekMessage, but I'm clearly not using
> | > them the right way (again, I know zilsch about Windows programming).
> | >
> | > I've read the archives on mail-archive.com and found discussions dating
> | > back to 2001 and 2004; they do not provide a working example alas. I also
> | > tried to understand the man pages on CPAN and the samples in the tarball,
> | > but couldn't find a hint there either.
> | >
> | > Any hope, err, help, would be much appreciated!
> | >
> | >
> | > Seb.
> | >
> | >
> | > ------------------------------------------------------------------------------
> | > This SF.Net email is sponsored by the Verizon Developer Community
> | > Take advantage of Verizon's best-in-class app development support
> | > A streamlined, 14 day to market process makes app distribution fast and easy
> | > Join now and get one step closer to millions of Verizon customers
> | > http://p.sf.net/sfu/verizon-dev2dev
> | > _______________________________________________
> | > Perl-Win32-GUI-Users mailing list
> | > Per...@li...
> | > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> | > http://perl-win32-gui.sourceforge.net/
> |
> | _________________________________________________________________
> | Use Hotmail to send and receive mail from your different email accounts
> | http://clk.atdmt.com/UKM/go/186394592/direct/01/
> 
> ------------------------------------------------------------------------------
> This SF.Net email is sponsored by the Verizon Developer Community
> Take advantage of Verizon's best-in-class app development support
> A streamlined, 14 day to market process makes app distribution fast and easy
> Join now and get one step closer to millions of Verizon customers
> http://p.sf.net/sfu/verizon-dev2dev 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
 		 	   		  
_________________________________________________________________
Use Hotmail to send and receive mail from your different email accounts
http://clk.atdmt.com/UKM/go/186394592/direct/01/