>>20
Delphiで使う方法わかんね
>>21
同じ結果ですた

とりあえずはじめの一瞬間が空くとこを無視するようにしました
もちろんシビアな入力はできない(´・ω・`) ショボーン・・
DirectInputもQuadrupleから利用してみましたがうまくいきました

Quadrupleのソースよんできます