Looked at the Chatterbox Client, and I assunme that this is the sub you are talking about:
###################################################################### +########## # # closeDOSParent # # Closes the dos prompt that created this process # sub closeDOSParent { # This just simply doesn't work. I'm not sure why. return; return if ($opt_debug); # debugging info goes to STDOUT! if ($^O =~ /MSWin32/i) { my($process); my($program) = $^X; $orig_params =~ s/\-c\S*\b//g; my($pgm) = "perl $0 $orig_params"; eval ' use Win32::Process; Win32::Process::Create($process,"$program","$pgm",0,DETACHED_PRO +CESS,".") || die Win32::FormatMessage(Win32::GetLastError()) . "\n"; '; exit; } }
I'm not looking to close the DOS window that started my process, but trying to avoid the console windows popping up when doing an "rsh" from the program. They close again immediately, but having 6-7 windows popping into the foreground evey minute is a pain.
I'll look into the Win32::Process docs and see if I can figure out anything....
In reply to Re: Re: Perl TK on Win32
by HamNRye
in thread Perl TK on Win32
by HamNRye
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |