Win32::GUI has a function to minimize a window.
The tricky part is finding the window you want to minimize;
it might not be the only window in the application.
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);
}
}