[VB] 無需 OpenProcess 取得進程檔案路徑

ai1118

調用方式：

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