18 lines
273 B
ObjectPascal
18 lines
273 B
ObjectPascal
|
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.
|