Greeting, 

我想在使用多個 CreateProcess 後,能夠將視窗指定在為同一個,例如:我以 CreateProcess 呼叫了一個 "WORD" 的 A視窗,而之後我又用CreateProcess 呼叫了另一個 "WORD" 的 B視窗, 但此時我需要將 B視窗放在 A視窗之中 (變成只有一個 'WORD' 主視窗,但有兩個不同的內容) ,如果單純以 WIN API 的方式,應該要如何作, 謝謝!!

指定視窗的ParentWindow

謝謝 RootKit 的回覆:
但我上網找了找資料還是無法理解應該要如何實作,能否請 RootKit 大大給個簡單的例子給小弟參考 , 謝謝 !!

1. 先找到 母視窗的Handle ，或者經由 CreateProcess 通知子程式 Parent Handle 的值。
2. 簡單的作法是，在子程式中使用 FindWindow 找到母視窗 在Windows.SetParent

因一時無法在ktop找到舊的文章, 只好找自己的硬碟庫存,原作者看到,千萬不要打我, 單純提供例子, 若有著作權問題, 我會將其刪除.


[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
H1,H2: Hwnd;
begin
// 先執行要放入專案的外部EXE檔案(用隱藏方式來執行)
WinExec('C:\Program Files\TOOLS\MYIE\MyIE.exe',SW_HIDE);
// 再找到該外部EXE檔案
H1 := FindWindow(nil,PChar('MyIE'));
// 假設找到執行之程式後要放在 Panel1
H2 := Panel1.Handle;
// 將外部程式放在 Panel1
Windows.SetParent(H1,H2);
// 設定外部程式顯示的位置及大小
// MoveWindow(hWnd,X,Y,W,H,B) : RETURN BOOL
// hWnd: HWND
// X:Integer; {horizontal}
// Y:Integer; {vertical}
// W:Integer; {the new window width}
// H:Integer; {the new window height}
// B:BOOL; {the repaint flag}
MoveWindow(H1,0,0,Panel1.Width,Panel1.Height,True);
//
Windows.ShowWindow(H1,SW_ShowNormal);
end;
[/code]

------
努力會更接近成功