在delphi中如何杀掉系统正在运行的一个进程？

Question

请教代码如何写？

Answer 1

procedure KillProgram(Classname : string; WindowTitle : string); 
const 
PROCESS_TERMINATE = $0001; 
var 
ProcessHandle : THandle; 
ProcessID: Integer; 
TheWindow : HWND; 
begin 
TheWindow := FindWindow(Classname, WindowTitle); 
GetWindowThreadProcessID(TheWindow, @ProcessID); 
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId); 
TerminateProcess(ProcessHandle,4); 
end;

Answer 2

可是这个进程号始终在变，比如说要杀死office的excel.exe这个进程怎么写？

Answer 3

用Shell控件试试，要先安装。