Seb,
If you have ActiveState Perl, you could try running the script using the
wperl.exe program instead. This runs the script without displaying a console.
This means that any output won't be seen, but I tried it with the sample code
that Jeremy provided and it worked OK for me.
If the error message still pops up, try returning 1 from the EndSession() sub
instead of 0. According to the Windows SDK docs, returning 0 will abort the
shutdown, although I don't know if this matters for Win32::GUI.
Hope this helps,
Kevin.
> Date: Thu, 24 Dec 2009 00:43:54 +0100
> From: s...@h-k.fr
> To: jez_wh...@hotmail.com
> CC: perl-win32-gui-users@lists.sourceforge.net
> Subject: Re: [perl-win32-gui-users] Windows shutdown
>
>
> Hi Jeremy,
>
>
> | 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;}
>
> It doesn't work for me, so I'll detail my steps.
>
> I put this code in a .pl file, reformatted it, then double clicked on the
> icon of the program. This opened a black terminal and a small window with
> "Hello, world". Then I clicked on the Start Menu, chose Stop. Windows (XP)
> then shows an error message saying that Windows cannot terminate this
> program; it offers to either terminate the program now or cancel.
>
> Does Windows shut down when you follow the same steps? Is there something
> you're doing differently?
>
> I tried adding the WM_CLOSE signal, but the result is the same. Same thing
> when I change EndSession's definition for an "exit(0)".
>
> So close and yet...
>
> Thanks alot for your time and help. Hope you can guide me through the last
> step!
>
>
> Seb.
>
>
> | > Date: Wed, 23 Dec 2009 23:41:11 +0100
> | > From: s...@h-k.fr
> | > To: jez_wh...@hotmail.com
> | > CC: perl-win32-gui-users@lists.sourceforge.net
> | > 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: s...@h-k.fr
> | > | > To: perl-win32-gui-users@lists.sourceforge.net
> | > | > 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
> | > | > Perl-Win32-GUI-Users@lists.sourceforge.net
> | > | > 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
> | > Perl-Win32-GUI-Users@lists.sourceforge.net
> | > 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
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
_________________________________________________________________
Looking for a great date? Meet singles at ninemsn dating
http://clk.atdmt.com/NMN/go/150855801/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
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
