掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ソフトキーがうまく動作しません (ID：29613)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
メモ帳やワードパッドだけど procedure TForm2.Button1Click(Sender: TObject); var H1 : HWND; begin //どちらか H1 := FindWindow(nil,'無題 - メモ帳'); H1 := FindWindow(nil,'ドキュメント - ワードパッド'); if H1 <> 0 then begin SetForegroundWindow(H1); Keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY, 0); Keybd_event(191, 0, KEYEVENTF_EXTENDEDKEY, 0); Keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); Keybd_event(191, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); Keybd_event(188, 0, KEYEVENTF_EXTENDEDKEY, 0); Keybd_event(188, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); end; end; で普通に入力されるけど？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.