胜游梅州,王寿山游记:VB里,用FindWindow函数返回的PID与任务管理器显示的不一样.

来源:百度文库 编辑:中科新闻网 时间:2024/04/29 18:55:28
如题.请问大侠们该如何解决呀.
程序是这样的.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Private Sub Timer1_Timer()

Dim pid As Long
pid = FindWindow(vbNullString, "程序名")

If pid = 0 Then
Command1.Caption = "程序未运行"
Else
Command1.Caption = wind
End If

End Sub