如何使用多個 createprocess 於同一視窗.. |
尚未結案
|
chencclen
一般會員 發表:3 回覆:3 積分:1 註冊:2004-09-03 發送簡訊給我 |
|
RootKit
資深會員 發表:16 回覆:358 積分:419 註冊:2008-01-02 發送簡訊給我 |
|
chencclen
一般會員 發表:3 回覆:3 積分:1 註冊:2004-09-03 發送簡訊給我 |
|
RootKit
資深會員 發表:16 回覆:358 積分:419 註冊:2008-01-02 發送簡訊給我 |
|
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
因一時無法在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]
------
努力會更接近成功 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |