[LISP函数]：较通用的获取屏幕分辨率的函数

eachy

2. 
   
3. (defun xdl-getscreensize (/ ieobj w h)
   
4.   (setq
   
5.     ieobj (vlax-get-or-create-object "InternetExplorer.Application")
   
6.   )
   
7.   (vlax-invoke ieobj 'navigate "about:blank")
   
8.   (setq        w (vlax-get
   
9.             (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
   
10.                       'screen
    
11.             )
    
12.             'width
    
13.           )
    
14.         h (vlax-get
    
15.             (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
    
16.                       'screen
    
17.             )
    
18.             'height
    
19.           )
    
20.   )
    
21.   (vlax-release-object ieobj)
    
22.   (list w h)
    
23. )

<br /> (defun xdl-getscreensize (/ ieobj w h)<br />   (setq<br />     ieobj (vlax-get-or-create-object "InternetExplorer.Application")<br />   )<br />   (vlax-invoke ieobj 'navigate "about:blank")<br />   (setq        w (vlax-get<br />             (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)<br />                       'screen<br />             )<br />             'width<br />           )<br />         h (vlax-get<br />             (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)<br />                       'screen<br />             )<br />             'height<br />           )<br />   )<br />   (vlax-release-object ieobj)<br />   (list w h)<br /> )