Grygonos has asked for the wisdom of the Perl Monks concerning the following question:
Fellow Monks,
Grygonos
I have the following test script
that should grab all the windows and grab the values of the focused and pid property. However when I run the script I get the following usage error: Usage: Win32::Setupsup::GetWindowProperties($window, @proptoget, \%windowprop) I do have a valid window reference because printing $_ gives me the handle. focused and pid are valid properties. I am passing the empty hash by reference. What am I missing? Thanks a TON in advance...#!/perl -w use strict; use Win32::Setupsup; my @windows; Win32::Setupsup::EnumWindows(\@windows); foreach(@windows) { my @proptoget = qw(focused pid); my %windowprop; Win32::Setupsup::GetWindowProperties($_,@proptoget,\%windowprop); foreach my $key (keys(%windowprop)) { print $key."-".$windowprop{$key}."\n"; } }
Grygonos
Back to
Seekers of Perl Wisdom