急!急!急!在delphi中如何判断另外一个应用程序是否运行?

Question

在delphi中如何判断另外一个应用程序是否运行?

Answer 1

var
    wnd:HWND;
begin
    wnd:=FindWindow(nil,'窗口标题');
    if wnd>0 then
       showmessage('已运行')
    else
       showmessage('未运行');
end;

Answer 2

FindWindow
FindWindowA
FindWindowW
FindWindowEx
FindWindowExA
FindWindowExW

Answer 3

findwindow：
函数型：HWND FindWindow（LPCTSTR IpClassName，LPCTSTR IpWindowName）;
    参数：
    IpClassName ：指向一个指定了类名的空结束字符串，或一个标识类名字符串的成员的指针。如果该参数为一个成员，则它必须为前次调用theGlobafAddAtom函数产生的全局成员。该成员为16位，必须位于IpClassName的低 16位，高位必须为 0。
    IpWindowName：指向一个指定了窗口名（窗口标题）的空结束字符串。如果该参数为空，则为所有窗口全匹配。
    返回值：如果函数成功，返回值为具有指定类名和窗口名的窗口句柄；如果函数失败，返回值为NULL。findwindowex：
函数功能：该函数获得一个窗口的句柄，该窗口的类名和窗口名与给定的字符串相匹配。这个函数查找子窗口，从排在给定的子窗口后面的下一个子窗口开始。在查找时不区分大小写。
    函数原型：HWND FindWindowEx（HWND hwndParent，HWND hwndChildAfter，LPCTSTR lpszClass，LPCTSTR lpszWindow）；
    参数；
    hwndParent：要查找子窗口的父窗口句柄。
    如果hwnjParent为NULL，则函数以桌面窗口为父窗口，查找桌面窗口的所有子窗口。
    Windows NT5.0 and later：如果hwndParent是HWND_MESSAGE，函数仅查找所有消息窗口。
    hwndChildAfter ：子窗口句柄。查找从在Z序中的下一个子窗口开始。子窗口必须为hwndPareRt窗口的直接子窗口而非后代窗口。如果HwndChildAfter为NULL，查找从hwndParent的第一个子窗口开始。如果hwndParent 和 hwndChildAfter同时为NULL，则函数查找所有的顶层窗口及消息窗口。
    lpszClass：指向一个指定了类名的空结束字符串，或一个标识类名字符串的成员的指针。如果该参数为一个成员，则它必须为前次调用theGlobaIAddAtom函数产生的全局成员。该成员为16位，必须位于lpClassName的低16位，高位必须为0。
    lpszWindow：指向一个指定了窗口名（窗口标题）的空结束字符串。如果该参数为 NULL，则为所有窗口全匹配。返回值：如果函数成功，返回值为具有指定类名和窗口名的窗口句柄。如果函数失败，返回值为NULL。    如yang6130所述调用。

Answer 4

只要知道另外一个应用程序的窗口标题，就可用FindWindow（）来查找

Answer 5

hwd:=findwindow(nil,'你的应用程序标题')
    if hwd>0 then
       showmessage('已运行')
    else
       showmessage('未运行');

Answer 6

var
    wnd:Thandle;
begin
    wnd:=FindWindow(nil,'你要找的程序窗口标题');
    if wnd>0 then
       showmessage('已运行')
    else
       showmessage('未运行');
end;