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;