C#使用Process.Start启动Delphi编写的外部EXE出现双实例问题

• 参数配置错误：调用SetWindowPos时传入了SWP_NOMOVE和SWP_NOSIZE标记，这两个标记会强制系统忽略传入的坐标、宽高参数，是窗口无法移动到预期位置的直接原因。
• 主窗口句柄获取错误：绝大多数Delphi开发的桌面程序启动时会先创建一个无UI的临时窗口，用于单实例校验、资源初始化、闪屏展示，固定5秒等待的逻辑大概率会拿到这个临时窗口的句柄，而非程序的真正主窗口。临时窗口被嵌入到窗体容器后，Delphi程序后续初始化完成弹出的主窗口会留在桌面层，就会出现「两个实例」的假象：顶层未定位窗口是真正的主窗口，嵌入的黑色无UI窗口是临时启动窗口。
• 进程生命周期绑定错误：仅将临时窗口的父容器设置为当前窗体，真正的主窗口和当前进程没有绑定关系，所以关闭操作只会销毁嵌入的临时窗口，真正的主窗口关联的进程会继续留在后台运行。

1. 补充Win32 API声明 #

[DllImport("user32.dll", SetLastError = true)]
static extern IntPtr SetWindowPos(IntPtr hWnd, IntPtr hWndInsertAfter, int X, int Y, int cx, int cy, uint uFlags);

[DllImport("user32.dll", SetLastError = true)]
static extern IntPtr SetParent(IntPtr hWndChild, IntPtr hWndNewParent);

[DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]
static extern int GetWindowText(IntPtr hWnd, StringBuilder lpString, int nMaxCount);

[DllImport("user32.dll")]
static extern bool IsWindow(IntPtr hWnd);

const int HWND_TOPMOST = -1;
const uint SWP_SHOWWINDOW = 0x0040;

2. 替换原有启动逻辑 #

不要用固定Thread.Sleep等待，改用循环校验的方式获取真正的主窗口，可提前查下目标Delphi程序主窗口的标题，替换代码里的目标程序主窗口标题：

ProcessStartInfo psi = new ProcessStartInfo("UT512_UT513.exe");
psi.WindowStyle = ProcessWindowStyle.Normal;
Process p = Process.Start(psi);
p.WaitForInputIdle(); // 等待进程进入空闲状态，比固定Sleep可靠性更高

IntPtr mainWindowHandle = IntPtr.Zero;
// 最多等待10秒，避免逻辑卡死
for (int i = 0; i < 100; i++)
{
    p.Refresh();
    // 过滤临时窗口：判断窗口句柄有效，且窗口标题符合预期
    if (p.MainWindowHandle != IntPtr.Zero && IsWindow(p.MainWindowHandle))
    {
        StringBuilder title = new StringBuilder(256);
        GetWindowText(p.MainWindowHandle, title, 256);
        if (title.ToString().Contains("目标程序主窗口标题"))
        {
            mainWindowHandle = p.MainWindowHandle;
            break;
        }
    }
    Thread.Sleep(100);
}

if (mainWindowHandle == IntPtr.Zero)
{
    // 未获取到有效主窗口的异常处理逻辑，可自行补充
    p.Kill();
    return;
}

// 直接用SetWindowPos完成置顶+定位，不需要额外调用MoveWindow
SetWindowPos(mainWindowHandle, (IntPtr)HWND_TOPMOST, panel1.Location.X, panel1.Location.Y, 500, 500, SWP_SHOWWINDOW);
// 最后设置父容器，避免提前设置导致窗口状态异常
SetParent(mainWindowHandle, this.Handle);

额外优化建议 #

如果不方便获取目标程序的主窗口标题，也可以通过GetClassNameAPI获取窗口类名过滤，Delphi程序的主窗口类名一般是TForm开头的固定值，通过Spy++工具即可查询到。

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