Delphi中CreateProcess启动的进程无法接收WM_CLOSE消息问题求助

1. 抛出标识'(2)'异常的直接原因 #

你的 TerminateProcess 函数返回值判断逻辑完全倒置：
TerminateProcess 返回 非0值（TRUE） 代表调用成功，目标进程已被强制终止，你代码中判断调用成功后反而抛出了'(2)'异常。
修正代码参考：

// 原错误逻辑
// if TerminateProcess(pi.hProcess,lResult) then
//   raise Exception.Create('Verwerking afgebroken (2)')
// else
//   raise Exception.Create('Verwerking afgebroken - process niet gestopt (' + IntToStr(lResult) + ')');

// 修正后逻辑
if not TerminateProcess(pi.hProcess, lResult) then
  raise Exception.Create('Verwerking afgebroken - process niet gestopt (' + IntToStr(GetLastError) + ')');
// 强制终止成功后根据业务需求抛出对应提示
raise Exception.Create('Verwerking afgebroken (2)');

2. 主窗体收不到WM_CLOSE消息的核心原因 #

这是Delphi VCL程序的固有特性导致的：
VCL程序启动后会默认创建一个 隐藏的TApplication类顶层窗口，它是进程层面的主窗口，EnumWindows枚举时会优先匹配到这个窗口。而你的回调函数找到第一个匹配PID的窗口就停止枚举，只会给这个隐藏窗口发WM_CLOSE，自然不会触发你主窗体 TFrmExternalProgram 的WindowProc监听逻辑。
你用任务管理器测试时如果是从「详细信息」标签页结束进程，系统会直接调用TerminateProcess强制杀死进程，不会发送任何窗口消息，自然也触发不了WM_CLOSE监听；如果是从「应用」标签页结束任务，系统同样会先给隐藏的TApplication窗口发WM_CLOSE，不会走到你主窗体的监听逻辑。
解决方案推荐修改枚举逻辑，给所有属于目标进程的可见窗口都发送WM_CLOSE：

function SendWMCloseEnumFunc(hHwnd:HWND; dwData:LPARAM): Boolean;
var vID:DWORD; // 类型改为DWORD匹配Win32 API参数定义，避免类型兼容问题
begin
  GetWindowThreadProcessID(hHwnd, @vID);
  if vID = dwData then
  begin
    // 只给可见窗口发消息，过滤隐藏的TApplication窗口
    if IsWindowVisible(hHwnd) then
      PostMessage(hHwnd, WM_CLOSE, 0, 0);
    // 不要停止枚举，继续匹配同进程的其他窗口
  end;
  Result := TRUE;
end;

3. 额外的逻辑错误 #

你发送WM_CLOSE后的等待逻辑也存在倒置问题：
WaitForSingleObject 返回 WAIT_OBJECT_0 代表进程已经成功退出，说明WM_CLOSE已经被正常处理，你当前的代码判断返回 WAIT_OBJECT_0 时抛出标识为'(1)'的异常，不符合预期逻辑。
修正参考：

EnumWindows(@SendWMCloseEnumFunc, pi.dwProcessId);
if WaitForSingleObject(pi.hProcess, 2000) <> WAIT_OBJECT_0 then    
begin
  // 2秒内未退出，执行强制终止逻辑
  if not TerminateProcess(pi.hProcess, lResult) then
    raise Exception.Create('Verwerking afgebroken - process niet gestopt (' + IntToStr(GetLastError) + ')');
  raise Exception.Create('Verwerking afgebroken (2)');
end
// 进程优雅关闭成功，根据业务需求决定是否抛出(1)提示
raise Exception.Create('Verwerking afgebroken (1)');

内容的提问来源于stack exchange，提问作者Jan Doggen