无法最小化 Process.Start 上的新进程窗口

Question

我需要从我的程序中启动一个 java .jar 进程。
一旦开始，我得到输出并处理它。

为此，我使用以下代码：

Dim p_Process As New Process()
Dim p_p As New ProcessStartInfo
p_p.FileName = "java.exe"
p_p.Arguments = "-jar myjar.jar"

p_p.WorkingDirectory = apppath & "\myFolder"

p_p.UseShellExecute = False
p_p.RedirectStandardOutput = True
p_p.WindowStyle = ProcessWindowStyle.Minimized
AddHandler p_Process.OutputDataReceived, AddressOf manageContent

p_Process.StartInfo = p_p
p_Process.Start()
p_Process.BeginOutputReadLine()

我需要以下几行来获取 Process 的输出以供我使用：

p_p.UseShellExecute = False
p_p.RedirectStandardOutput = True

一切正常，但窗口未最小化。
如何最小化窗口？

Answer 1

一种可能的方法是最小化由Java.exe 生成的窗口，当它出现时，使用 UI 自动化。
当进程启动时，Jar 文件被执行并创建一个新窗口。这个Window有一个特定的类名SunAwtFrame：这个值可以用来标识窗口，然后访问UI Automation Element的WindowPattern并调用它的SetWindowVisualState()方法来最小化Window。

您也可以使用 Window Title 属性，以防它在这里是更好的选择。在这种情况下，用于识别Window的PropertyCondition是NameProperty而不是ClassNameProperty：

window = AutomationElement.RootElement.FindFirst(TreeScope.Children, New PropertyCondition(
    AutomationElement.NameProperty, "[The Window Title]"))

当然，流程功能完善。

在这里，我使用异步变体实现它，重定向 StandardOutput 和 StandardError，还启用和订阅 Exited 事件，设置 [Process].EnableRaisingEvents = True。
Exited 事件会通知 Process 何时关闭并释放 Process 对象。

---

此处的代码使用秒表来等待“进程”窗口出现，因为Process.WaitForInputIdle() 可能不会正确处理并且过早完成。
如果3000 毫秒间隔太短或太长，请调整代码。
但是请注意，一旦 Window 出现，While 循环就会退出。

此代码需要引用 UIAutomationClient 和 UIAutomationTypes 程序集。

Imports System.Windows.Automation

Dim proc As New Process()
Dim psInfo As New ProcessStartInfo() With {
    .FileName = "java.exe",
    .Arguments = "-jar YourJarFile.jar",
    .WorkingDirectory = "[Your Jar File Path]",
    .UseShellExecute = False,
    .RedirectStandardOutput = True,
    .RedirectStandardError = True
}

proc.EnableRaisingEvents = True
proc.StartInfo = psInfo

AddHandler proc.OutputDataReceived,
    Sub(o, ev)
        Console.WriteLine(ev.Data?.ToString())
    End Sub
AddHandler proc.ErrorDataReceived,
    Sub(o, ev)
        Console.WriteLine(ev.Data?.ToString())
    End Sub
AddHandler proc.Exited,
    Sub(o, ev)
        Console.WriteLine("Process Exited")
        proc?.Dispose()
    End Sub

proc.Start()
proc.BeginOutputReadLine()

Dim window As AutomationElement = Nothing
Dim sw1 As Stopwatch = New Stopwatch()
sw1.Start()
While True
    window = AutomationElement.RootElement.FindFirst(
        TreeScope.Children, New PropertyCondition(
        AutomationElement.ClassNameProperty, "SunAwtFrame"))
    If window IsNot Nothing OrElse sw1.ElapsedMilliseconds > 3000 Then Exit While
End While
sw1.Stop()

If window IsNot Nothing Then
    DirectCast(window.GetCurrentPattern(WindowPattern.Pattern), WindowPattern).
        SetWindowVisualState(WindowVisualState.Minimized)
End If