等待应用程序最小化

Question

我有一个全屏应用程序启动其他应用程序，并等到它关闭，当它检测到，第一个应用程序再次启动完整sceen与此源代码：

Dim LastSlash As Integer = App.LastIndexOf("\")
Dim MyAppPath As String = App.Substring(0, LastSlash)
Dim MyAppName As String = App.Substring(LastSlash, App.Length - LastSlash - 1)
Dim sysFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
Dim pInfo As New ProcessStartInfo()
pInfo.FileName = App
Dim p As Process = Process.Start(pInfo)
p.WaitForInputIdle()
p.WaitForExit()

问题是，如果我通过这种方式启动Skype，当用户点击X关闭de windows时，应用程序永远不会关闭，它会最小化到系统尝试...所以第一个应用程序永远不会全屏显示试。

有谁知道我该怎么做？

提前致谢

Answer 1

使用此处提供的示例：

http://pinvoke.net/default.aspx/user32.EnumDesktopWindows