掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
アクティブウィンドウへ仮想キーを送るには？ (ID：6364)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 タイミングがきわどいのでしたら procedure TForm1.Button1Click(Sender: TObject); var hMemochou:HWND; begin hmemochou := FindWindow('Notepad',nil); SetForegroundWindow(hMemochou); Sleep(500); Keybd_event(Byte('D'),0,0,0); Keybd_event(Byte('D'),0,KEYEVENTF_KEYUP,0); Keybd_event(Byte('E'),0,0,0); Keybd_event(Byte('E'),0,KEYEVENTF_KEYUP,0); Keybd_event(Byte('L'),0,0,0); Keybd_event(Byte('L'),0,KEYEVENTF_KEYUP,0); Keybd_event(VK_RETURN,0,0,0); Keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0); end; こんな感じどうでしょうか？ > フォーカスも「TMemo に相当するもの」になっています． 「TMemo に相当するもの」のウィンドウハンドルが得られるなら、 アクティブにしなくても、メッセージで文字列を設定できると思います。 たとえば、秀丸や Emeditor のような独自のエディットコントロールの場合は メッセージではだめです。その場合は、今回のようにキーボードをシミュレート するしかありません。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.