求解：如何将一个外部程序运行在自己的窗口中？

[dafu2003]

比如一个exe格式的电子书，让他运行在我的一个form中。
也就是说要修改它的父窗口为我的form，再修改他的位置。

能做到吗？如何做？
谢谢了。

[Kill2010]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()
    Shell "calc.exe", vbNormalNoFocus '打开计算器
End Sub
Private Sub Command1_Click()

    Myhwnd = FindWindow(vbNullString, "计算器") '得到计算器的句柄
    SetParent Myhwnd, Me.hwnd
End Sub

[ningweidong]

先找到目标窗口的句柄，再把它的父体设置成你的窗体

Private Sub Command1_Click()
    Dim n As Long
    n = FindWindow(vbNullString, "扫雷")
    
    SetParent n, me.hWnd
End Sub

我这里是按窗口标题查找的句柄，你可以用其它方法查找句柄。
然后设置父窗体，我这里设的是程序窗体，你也可以设为别的窗体。

[dafu2003]

楼上几位说的不错，谢谢。
现在的问题是，我的程序使用 shell 或 shellexecute 执行的不确定的程序，用FindWindow 无法确定其hwnd，该如何才能获得他的hwnd?

[贝隆]

[Quote=引用 2 楼 kill2010 的回复:]
VB code
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVa……
[/Quote]
+1

[嗷嗷叫的老马]

调用setparent函数.

[ningweidong]

findwindow只适合查找标题固定的窗口的名柄。
查找窗口的句柄方法还有很多，百度一下，就有很多

[嗷嗷叫的老马]

[Quote=引用 4 楼 dafu2003 的回复:]
使用 shell 或 shellexecute 执行的不确定的程序，用FindWindow 无法确定其hwnd，该如何才能获得他的hwnd?
[/Quote]
一,SHELL后得到了PID.

二,使用enumwindows取得所有顶级窗口的句柄,再用GetWindowThreadProcessId得到PID,对比,得到了窗口HWND:)

[bbsd236]

谢谢，找了好久了。