Delphi中强制结束一个进程

强制结束一个进程的 API 为 TerminateProcess

BOOL TerminateProcess(
HANDLE hProcess, // 进程句柄
UINT uExitCode // 退出代码
);

你可以使用语句 invoke TerminateProcess,structProcInfo.hProcess,0 来结束进程，要注意的是如果可能的话，尽量不要在程序中强制结束别的进程，因为使用 TerminateProcess 结束的进程，它装载的 dll 不能被正确卸载。这样可能会引起系统资源的无效占用。最好的办法在进程中自己使用 ExitProcess 退出。

Delphi中强制结束一个进程
AFileName指定xxx.exe就行了,如Excel.exe
先Uses TLHelp32;

procedure EndProcess(AFileName: string);
const
PROCESS_TERMINATE=$0001;
var
ExeFileName: String;
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
ExeFileName := AFileName;
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
        TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
                          FProcessEntry32.th32ProcessID), 0);
      ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
    end;
end;

------------------------------------------------------------------------------------
   
在NT下：进程是由内核统一管理的，用户态的程序是不能处理的，在核心有进程的执行体进程块EPROCESS,EPROCESS结构包含有一个异常本地过程调用端口（LPC），LPC是当进程中的一个线程引起异常时，进程管理器发送信息的内部进程通信通道。如果可以访问这个结构的话，就可以将LPC指向我们自己的入口，但遗憾的是EPROCESS在用户态下是无法访问的，所以无法实现。线程的情况和这类似，也有执行体线程块ETHREAD。  


   给你一个最简单的方法：  
   
另外写一个程序来监测你的程序操作。  
假设你的程序为abc.exe，  
监测程序为watch.exe  
   
监测程序完成这样一个功能：  
1.   每隔一段时间检测一下系统的所有窗口进程(例如10秒)  
        利用EnumWindows()得到的窗口句柄。判断是否为错误报警的窗口发生。  
        错误报警的窗口的标题一般都有："某某程序执行了非法操作"的字样，很好判断。  
2.   一旦确定下来，就可将其从容关闭再重新启动。  
   
这个方法我试过。我曾写过一个专业作弊软件，让其自动运行。当IE  
出错时就将其关闭，然后重启IE。  
   
你可以去我的主页这个栏目看一下：  
http://www.ChinaITHero.com/th_money.htm     第5节：自动关闭错误窗口  
   
=============================================================================

最简单的办法是:  
          在需要被监视的程序中添加一个发送机制,比如每1分钟向守护进程发送一个自定义消息.  
守护进程则进行判断,如果1分钟以上还未收到该消息,则关闭该进程

=============================================================================

我想做一个监控某个进程是否正常运行的程序，用  
CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0)；  
和PROCESSENTRY32结构  
取得了这个进程，但就是不知道怎么判断它的状态，请高手赐教！

定义发送消息，枚举窗口等

Win   9x为IsHungThread  
   
在Win   NT/2000中为IsHungAppWindow。

调用User32.dll中一个未公开的函数来实现的。这个函数存在于Windows   9x和Windows   NT/2000系统中，但在两个系统中的名字是不同的。Windows   9x系统中的名字为：IsHungThread，在Windows   NT/2000系统中的名字为IsHungAppWindow。下面是它们的原型：  
BOOL   IsHungAppWindow   (  
HWND   hWnd,   //   主应用窗口句柄  
)；  
和  
BOOL   IsHungThread   (  
DWORD   dwThreadId,   //   主应用窗口的线程ID  
)；