VB程序如何检测另外一个程序正在运行？

[cendy99]

用VB开发的一个程序，它运行时必须要求另外一个程序已经正在运行时才行。
所以这个程序在启动时必须要检测一下另外一个程序是否在运行。
在VB里如何实现这个功能？
另外一个应用程序的名称是已知的

我看了一个MSDN，VB似乎本身没有这样的函数，
如果调用Win32 API，那么应该具体怎么实现？
谢了

[螺丝刀2000]

up

[rainivy]

FindWindows
找別一個就用程序的標題,找到就是已運行....

[liuyanghe111]

但对无窗口程序不可行

[Lyuwen]

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Handle = FindWindow("ThunderRT6FormDC", "窗体的标题")
If Handle = 0 Then
msgbox "没有运行"
else
msgbox "已经运行"
End If

'第一个参数不变，第二个参数是你所要找寻的form.caption

[shairy]

或者在这两个程序这间加个通信连接，用WinSocket控件就行，要用TCP协议，程序启动时是客户端的程序必须要求服务器端的程序启动，一旦没启动，会触发连接错误Event。这样就可以知道另一个程序是否在启动中

[rainivy]

如果要用通信的话，是不是可以用DDE，先向另一个程序发送一个消息如接到则返回一个信息就OK了.