如何判断一个执行程序是否已经运行？

Question

要判断一个Word执行文件是否已经运行是比较简单的,只要使用GetObject()函数来得到一个Word运行库的对象,如果没有得到则说明没有一个Word执行文件在运行,否则说明有一个Word执行文件在运行。详述如下：
1.请先在VB菜单中的“工程/引用”中加载Microsoft Word 9.0 Object Library运行库
Dim Word as Word.Application
On Error Resume Next
set Word=GetObject(,"Word.Application")
if Word Is Nothing then
  Msgbox "Word没有运行!"
else
  Msgbox "Word已经运行!"
endif

Answer 1

Dim MyObject As Object
Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", "FIGMENT.DRAWING")

Answer 2

胡扯，APP 对象只能判断自身是否在内存。

Answer 3

to uguess(uguess)　(2001-10-30 13:20:02) 
可不可以给个例子呀，我不太会用你说的。

Answer 4

好吧，只要给分^_^其实用FindWindow是有条件的：要么你已经知道这个程序运行时的窗口的标题，比如IE的窗口标题一般都含有“Microsoft Internet Explorer”；要么你知道这个程序窗口的类，比如VB的程序的窗体的类名都是“ThunderRT6FormDC”，你可以用SPY这个工具先查看一下。当然，要想“准确”的确定一个程序，必须将这两个参数同时使用，如：
lR = FindWindow("ThunderRT6FormDC", "我的VB记事本")
如果lR不为0，说明这个窗口标题为“我的VB记事本”的VB的程序已在内存中运行。用这个函数其实也并不能保证100％真确，不过对那些比较有名的程序还行。
相关的讨论，你可以看一下这个帖子：
http://www.csdn.net/expert/topic/345/345098.shtm