社区 › VB › 请教如何获取进程的PID

clement 发表于 2005-2-4 12:50:00

请教如何获取进程的PID

在一个模块里面加入如下代码 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 发表于 2005-2-4 13:52:00

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

查看完整版本: 请教如何获取进程的PID