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

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Hi Seb,

Since you're in Windows, nobody cares about that #!path/to/perl. :)
If you wish wperl.exe to process your scripts instead of perl.exe, associate .pl file extension with wperl.exe. That's all.
But I think that's not good because if you do it all your scripts will be launched with no console screen. 
Better run your scripts like "path/to/wperl.exe script.pl".

Regards,
_____
Ilya

-----Original Message-----
From: Seb [mailto:se...@h-...] 
Sent: Thursday, December 24, 2009 12:50 PM
To: Kevin Marshall
Cc: Perl-Win32-GUI-Users List
Subject: Re: [perl-win32-gui-users] Windows shutdown

Hi Kevin,

| 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.

It works, at least when I call the script manually from a terminal with
"wperl foo.pl".

When I double click on the script's icon from Explorer, though, it seems
that the information given on the first line (I put
#!C:\Perl\bin\wperl.exe) is not taken into account. This is a very basic
question, I'm sorry: how do I get around ActiveState's magic to force the
script to call wperl instead of perl?

Thanks !
Seb.

| > Date: Thu, 24 Dec 2009 00:43:54 +0100
| > From: se...@h-...
| > To: jez...@ho...
| > CC: per...@li...
| > 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: 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/
| >
| > ------------------------------------------------------------------------------
| > 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/
|
| _________________________________________________________________
| 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
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/