;.lib "user32.dll"
;
;api_GetAsyncKeyState% (vKey%) : "GetAsyncKeyState"

Const VKey_Play=$B3
Const VKey_Prev=$B1
Const VKey_Next=$B0
Const VKey_Stop=$B2

Function IsKeyPressed(VKey)
   Return ( api_GetAsyncKeyState(VKey) Shr 16 ) And 1
End Function

Type Key
   Field StateSet
   Field Num
End Type

Function IsKeyHit(VKey)
   Local e.Key,a
   For e.Key=Each Key
      If e\Num=VKey Then
         a=IsKeyPressed(VKey)
         If (e\StateSet-a)=1 Then
            e\StateSet=a
            Return 1
         Else
            e\StateSet=a
            Return 0
         EndIf
      EndIf
   Next
   e.Key=New Key
   e\Num=VKey
   e\StateSet=IsKeyPressed(VKey)
   Return 0
End Function