杀死一个正在运行的程序

最新推荐文章于 2024-09-12 11:11:17 发布

laoli

最新推荐文章于 2024-09-12 11:11:17 发布

阅读量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;