如何控制可执行文件生命周期？已用ShellExecute启动，需实现关闭功能

因为ShellExecute()不会返回启动后的进程句柄或ID，所以无法直接通过它关闭进程。你需要在启动程序时记录进程标识（句柄或PID），再通过这些标识来关闭进程。

步骤1：替换ShellExecute为ShellExecuteEx以获取进程信息 #

使用ShellExecuteEx()并设置SEE_MASK_NOCLOSEPROCESS参数，这样可以获取到新启动进程的句柄，将其和对应的exe路径关联存储（比如用两个TStringList分别存路径和句柄，或者用TList<THandle>专门存储进程句柄）。

示例代码：

var
  sei: TShellExecuteInfo;
  ExePath: string;
begin
  ExePath := YourExeList.Strings[i]; // YourExeList是存储exe路径的TStringList
  ZeroMemory(@sei, SizeOf(sei));
  sei.cbSize := SizeOf(sei);
  sei.fMask := SEE_MASK_NOCLOSEPROCESS;
  sei.lpFile := PChar(ExePath);
  sei.nShow := SW_SHOWNORMAL;
  
  if ShellExecuteEx(@sei) then
  begin
    // 将进程句柄存入列表保存
    ProcessHandleList.Add(sei.hProcess);
  end;
end;

步骤2：关闭进程的两种方式 #

方式1：强制关闭（直接TerminateProcess） #

如果不需要优雅关闭，直接用TerminateProcess()强制结束进程，记得用完句柄后关闭：

var
  hProcess: THandle;
begin
  for hProcess in ProcessHandleList do
  begin
    // 检查进程是否仍在运行
    if WaitForSingleObject(hProcess, 0) = WAIT_TIMEOUT then
    begin
      TerminateProcess(hProcess, 0);
    end;
    CloseHandle(hProcess);
  end;
  ProcessHandleList.Clear;
end;

方式2：优雅关闭（发送WM_CLOSE消息） #

如果希望程序正常退出（比如保存数据），可以通过进程ID找到主窗口并发送WM_CLOSE消息：

procedure CloseProcessByPID(const PID: DWORD);
var
  hWnd: HWND;
  CurrentPID: DWORD;
begin
  hWnd := GetTopWindow(0);
  while hWnd <> 0 do
  begin
    GetWindowThreadProcessId(hWnd, @CurrentPID);
    if CurrentPID = PID then
    begin
      PostMessage(hWnd, WM_CLOSE, 0, 0);
      // 等待5秒让进程退出
      WaitForSingleObject(OpenProcess(SYNCHRONIZE, False, PID), 5000);
      Break;
    end;
    hWnd := GetNextWindow(hWnd, GW_HWNDNEXT);
  end;
end;

使用时，从保存的句柄获取PID：CloseProcessByPID(GetProcessId(hProcess))

注意事项 #

• 存储的进程句柄需要在程序退出或关闭进程后调用CloseHandle()释放资源，避免内存泄漏。
• TerminateProcess()是强制终止，可能导致程序数据丢失，优先尝试优雅关闭。
• 如果有多个同名进程，通过启动时记录的PID/句柄关闭更准确，避免误关其他进程。

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