如何将已运行的EXE程序嵌入Visual Basic窗体的Panel控件中？

当然可以实现把已经运行的EXE程序嵌入到Visual Basic窗体的Panel控件里！你的现有代码是启动新进程后再绑定父窗口，针对已运行进程的场景，核心还是依赖user32.dll里的窗口操作API，但关键步骤变成了先获取目标进程的窗口句柄，再完成嵌入。

核心思路 #

1. 获取目标进程的窗口句柄：有两种常用方式，根据你的场景选择：
   • 通过窗口标题查找（适合知道目标窗口标题的情况）
   • 通过进程名查找（适合不确定窗口标题但知道进程名称的情况）
2. 绑定父窗口并适配大小：用SetParent将目标窗口的父容器设为Panel，再通过API调整窗口大小适配Panel的尺寸。

完整示例代码 #

Public Class Form1
    ' 所需Windows API声明
    Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
    Declare Auto Function FindWindow Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Declare Auto Function MoveWindow Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Boolean) As Boolean
    
    ' 窗口消息常量
    Private Const WM_SYSCOMMAND As Integer = &H112
    Private Const SC_MAXIMIZE As Integer = &HF030

    Private Sub btnEmbedRunningExe_Click(sender As Object, e As EventArgs) Handles btnEmbedRunningExe.Click
        ' 选项1：通过窗口标题查找已运行的记事本（示例标题为"无标题 - 记事本"）
        Dim targetWnd As IntPtr = FindWindow(Nothing, "无标题 - 记事本")
        
        ' 选项2：通过进程名查找（适合不知道窗口标题的场景）
        'Dim procs() As Process = Process.GetProcessesByName("notepad")
        'If procs.Length > 0 Then
        '    targetWnd = procs(0).MainWindowHandle
        'End If

        If targetWnd <> IntPtr.Zero Then
            ' 将目标窗口的父容器设置为Panel1
            SetParent(targetWnd, Panel1.Handle)
            ' 发送最大化消息，让窗口适配Panel大小
            SendMessage(targetWnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
            ' 也可以用MoveWindow精确控制窗口位置和尺寸
            'MoveWindow(targetWnd, 0, 0, Panel1.Width, Panel1.Height, True)
        Else
            MessageBox.Show("未找到目标进程的窗口，请确认程序已运行！")
        End If
    End Sub

    ' 可选：监听Panel大小变化，同步调整嵌入窗口尺寸
    Private Sub Panel1_Resize(sender As Object, e As EventArgs) Handles Panel1.Resize
        ' 这里可以保存之前获取的targetWnd，在Resize时重新调整
        ' If targetWnd <> IntPtr.Zero Then
        '     MoveWindow(targetWnd, 0, 0, Panel1.Width, Panel1.Height, True)
        ' End If
    End Sub
End Class

注意事项 #

• 部分程序存在防嵌入机制（比如Chrome、Edge这类多进程浏览器，直接嵌入主窗口可能无效，需要找到实际承载网页的子窗口句柄）
• 确保获取的窗口句柄有效：MainWindowHandle可能为空（比如进程刚启动还未初始化窗口，或者是无界面的后台进程）
• 嵌入后如果Panel尺寸变化，建议监听Panel.Resize事件，同步调整嵌入窗口的大小，避免出现显示错位的问题

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