unit L_KeysDown;

interface

  function isAltDown : Boolean;
  function isCtrlDown : Boolean;
  function isShiftDown : Boolean;
  function isWinkeyDown : Boolean;

implementation
uses
  Windows;

{ ------------------------------------------------------------------------------------------------ }
function isAltDown : Boolean;
var
  State: TKeyboardState;
begin
  GetKeyboardState(State) ;
  Result := ((State[vk_Menu] and 128)<>0);
end { isAltDown };

{ ------------------------------------------------------------------------------------------------ }
function isCtrlDown : Boolean;
var
  State: TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[VK_CONTROL] and 128)<>0);
end{ isCtrlDown };

{ ------------------------------------------------------------------------------------------------ }
function isShiftDown : Boolean;
var
  State: TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[vk_Shift] and 128)<>0);
end{ isShiftDown };

{ ------------------------------------------------------------------------------------------------ }
function isWinkeyDown : Boolean;
var
  State: TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[VK_LWIN] and 128)<>0) or ((State[VK_RWIN] and 128)<>0);
end{ isWinkeyDown };

end.