掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ソフトキーがうまく動作しません (ID：29615)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
このようにループさせて 10 * 100 入力させても問題ないですが？ var H1 : HWND; I,J : Integer; begin //どちらか H1 := FindWindow(nil,'無題 - メモ帳'); H1 := FindWindow(nil,'ドキュメント - ワードパッド'); if H1 <> 0 then begin SetForegroundWindow(H1); for J := 0 to 99 do begin for I:=0 to 9 do begin 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(48+I, 0, KEYEVENTF_EXTENDEDKEY, 0); Keybd_event(48+I, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); end; Keybd_event(13, 0, KEYEVENTF_EXTENDEDKEY, 0); Keybd_event(13, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.