我正在使用以下代码从我的应用程序中打开另一个应用程序。

type TShellState = class
  SEInfo: TShellExecuteInfo;
  AppName: String;
  Constructor Create(pSEInfo: TShellExecuteInfo; pAppName: String);
end;

Var
  ShellStates: TObjectStack<TShellState>;

Constructor TShellstate.Create(pSEInfo: TShellExecuteInfo; pAppName: string);
begin
  inherited Create;
  SEInfo := pSEInfo;
  AppName := pAppName;
end;

//In Form Create
ShellStates := TObjectStack<TShellState>.create;
ShellStates.OwnsObjects := true;

function DoExecute(Const ExecuteFile: string;
                   Const ParamString: string;
                   Modal: Boolean;
                   UseLocalDir: Boolean = false;
                   NoCloseProc: Boolean = true): Boolean;

Var SEInfo: TShellExecuteInfo;
    ExitCode: DWORD;

begin
  FillChar(SEInfo, SizeOf(SEInfo), 0) ;
  SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
  with SEInfo do begin
    fMask := SEE_MASK_DEFAULT;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile) ;
    lpParameters := PChar(ParamString) ;
    if UseLocalDir then
      lpDirectory := PChar(ExtractFilePath(ExecuteFile));
    nShow := SW_SHOWNORMAL;
  end;

  Result := ShellExecuteEx(@SEInfo);
  if result then begin
    if Modal then begin
      if SEInfo.hProcess <> 0 then begin
        WaitForSingleObject(SEInfo.hProcess, INFINITE);
        CloseHandle(SEInfo.hProcess);
      end;
      Result := true;
    end
    else if NoCloseProc then
      ShellStates.Push(TShellState.Create(SEInfo, ExecuteFile));
  end;
end;

如果NoCloseProc为真，我将SEInfo记录放入堆栈。
当我关闭主程序时，我希望能够使用SEInfo中的字段来标识接收WM_CLOSE消息的窗口。

while ShellStates.Count > 0 do begin
    ShellState := ShellStates.Peek;
    SendMessage(ShellState.SEInfo.Wnd, WM_CLOSE,0,0);
    ShellStates.Pop;
  end

但是hProcess和Wnd都是0，所以看起来我必须使用文件名来定位窗口。有没有更直接的方法？我尝试使用FindWindow API调用SEInfo.lpFile，但是返回0。