[Savant]

Mavlyudov
Если честно, то не понимаю, чем Вас не устроила прекрасная ассемблерная реализация...
Ну да ладно, вот паскаль:

Код:

function KeyPressed(VKey: Integer): LongBool;
begin
  Result := (Byte(GetKeyState(VKey) and $0080) shr 7) = 1;
end;