[DEL] 외부 프로세스 종료 대기하기

procedure WaitForWindowDestroy(lpClassName, lpWindowName: PChar);
var
  H: HWND;
  Value: DWORD;
begin
  H := FindWindow(lpClassName, lpWindowName);
  if H = 0 then raise Exception.Create('FindWindow failed');

  GetWindowThreadProcessId(H, @Value);
  H := OpenProcess(PROCESS_ALL_ACCESS, False, Value);
  if H = 0 then raise Exception.Create('OpenProcess failed');

  try
    GetExitCodeProcess(H, Value);
    while Value = STILL_ACTIVE do
      GetExitCodeProcess(H, Value);
  finally
    CloseHandle(H);
  end;
end;