Re: Hiding DOS windows that accompany TK

[Erez]

in reply to Hiding DOS windows that accompany TK

I borrowed this from the Perl Cookbook a while ago:

use strict;
use warnings;

use Win32;
use Win32::Process;

my $program = shift @ARGV or die "Usage: loader.pl program\n";

Win32::Process::Create($Win32::Process::Create::ProcessObj,
    'd:\strawberry\perl\bin\perl.exe', #or wherever perl.exe is locate
+d
    "perl.exe $program",
    0,
    DETACHED_PROCESS,
    '.') or die print_error();

sub print_error {
    return Win32::FormatMessage( Win32::GetLastError() );
} 

[Popcorn Dave]

Did that actually work for you? I tried something similar from the Cookbook, although it may have been an earlier edition and couldn't get it to work. However after trolling the net, I found that by adding

$Win32::Process::Create::ProcessObj -> Resume(); 

after the code that you have, did the trick.

[Erez]

It did and it does. I don't recall whether this is lifted verbatim off the cookbook or whether I altered anything. I placed that code in a file a year or two ago, and have been only updating the path, and calling it.

[Popcorn Dave]

Interesting. I could never get it to work without the last line. Maybe I had an older incarnation of the cookbook.