冰楓論壇

標題: [VB] 無需 OpenProcess 取得進程檔案路徑 [打印本頁]

---

作者: ai1118    時間: 2014-7-14 09:18
標題: [VB] 無需 OpenProcess 取得進程檔案路徑
調用方式：

1. MsgBox GetProPath("Explorer.exe")

複製代碼

函數：

1. Public Function GetProPath(ProName As String) As String
   
2. Dim objWMIService As Object
   
3. Dim colProcesslist As Object
   
4. Dim objProcess As Object
   
5. Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
   
6. Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name=" & Chr(39) & ProName & Chr(39))
   
7. For Each objProcess In colProcesslist
   
8. GetProPath = objProcess.ExecutablePath
   
9. Next
   
10. End Function

複製代碼

[size=100%]來源: knowlet3389.blogspot.tw

---

歡迎光臨 冰楓論壇 (https://bingfong.com/)

Powered by 冰楓