码迷，mamicode.com
首页 > Windows程序 > 详细

delphi杀进程的两种方式

时间：2017-07-24 20:22:38      阅读：201      评论：0      收藏：0      [点我收藏+]

标签：case   targe   ring   rac   结束进程   efi   str   start   ext   

第一种：比较简单，根据标题，找到窗口，再找到进程，杀死进程

 

[delphi] view plain copy
 
  1. procedure KillProgram(WindowTitle : string);  
  2. const  
  3.   PROCESS_TERMINATE = $0001;  
  4. var  
  5.   ProcessHandle : THandle;  
  6.   ProcessID: Integer;  
  7.   TheWindow : HWND;  
  8. begin  
  9.   TheWindow := FindWindow(nil, PChar(WindowTitle));  
  10.   GetWindowThreadProcessID(TheWindow, @ProcessID);  
  11.   ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);  
  12.   TerminateProcess(ProcessHandle,4);  
  13. end;  


第二种：复杂一点，不过可获取的信息更多，其他功能的时候可以参考一下

 

[delphi] view plain copy
 
  1. function KillTask(ExeFileName: string): integer;  
  2. const  
  3.   PROCESS_TERMINATE=$0001;  
  4. var  
  5.   ContinueLoop: BOOL;  
  6.   FSnapshotHandle: THandle;  
  7.   FProcessEntry32: TProcessEntry32;  
  8. begin  
  9.   result := 0;  
  10.   
  11.   FSnapshotHandle := CreateToolhelp32Snapshot  
  12.                      (TH32CS_SNAPPROCESS, 0);  
  13.   FProcessEntry32.dwSize := Sizeof(FProcessEntry32);  
  14.   ContinueLoop := Process32First(FSnapshotHandle,  
  15.                                  FProcessEntry32);  
  16.   
  17.   while integer(ContinueLoop) <> 0 do  
  18.   begin  
  19.     if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =  
  20.          UpperCase(ExeFileName))  
  21.      or (UpperCase(FProcessEntry32.szExeFile) =  
  22.          UpperCase(ExeFileName))) then  
  23.       Result := Integer(TerminateProcess(OpenProcess(  
  24.                         PROCESS_TERMINATE, BOOL(0),  
  25.                         FProcessEntry32.th32ProcessID), 0));    
  26.     ContinueLoop := Process32Next(FSnapshotHandle,  
  27.                                   FProcessEntry32);  
  28.   end;  
  29.   
  30.   CloseHandle(FSnapshotHandle);  
  31. end;   

 

另，word也可以根据标题结束进程，word的标题的规则是application的title + "-" + window的title

 

http://blog.csdn.net/youthon/article/details/7247874

 

delphi杀进程的两种方式

标签：case   targe   ring   rac   结束进程   efi   str   start   ext   

原文地址：http://www.cnblogs.com/findumars/p/7230747.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！