如何在PowerBuilder应用中托管第三方可执行程序并管控其运行？

你的需求本质是要把第三方EXE完全绑定到PB主应用的生命周期和窗口体系里，类似ActiveX的宿主依赖，咱们可以从启动权限管控、窗口嵌入绑定、生命周期锁死三个核心环节来实现，具体步骤如下：

一、先搞定启动权限：禁止第三方EXE单独启动 #

要实现“只能通过PB主应用启动”，有两种靠谱的方式，选哪种看你能不能修改第三方EXE的代码：

方式1：命令行参数验证（优先推荐，如果你能改第三方EXE） #

• 在PB主应用里启动EXE时，传递一个自定义的密钥参数，比如：

  // PB代码：启动第三方EXE并传递验证参数
  Run("thirdparty.exe --pb-host-auth=MySuperSecretKey123", Minimized!)
  

• 在第三方EXE的启动入口（比如C#的Main函数、C++的WinMain）里，先检查命令行参数是否包含这个密钥：
  • 如果参数不对，直接调用ExitProcess退出程序
  • 如果参数合法，再继续正常启动流程

方式2：命名互斥量验证（适合无法修改第三方EXE的场景） #

• PB主应用启动时，创建一个唯一的命名互斥量：

  // 先声明API
  Function Long CreateMutexA(Long lpMutexAttributes, Boolean bInitialOwner, String lpName) Library "kernel32.dll"
  Function Long WaitForSingleObject(Long hHandle, Long dwMilliseconds) Library "kernel32.dll"
  Constant Long INFINITE = -1
  
  // 在PB主窗口的Open事件里创建互斥量
  Long ll_hMutex
  ll_hMutex = CreateMutexA(0, True, "PB_Host_Exclusive_Mutex_XXXX") // XXXX换成你的唯一标识
  

• 然后用工具（比如AutoHotkey、或者自己写个轻量的启动代理）给第三方EXE加个启动前的校验：检查这个互斥量是否存在，不存在就直接退出；存在的话再启动原EXE。

二、把第三方EXE窗口嵌入PB（模拟Sheet窗口效果） #

PB本身没有直接嵌入外部窗口的功能，咱们得借助Windows API来实现，步骤如下：

1. 声明需要用到的Windows API #

在PB的全局函数或者窗口函数里声明这些API：

Function Long FindWindowA(Long lpClassName, String lpWindowName) Library "user32.dll"
Function Long SetParent(Long hWndChild, Long hWndNewParent) Library "user32.dll"
Function Boolean SetWindowPos(Long hWnd, Long hWndInsertAfter, Long X, Long Y, Long cx, Long cy, Long uFlags) Library "user32.dll"
Function Long SetWindowLongA(Long hWnd, Long nIndex, Long dwNewLong) Library "user32.dll"
Function Long GetWindowLongA(Long hWnd, Long nIndex) Library "user32.dll"

// 窗口样式常量
Constant Long GWL_STYLE = -16
Constant Long WS_CAPTION = 12582912 // 标题栏样式
Constant Long WS_THICKFRAME = 262144 // 可调整大小边框
Constant Long SWP_NOZORDER = 4

2. 启动并嵌入窗口 #

在PB的菜单或者按钮点击事件里，执行以下代码：

Long ll_exeHwnd, ll_parentHwnd
ll_parentHwnd = Handle(w_mdi_main) // 替换成你的MDI主窗口或者要嵌入的容器窗口句柄

// 启动第三方EXE（记得带上之前的验证参数）
Run("thirdparty.exe --pb-host-auth=MySuperSecretKey123", Minimized!)
Sleep(500) // 等待程序启动，实际可以用循环等待窗口出现，避免Sleep的不确定性

// 找到第三方EXE的主窗口句柄（替换成实际的窗口标题或者类名）
ll_exeHwnd = FindWindowA(0, "第三方EXE窗口标题") 

If ll_exeHwnd > 0 Then
    // 把第三方窗口设置为PB窗口的子窗口
    SetParent(ll_exeHwnd, ll_parentHwnd)

    // 去掉第三方窗口的标题栏和边框，让它更像PB的Sheet
    Long ll_newStyle
    ll_newStyle = GetWindowLongA(ll_exeHwnd, GWL_STYLE)
    ll_newStyle = ll_newStyle - WS_CAPTION - WS_THICKFRAME
    SetWindowLongA(ll_exeHwnd, GWL_STYLE, ll_newStyle)

    // 调整窗口大小，填满PB容器的客户区
    SetWindowPos(ll_exeHwnd, 0, 0, 0, &
        UnitsToPixels(w_mdi_main.WorkSpaceWidth(), XUnitsToPixels!), &
        UnitsToPixels(w_mdi_main.WorkSpaceHeight(), YUnitsToPixels!), &
        SWP_NOZORDER)
End If

3. 同步窗口大小变化 #

在PB容器窗口的Resize事件里，加入代码同步调整嵌入的第三方窗口大小：

Long ll_exeHwnd
ll_exeHwnd = FindWindowA(0, "第三方EXE窗口标题") // 或者把句柄存在全局变量里更高效
If ll_exeHwnd > 0 Then
    SetWindowPos(ll_exeHwnd, 0, 0, 0, &
        UnitsToPixels(WorkSpaceWidth(), XUnitsToPixels!), &
        UnitsToPixels(WorkSpaceHeight(), YUnitsToPixels!), &
        SWP_NOZORDER)
End If

三、锁死生命周期：禁止单独关闭第三方EXE，绑定PB主程序 #

1. 阻止用户单独关闭第三方EXE #

要拦截第三方窗口的关闭事件，咱们可以给它挂一个窗口钩子：

• 在PB里声明钩子相关的API（需要注意钩子的线程处理，可能需要用到DLL，或者用全局钩子）
• 拦截WM_CLOSE消息，如果是用户触发的关闭操作，就返回0，阻止窗口关闭；或者弹出提示“请关闭PB主应用后再退出”

如果觉得钩子太复杂，还有个简化方案：在PB里定时检查第三方进程的状态，如果发现进程退出了，就自动重启它（但体验可能不如钩子好）。

2. PB主程序退出时，强制关闭第三方EXE #

在PB主窗口的Close事件里，加入代码关闭第三方进程：

Function Long OpenProcess(Long dwDesiredAccess, Boolean bInheritHandle, Long dwProcessId) Library "kernel32.dll"
Function Boolean TerminateProcess(Long hProcess, Long uExitCode) Library "kernel32.dll"
Function Long GetWindowThreadProcessId(Long hWnd, Ref Long lpdwProcessId) Library "user32.dll"
Constant Long PROCESS_TERMINATE = 1

Long ll_exeHwnd, ll_processId, ll_hProcess
ll_exeHwnd = FindWindowA(0, "第三方EXE窗口标题")
If ll_exeHwnd > 0 Then
    GetWindowThreadProcessId(ll_exeHwnd, ll_processId)
    ll_hProcess = OpenProcess(PROCESS_TERMINATE, False, ll_processId)
    If ll_hProcess > 0 Then
        TerminateProcess(ll_hProcess, 0)
    End If
End If

一些注意事项 #

• 第三方EXE可能有多个窗口，一定要找对主窗口的句柄，可以用Spy++工具查看窗口类名和标题
• SetParent后，第三方EXE的消息循环可能会有异常，需要测试各种操作（比如菜单、弹窗）是否正常
• 如果第三方EXE是高DPI程序，要注意PB的DPI适配，避免窗口显示错位

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