请教如何获取进程的PID

clement

在一个模块里面加入如下代码 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long Sub TestFindWindow()
Dim objXl As Object
Dim lngXl As Long

Set objXl = CreateObject("Excel.Application")
lngXl = FindWindow(vbNullString, "Microsoft Excel")

MsgBox lngXl

objXl.Quit
Set objXl = Nothing

End Sub 运行TestFindWindow之前特地看了一下任务管理器中并没有Excel的进程， 为什么Msgbox 显示的数值是一个6位整数，而任务管理中看到的PID却是一个4位整数？

clement

已经解决了，FindWindow获取的是窗体的Hwnd而不是进程的PID