http://www.perlmonks.org?node_id=114748


in reply to How to get screen resolution under Win32?

$DesktopWin = $Main->GetDesktopWindow();
(undef,undef,$DesktopWidth,$DesktopHeight) = Win32::GUI::GetWindowRect
+($DesktopWin);
print "Screen Resolution is $DesktopWidth x $DesktopHeight";

[download]
note: this requires use of the win32::gui module

______________________________________________
RIP
Douglas Noel Adams
1952 - 2001

In Section Seekers of Perl Wisdom