我目前的任务是在 WPF 中托管一堆旧的 VB6 exe，同时正在进行看似无限的任务或重构。
托管 EXE 一点也不棘手，但可以使过程无缝。
目前的流程是：1）创建视图2）注入VM 3）启动进程并启动EXE。4) WaitForInputIdle 5) SetParent 6) SetWindowLong 7) SetWindowPos
我遇到的问题是，据我所知，使用这种方法，进程必须先自然加载，然后才能调用 SetParent。这意味着应用程序在停留在 WPF 控件中之前会出现闪烁。
我想找到一种摆脱这种情况的方法，是否有一种方法可以纯粹在内存中打开进程或隐藏进程（我将 UseShellExecute 设置为 true 并且 WindowStyle = ProcessWindowStyle.Minimized）。
可能有另一种方法可以完全打开我不知道的过程。
视图模型构造函数
public ShellViewModel()
{
WindowWidth = 600;
WindowHeight = 500;
MainTitle = "Main Title";
BreadCrumb = "NA";
IsLoading = true;
Task.Factory.StartNew(() =>
{
//Process p = OpenProcess(@"C:\\Windows\\System32\\notepad.exe");
Process p = OpenProcess(@"C:\\Program Files\\WinRAR\\WinRar.exe");
return p;
}).ContinueWith(r =>
{
try
{
Process p = r.Result;
_handler = p.MainWindowHandle;
_host.Child = _panel;
Content = _host;
int dwStyle = GetWindowLong(_handler, GWL_STYLE);
SetParent(_handler, _panel.Handle);
SetWindowLong(_handler, GWL_STYLE, new IntPtr(dwStyle & ~WS_CAPTION & ~WS_THICKFRAME));
SetWindowPos(_handler, IntPtr.Zero, 0, 0, (int) Math.Round(WindowWidth), (int) Math.Round(WindowHeight) - 106, SWP_FRAMECHANGED);
BreadCrumb += " Host: " + p.Id.ToString(CultureInfo.InvariantCulture);
IsLoading = false;
}
catch (Exception e)
{
MessageBox.Show(e.Message);
}
}, UiTaskSchedulerHelper.Instance.UiTaskScheduler);
}
打开进程
private Process OpenProcess(string path)
{
Process p = null;
lock (locked)
{
ProcessStartInfo psi = new ProcessStartInfo();
psi.FileName = path;
psi.UseShellExecute = true;
psi.WindowStyle = ProcessWindowStyle.Minimized;
p = Process.Start(psi);
BreadCrumb += " OpenProcess: " + p.Id;
p.EnableRaisingEvents = true;
p.WaitForInputIdle();
}
return p;
}
已将示例上传到 github，请随时更新。
https://github.com/OliDow/FormHostPoc/tree/master/FormHostPoc