◆◆◆◆◆在Delphi程序中，如何监视某一个程序的运行状态？若正在运行或已经运行，程序就做出提示

关于网友提出的“ ◆◆◆◆◆在Delphi程序中，如何监视某一个程序的运行状态？若正在运行或已经运行，程序就做出提示
”问题疑问，本网通过在网上对“ ◆◆◆◆◆在Delphi程序中，如何监视某一个程序的运行状态？若正在运行或已经运行，程序就做出提示
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题： ◆◆◆◆◆在Delphi程序中，如何监视某一个程序的运行状态？若正在运行或已经运行，程序就做出提示
描述:

请问在Delphi程序中，如何监视某一个程序的运行状态？
若该程序正在运行或已经运行，程序就做出提示或关闭该程序
我用下边两种方法都不是很有效，有时不起做用。求用别的方法实现。谢谢……
第一种方法：
var
  h: THandle;
  text: array[0..255] of char;
begin
  h := getWindow(handle, GW_HWNDFIRST);
  while h <> 0 do
  begin
    if GetWindowText(h, @text, 255) > 0 then
      if StrPas(text) = '被监视程序在运行时的标题'then
          PostMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0);//关闭该程序
    h := GetWindow(h, GW_HWNDNEXT);
  end;
end;
第二种方法：
var
  hwnd:THandle;
begin
   hwnd:= FindWindow(nil,'被监视程序在进程中的名字');
  if hwnd<>0 then 
　//PostMessage(hwnd,WM_Close,0,0);//关闭该程序
end;

---

解决方案1:

function Killpro(ExeFileName: string): integer;  //杀死进程的函数.
const
  PROCESS_TERMINATE=$0001;var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result:= 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);
  while integer(ContinueLoop) <> 0 do
  //循环枚举快照中所有进程信息
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))=UpperCase(ExeFileName))
        or (UpperCase(FProcessEntry32.szExeFile)=UpperCase(ExeFileName))) then
    //找到要中止的进程名
    //若进程在运行则一定能找到，找到就关闭
       Result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
                 FProcessEntry32.th32ProcessID), 0));
     //中止进程
       ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
     //查找下一个符合条件进程
  end;
end;
Killpro('QQ.EXE');

解决方案2:

const
  CM_RESTORE = WM_USER + $1000;
var
  RvHandle : hWnd;
begin
   RvHandle := FindWindow('你的程序名字', NIL);
  if RvHandle > 0 then
  begin
    Application.MessageBox('您的系统中已经有程序正在运行！','提示',MB_OK+MB_ICONERROR+MB_SYSTEMMODAL);
    PostMessage(RvHandle, CM_RESTORE, 0, 0);
  end;

以上介绍了“ ◆◆◆◆◆在Delphi程序中，如何监视某一个程序的运行状态？若正在运行或已经运行，程序就做出提示”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/3593167.html