在一个模块里面加入如下代码 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位整数?