Minimize the black screen

windows ??

yes

Long live king Moshiach !

Not my answer I stole it from another site, Apparently it's a little tricky to make sure you are minimizing the right window...




use Win32::GUI;

my $title_part = shift;
my $class_part = shift;
$title_part or die "Supply title substring\n";
$class_part ||= '';

my $perlwindow = GUI::GetPerlWindow();

for (
my $window = GUI::GetWindow( GUI::GetDesktopWindow(), GW_CHILD );
$window;
$window = GUI::GetWindow( $window, GW_HWNDNEXT )
)
{
next if $window == $perlwindow;
my $title = GUI::Text($window);
my $class = GUI::GetClassName($window);
if ( $title =~ /$title_part/ and $class =~ /$class_part/ )
{
warn "Minimizing $title: $class\n";
GUI::Minimize($window);
}

Thanks,

My final solution was :

#Hide dos window
my $perlwin = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($perlwin);

#do domething here ....

#restore dos window
Win32::GUI::Show( $perlwin );


Long live king Moshiach !