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

本文整理自网络，侵删。

 
本文描述的是已知窗体标题，先获取某个程序的进程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;  
 

相关阅读 >>

Delphi 大小排序算法代码

Delphi toscilloscope 仿windows任务管理器cpu使用记录组件

Delphi sql数据库存取图片（利用流）

Delphi中httpencode使用注意事项

Delphi 调用clipboard 收集剪切板信息

Delphi fmx检查应用程序状态更改

Delphi 窗体的位置和高宽度-tform:letf、top、width、height、clientwidth、clientheight

Delphi richedit1 设置字体

Delphi image 等比例缩小

Delphi获取jpg图片的高度、宽度

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi根据进程PID等待进程结束或者结束进程