Examples Delphi

Is the Control key held down
function IsCTRL: Boolean;
begin
Result := GetKeyState(VK_CONTROL) and 128 <> 0;
end;