win32 中perl 怎么取得屏幕高和宽?

ggglw

win32 中perl 怎么取得屏幕高和宽?就像get_screen()类似.

兰花仙子

回复 1# ggglw


    拿个尺子量一下？

ggglw

仙子真会开玩笑,如果换了机子又量一下?

兰花仙子

仙子真会开玩笑,如果换了机子又量一下?
ggglw 发表于 2010-03-26 23:22

    恩，偶说的方法是跨OS平台，可没说跨硬件平台哦。

ggglw

呵呵,见笑了,应该是屏幕像素.或分辨率.

ggglw

仙子说话真有意思.

ulmer

win32 中perl 怎么取得屏幕高和宽?就像get_screen()类似.
ggglw 发表于 2010-03-26 22:23

Hello,

I have used  a rule with perl OLE + WMI to messure the screen size.
this is the sample code:

1. 
   
2. use strict;
   
3. use Win32::OLE qw(in);
   
4. use Win32::OLE::Variant;
   
5. 
   
6. my $strComputer = '.';
   
7. my $objWMIService = Win32::OLE->GetObject('winmgmts:' .
   
8.     '{impersonationLevel=impersonate}!\\\\' . $strComputer .
   
9.     '\\root\\cimv2');
   
10. my $wql = 'SELECT * FROM Win32_DisplayConfiguration';
    
11. my $results = $objWMIService->ExecQuery($wql);
    
12. 
    
13. foreach my $obj (in $results) {
    
14.     print "Graphic device        : ", $obj->DeviceName, "\n";
    
15.     print "Color depth           : ", $obj->BitsPerPel, "\n";
    
16.     print "Horizontal resolution : ", $obj->PelsWidth,  "\n";
    
17.     print "Vertical resolution   : ", $obj->PelsHeight, "\n";
    
18.    
    
19. }
    

复制代码

D:\programming\perl>perl -w get_windows_screensize.pl
Graphic device        : Intel(R) 82852/82855 GM/GME Graphics Controller
Color depth           : 32
Horizontal resolution : 1024
Vertical resolution   : 768

ggglw

谢谢ulmer ,能成功获得当前显示的分辨率.
G:\>screen.pl
Graphic device        : ATI MOBILITY RADEON 7500
Color depth           : 16
Horizontal resolution : 1024
Vertical resolution   : 768

bluewaterray

仙子真会开玩笑,如果换了机子又量一下?
ggglw 发表于 2010-03-26 23:22

    错，应该换个监视器再量一下。别忘了用实际长度和实际像素长度来进行计算。

ggglw

嗯,玩本本习惯了,竟然忘了台式机换显示器的方便性.