perlquestion
Grygonos
Fellow Monks,<br>
<p> I have the following test script
<code>#!/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";
}
}
</code> 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: <code>Usage: Win32::Setupsup::GetWindowProperties($window, @proptoget, \%windowprop)</code> I do have a valid window reference because printing <code>$_</code> gives me the handle. focused and pid are valid properties. I am passing the empty hash by reference. What am I missing?</p>
Thanks a TON in advance...
<div class="pmsig"><div class="pmsig-200170">
<hr>
Grygonos
</div></div>