程序代码

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Sub Command1_Click()
Dim PID As Long
GetWindowThreadProcessId Text1, PID '根据句柄取得进程ID,text1为句柄
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
For Each objprocess In colProcesses
If objprocess.processid = PID Then  '当某进程ID与句柄ID相同时
Text2 = objprocess.ExecutablePath   '取得进程路径
End If
Next
End Sub
'----------------------------------------------------根据句柄取进程路径