杀死一个正在运行的程序

laoli

于 2001-10-05 14:05:00 发布

阅读量1.3k

点赞数

分类专栏： delphi文档文章标签： integer string

本文链接：https://blog.csdn.net/laoli/article/details/6267

版权

delphi文档专栏收录该内容

16 篇文章 0 订阅

订阅专栏

  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;