列表系统当前所有的进程

Lisphk · 发表于 2017-12-18 15:21:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

账号		自动登录	找回密码
密码			立即注册

[每日一码] 列表系统当前所有的进程

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。