RSS订阅 | 匿名投稿
您的位置:网站首页 > 进程 > 正文

Delphi根据进程PID等待进程结束或者结束进程

作者:admin 来源: 日期:2018/2/2 18:23:08 人气: 标签:

本文描述的是已知窗体标题,先获取某个程序的进程PID(即在任务管理器中的 进程ID),实现等待进程结束或者直接杀掉进程的方法。因为网络上直接结束进程的方法很多,本文不做深究,主要是等待进程结束。
使用以下代码即可实现:

procedure Execute;  
var  
  dwProcessID: DWORD;  
  FormH,hApp: THandle;  
begin  
  inherited;  
  //找到窗口句柄  
  formh := FindWindow(nil, PWideChar('标题'));  
  if FormH = 0 then  
    Exit;  
  //根据窗口句柄找到PID  
  GetWindowThreadProcessId(formH, @dwProcessID); //通过活动窗口句柄获取对应的进程Id  
  //打开进程,获取权限  
  hApp:= OpenProcess(PROCESS_VM_OPERATION or Winapi.Windows.SYNCHRONIZE,FALSE,dwProcessID );  
  //等待进程结束  
  WaitForSingleObject(hApp,INFINITE);  
end;  

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料