掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
SendMessageでキーコードを送るには？ (ID:8042)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すいません！訂正してませんでした！PPCtrlは正しくは、NOTEEDITです。 というわけでコードは procedure TForm1.Button1Click(Sender: TObject); var NOTEEDIT :HWND; begin NOTEEDIT:=FindWindow('Notepad',nil); NOTEEDIT:=Findwindowex(NOTEEDIT,0,'Edit',nil); SendMessage(NOTEEDIT, WM_KEYDOWN, VK_CONTROL, 0); SendMessage(NOTEEDIT, WM_KEYDOWN, Ord('A'), 0); SendMessage(NOTEEDIT, WM_KEYUP, Ord('A'), 0); SendMessage(NOTEEDIT, WM_KEYUP, VK_CONTROL, 0); end; になります。すいませんでした。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.