掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
外部ソフトペイントを塗りつぶすには (ID:45323)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
var ParentHND: HWND; Child_HND: HWND; begin //ペイントのウィンドウハンドルを取得 ParentHND :=FindWindow('MSPaintApp', nil); if ParentHND = 0 then ShowMessage('Error001!'); //ハンドルを取得し擬似的に押す Child_HND:= FindWindowEx(ParentHND, 0, 'AfxFrameOrView42u', nil); if Child_HND = 0 then ShowMessage('Error002!'); Child_HND:= FindWindowEx(Child_HND, 0, 'Afx:1000000:8', nil); if Child_HND = 0 then ShowMessage('Error003!'); if Child_HND <> 0 then begin SendMessage(Child_HND, WM_LBUTTONDOWN, 100, 100); Sleep(500); SendMessage(Child_HND, WM_LBUTTONUP, 100, 100); end; で、塗りつぶす場所を選択していれば、塗りつぶせることはわかったのですが・・・、色を変えたり、メニューをいじったりすると、塗りつぶせません。 ハンドルの対象にフォーカスが当たっていないと、色を濡れない＝クリックされないようなのですが、ハンドルの対象にフォーカスを与えるのは、どうしたらできるのでしょうか？ SetFocusでは、エラーになるようです。 さてさて、どうして解決したいいものか？ delphi2010
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.