掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
別アプリへの仮想キーを送るには？ (ID：17515)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
わざわざ例までありがとうございます。 難しすぎてあまり理解できませんが；； 色々調べてみた結果なんとかそれっぽいものができました。 var Form1: TForm1; implementation {$R *.DFM} const id_W = 101; procedure TForm1.WMHotKey( var Msg: TWMHotKey ); begin if GetAsyncKeyState(VK_NONCONVERT)<>0 then keybd_event(Byte('0'), 0, 0, 0); keybd_event(Byte('0'), 0, KEYEVENTF_KEYUP, 0); keybd_event(Byte('1'), 0, 0, 0); keybd_event(Byte('1'), 0, KEYEVENTF_KEYUP, 0); keybd_event(Byte('2'), 0, 0, 0); keybd_event(Byte('2'), 0, KEYEVENTF_KEYUP, 0); end; procedure TForm1.FormCreate(Sender : TObject ); begin RegisterHotkey(Form1.Handle, id_W, 0, Byte('W')); end; procedure TForm1.FormDestroy(Sender : TObject ); begin UnRegisterHotkey(Form1.Handle, id_W); end; end. Borland Q&Aを参考にしました。 無変換押さないと正しく012と入力されないですが；
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.