杀死一个正在运行的程序

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;

补充：软件开发 , Delphi ,

上一个：查找一个特定的EXE是否在内存中运行
下一个：如何访问一个进程的内存空间