杀死一个正在运行的程序.txt

来自「delphi知识收集 我个人的小小收集」· 文本 代码 · 共 20 行

 2005年3月27日 星期日 
 
 
杀死一个正在运行的程序 
--------------------------------------------------------------------------------
作者：不详 　来源于：不详 　发布时间：2005-2-26 1:35:10 
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;