On 12/1/2010 5:04 μμ, Ben Morrow wrote:

 From activeperl's faq, other variants use some other technique maybe ?

BEGIN {
  my ($DOS) = Win32::GUI::GetPerlWindow();
  #hide console window
  if ( $DOS ) {
     Win32::GUI::Hide($DOS) unless ($ARGV[0] eq '--keep');
  }
This part is unnecessary if you already have a GUI executable (there
will be no 'main' console window), which means you don't need to load
WIn32::GUI.


That's right , but I like to use it for debugging some times :-) see the --keep to keep the console active :-)

Reply via email to