Help for this page

Select Code to Download


  1. or download this
    my ($dos) = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($dos);
  2. or download this
    #!/usr/bin/perl -w
# loader - starts Perl scripts without the annoying DOS window
...
sub print_error() {
    return Win32::FormatMessage( Win32::GetLastError() );
}