掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
子ウインドウにexeファイルの実行画面を表示 (ID：14728)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
普通の電卓はこんな感じでボタンを押せますけど procedure TForm1.Button1Click(Sender: TObject); var hWndApp,hControl:HWND; begin hWndApp := FindWindow('SciCalc', nil); if hWndApp <> 0 then hControl := GetDlgItem(hWndApp,125); // 0 → 124 ... 9 → 133 if hControl <> 0 then SendMessage(hControl,BM_CLICK,0,0); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.