掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
SendMessageでキーコードを送るには？ (ID:8040)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
メモ帳に「Ctrl」+「A」をおくるコードを作成したんですが、どうもうまくいきません。 //Form1にButton1をおいてください。 procedure TForm1.Button1Click(Sender: TObject); var NOTEEDIT :HWND; begin NOTEEDIT:=FindWindow('Notepad',nil); NOTEEDIT:=Findwindowex(NOTEEDIT,0,'Edit',nil); SendMessage(PPCtrl, WM_KEYDOWN, VK_CONTROL, 0); SendMessage(PPCtrl, WM_KEYDOWN, Ord('A'), 0); SendMessage(PPCtrl, WM_KEYUP, Ord('A'), 0); SendMessage(PPCtrl, WM_KEYUP, VK_CONTROL, 0); end; 解決策がありましたら、ご教授お願いします。 （1日に2つの質問をしてすみません。でも本当にわかんないんです。。。トホホ・・）
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.