列表系统当前所有的进程

Lisphk

1. (defun runningprocesses ( / qry rtn srv wmi )
   
2.     (if (setq wmi (vlax-create-object "wbemscripting.swbemlocator"))
   
3.         (progn
   
4.             (setq rtn
   
5.                 (vl-catch-all-apply
   
6.                    '(lambda ( / lst )
   
7.                         (setq srv (vlax-invoke wmi 'connectserver)
   
8.                               qry (vlax-invoke srv 'execquery "Select * from Win32_Process")
   
9.                         )
   
10.                         (vlax-for itm qry
    
11.                             (vlax-for prp (vlax-get itm 'properties_)
    
12.                                 (if (= "name" (strcase (vlax-get prp 'name) t))
    
13.                                     (setq lst (cons (vlax-get prp 'value) lst))
    
14.                                 )
    
15.                             )
    
16.                         )
    
17.                         lst
    
18.                     )
    
19.                 )
    
20.             )
    
21.             (foreach obj (list qry srv wmi)
    
22.                 (if (= 'vla-object (type obj))
    
23.                     (vlax-release-object obj)
    
24.                 )
    
25.             )
    
26.             (if (vl-catch-all-error-p rtn)
    
27.                 (prompt (vl-catch-all-error-message rtn))
    
28.                 rtn
    
29.             )
    
30.         )
    
31.     )
    
32. )
    

(defun runningprocesses ( / qry rtn srv wmi )<br />     (if (setq wmi (vlax-create-object "wbemscripting.swbemlocator"))<br />         (progn<br />             (setq rtn<br />                 (vl-catch-all-apply<br />                    '(lambda ( / lst )<br />                         (setq srv (vlax-invoke wmi 'connectserver)<br />                               qry (vlax-invoke srv 'execquery "Select * from Win32_Process")<br />                         )<br />                         (vlax-for itm qry<br />                             (vlax-for prp (vlax-get itm 'properties_)<br />                                 (if (= "name" (strcase (vlax-get prp 'name) t))<br />                                     (setq lst (cons (vlax-get prp 'value) lst))<br />                                 )<br />                             )<br />                         )<br />                         lst<br />                     )<br />                 )<br />             )<br />             (foreach obj (list qry srv wmi)<br />                 (if (= 'vla-object (type obj))<br />                     (vlax-release-object obj)<br />                 )<br />             )<br />             (if (vl-catch-all-error-p rtn)<br />                 (prompt (vl-catch-all-error-message rtn))<br />                 rtn<br />             )<br />         )<br />     )<br /> )<br />