掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
子ウインドウにexeファイルの実行画面を表示 (ID：14725)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下の例は、電卓をPanel1に貼り付けます。 勘違いなら、すみません。 var R: TRect; iwCW, iwCH: Word; WS: Longword; begin hWndApp := FindWindow(PChar('SciCalc'), nil); GetWindowRect(hWndApp, R); iwCW := R.Right - R.Left; iwCH := R.Bottom - R.Top; MoveWindow(hWndApp, Screen.Width, Screen.Height, iwCW, iwCH, True); Application.ProcessMessages; WS := GetWindowLong(hWndApp, GWL_STYLE); SetWindowLong(hWndApp, GWL_STYLE, WS or WS_CLIPCHILDREN); Windows.SetParent(hWndApp, Panel1.Handle); SetWindowLong(hWndApp, GWL_STYLE, WS_CHILD); Windows.SetParent(hWndApp, Panel1.Handle); ShowWindow(hWndApp, SW_SHOWMAXIMIZED); MoveWindow(hWndApp, 0, 10, Panel1.Width, Panel1.Height, True); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.