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
)；

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