判断进程是否正在运行

dcl1214

1. (defun $判断进程是否正在运行$ (name / qry rtn srv wmi jcs wql)
   
2.   (if (and name (= (type name) 'str) (> (strlen name) 0))
   
3.     (progn
   
4.       (setq
   
5.         wql (strcat "Select * from Win32_Process Where Name LIKE '"
   
6.                     name
   
7.                     "%'"                ;通配符
   
8.             )
   
9.       )
   
10.       (if
    
11.         (and wql
    
12.              (setq wmi (vlax-create-object "wbemscripting.swbemlocator"))
    
13.         )
    
14.          (progn
    
15.            (setq rtn
    
16.                   (vl-catch-all-apply
    
17.                     (function
    
18.                       (lambda (/ lst pros)
    
19.                         (set 'srv (vlax-invoke wmi 'connectserver))
    
20.                         (SET 'qry
    
21.                              (vlax-invoke
    
22.                                (vlax-invoke wmi 'connectserver)
    
23.                                'execquery
    
24.                                wql
    
25.                              )
    
26.                         )
    
27.                         (vlax-for itm qry
    
28.                           (setq pros (vlax-get itm 'properties_))
    
29.                           (vlax-for prp        pros
    
30.                             (if        (= "name" (strcase (vlax-get prp 'name) t))
    
31.                               (progn
    
32.                                 (setq lst (cons (vlax-get prp 'value) lst))
    
33.                                 (setq itm nil)
    
34.                                 (setq prp nil)
    
35.                                 (setq pros nil)
    
36.                                 (vl-catch-all-apply
    
37.                                   'vlax-release-object
    
38.                                   (list qry)
    
39.                                 )        ;释放掉
    
40.                                 (vl-catch-all-apply
    
41.                                   'vlax-release-object
    
42.                                   (list srv)
    
43.                                 )        ;释放掉
    
44.                               )
    
45.                             )
    
46.                           )
    
47.                         )
    
48.                         lst
    
49.                       )
    
50.                     )
    
51.                   )
    
52.            )
    
53.            (vlax-release-object wmi)        ;释放对象
    
54.            (if (vl-catch-all-error-p rtn)
    
55.              (prompt (vl-catch-all-error-message rtn))
    
56.              (setq jcs rtn)
    
57.            )
    
58.          )
    
59.       )
    
60.     )
    
61.   )
    
62.   jcs
    
63. )
    
64. ($判断进程是否正在运行$ "qq")
    

(defun $判断进程是否正在运行$ (name / qry rtn srv wmi jcs wql)<br />   (if (and name (= (type name) 'str) (> (strlen name) 0))<br />     (progn<br />       (setq<br />         wql (strcat "Select * from Win32_Process Where Name LIKE '"<br />                     name<br />                     "%'"                ;通配符<br />             )<br />       )<br />       (if<br />         (and wql<br />              (setq wmi (vlax-create-object "wbemscripting.swbemlocator"))<br />         )<br />          (progn<br />            (setq rtn<br />                   (vl-catch-all-apply<br />                     (function<br />                       (lambda (/ lst pros)<br />                         (set 'srv (vlax-invoke wmi 'connectserver))<br />                         (SET 'qry<br />                              (vlax-invoke<br />                                (vlax-invoke wmi 'connectserver)<br />                                'execquery<br />                                wql<br />                              )<br />                         )<br />                         (vlax-for itm qry<br />                           (setq pros (vlax-get itm 'properties_))<br />                           (vlax-for prp        pros<br />                             (if        (= "name" (strcase (vlax-get prp 'name) t))<br />                               (progn<br />                                 (setq lst (cons (vlax-get prp 'value) lst))<br />                                 (setq itm nil)<br />                                 (setq prp nil)<br />                                 (setq pros nil)<br />                                 (vl-catch-all-apply<br />                                   'vlax-release-object<br />                                   (list qry)<br />                                 )        ;释放掉<br />                                 (vl-catch-all-apply<br />                                   'vlax-release-object<br />                                   (list srv)<br />                                 )        ;释放掉<br />                               )<br />                             )<br />                           )<br />                         )<br />                         lst<br />                       )<br />                     )<br />                   )<br />            )<br />            (vlax-release-object wmi)        ;释放对象<br />            (if (vl-catch-all-error-p rtn)<br />              (prompt (vl-catch-all-error-message rtn))<br />              (setq jcs rtn)<br />            )<br />          )<br />       )<br />     )<br />   )<br />   jcs<br /> )<br /> ($判断进程是否正在运行$ "qq")<br />

还有没有比这个速度更快的方法？

Lisphk

这个难道慢吗?