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

请教如何获取进程的PID

本帖最后由 作者 于 2005-2-4 13:36:38 编辑 <br /><br /> 在一个模块里面加入如下代码



Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _<BR>                                                                                                                                                                                               ByVal lpClassName As String, _<BR>                                                                                                                                                                                               ByVal lpWindowName As String) As Long


Sub TestFindWindow()<BR>       Dim objXl As Object<BR>       Dim lngXl As Long<BR>       <BR>       Set objXl = CreateObject("Excel.Application")<BR>       lngXl = FindWindow(vbNullString, "Microsoft Excel")<BR>       <BR>       MsgBox lngXl<BR>                <BR>       objXl.Quit<BR>       Set objXl = Nothing<BR>       <BR>End Sub


运行TestFindWindow之前特地看了一下任务管理器中并没有Excel的进程，


为什么Msgbox 显示的数值是一个6位整数，而任务管理中看到的PID却是一个4位整数？

clement 发表于 2005-2-4 13:52:00

已经解决了，FindWindow获取的是窗体的Hwnd而不是进程的PID
页: [1]
查看完整版本: 请教如何获取进程的PID