[LISP函数]：获取当前屏幕分辨率

eachy

2. 
   
3. ;;Test OK with XP
   
4. ;;Use WMI to Get Display Mode
   
5. ;;Author :  eachy
   
6. ;;Web    :  [url]http://www.xdcad.net[/url]
   
7. ;;2005.11.24
   
8. (defun xdl-GetDisplayPixels (/ IDs WMIobj serv lox sn)
   
9.   (vl-load-com)
   
10.   (setq IDs '())
    
11.   (if (SETQ WMIobj (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
    
12.     (progn
    
13.       (SETQ serv (VLAX-INVOKE
    
14.                    WMIobj     'ConnectServer            "."
    
15.                    "\\root\\cimv2"         ""            ""
    
16.                    ""              ""         128            nil
    
17.                   )
    
18.       )
    
19.       (setq lox        (vlax-invoke
    
20.                   serv
    
21.                   'ExecQuery
    
22.                   "Select * from Win32_DisplayControllerConfiguration"
    
23.                 )
    
24.       )
    
25.       (vlax-for        item lox
    
26.         (if (not
    
27.               (member (setq sn (list
    
28.                                  (vlax-get item 'HorizontalResolution)
    
29.                                  (vlax-get item 'VerticalResolution)
    
30.                                )
    
31.                       )
    
32.                       IDs
    
33.               )
    
34.             )
    
35.           (setq IDs (cons sn IDs))
    
36.         )
    
37.       )
    
38.       (mapcar 'vlax-release-object (list lox serv WMIobj))
    
39.     )
    
40.   )
    
41.   (car (reverse IDs))
    
42. )

<br /> ;;Test OK with XP<br /> ;;Use WMI to Get Display Mode<br /> ;;Author :  eachy <br /> ;;Web    :  [url]http://www.xdcad.net[/url]<br /> ;;2005.11.24<br /> (defun xdl-GetDisplayPixels (/ IDs WMIobj serv lox sn)<br />   (vl-load-com)<br />   (setq IDs '())<br />   (if (SETQ WMIobj (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))<br />     (progn<br />       (SETQ serv (VLAX-INVOKE<br />                    WMIobj     'ConnectServer            "."<br />                    "\\root\\cimv2"         ""            ""<br />                    ""              ""         128            nil<br />                   )<br />       )<br />       (setq lox        (vlax-invoke<br />                   serv<br />                   'ExecQuery<br />                   "Select * from Win32_DisplayControllerConfiguration"<br />                 )<br />       )<br />       (vlax-for        item lox<br />         (if (not<br />               (member (setq sn (list<br />                                  (vlax-get item 'HorizontalResolution)<br />                                  (vlax-get item 'VerticalResolution)<br />                                )<br />                       )<br />                       IDs<br />               )<br />             )<br />           (setq IDs (cons sn IDs))<br />         )<br />       )<br />       (mapcar 'vlax-release-object (list lox serv WMIobj))<br />     )<br />   )<br />   (car (reverse IDs))<br /> )

butterflydml

我的屏幕分辨率是1024X768，你的呢？