unit uEWTools;

interface

uses
  Windows;

function IsKeyDown(VirtualKeyCode:Integer=VK_SHIFT): Boolean;

implementation

function IsKeyDown(VirtualKeyCode:Integer=VK_SHIFT): Boolean;
begin
  Result := GetKeyState(VirtualKeyCode) and $80 <> 0;
end;

end.