freepascal.ru

Код: Выделить всё

program KeybMous;

uses crt,mouse;

var
  me : TMouseEvent;
  ch : char;

begin
  InitMouse;

  repeat

    write(chr(random(224)+32),#8);

    if keypressed then begin
      ch:=readkey;
      if ch=#0 then ch:=readkey;
      writeln('Keyboard  ',ord(ch));
      break;
    end;

    if PollMouseEvent(me) then begin
      GetMouseEvent(me);
      if me.Action=MouseActionDown then begin
        writeln('Mouse     ',me.Buttons);
        break;
      end;
    end;

  until false;

  DoneMouse;

end.

Код: Выделить всё

write(chr(random(224)+32),#8);

Код: Выделить всё

uses windows;

// Опрос кнопок клавиатуры и мыши.
procedure ReadKeys(var KeyCode, ControlKeyState :byte);
{ Возвращаемые значения:
KeyCode - код нажатой кнопки:
  0      - обычные (не управляющие) кнопки НЕ нажаты;
  1..7   - кнопки мыши: 1-левая; 2-правая; 3-средняя; 4..7-прочие кнопки мыши;
  8..255 - кнопки клавиатуры (Виртуальные коды клавиш)
ControlKeyState - состояние управляющих кнопок (побитно):
  0 - Правая кнопка ALT   нажата
  1 - Левая  кнопка ALT   нажата
  2 - Правая кнопка CTRL  нажата
  3 - Левая  кнопка CTRL  нажата
  4 - Любая  кнопка SHIFT нажата
  5 - Индикатор NUM LOCK    включён
  6 - Индикатор SCROLL LOCK включён
  7 - Индикатор CAPS LOCK   включён }
const control_keys=[16..20,44,91..93,144,145,160..165]; //Коды управляющих и необрабатываемых кнопок
var ih:hwnd;         // дескриптор ввода
    n,w:dword;       // число событий, состояние кнопок
    IR:INPUT_RECORD; // буфер данных
begin {ReadKeys}
  KeyCode:=0; ControlKeyState:=$FF;
  ih:=GetStdHandle(STD_INPUT_HANDLE);
  GetNumberOfConsoleInputEvents(ih,@n);
  while n>0 do begin
    ReadConsoleInput(ih,@IR,1,@w);
    if IR.EventType = 1 then begin // Обработка событий клавиатуры
      if not (IR.Event.KeyEvent.wVirtualKeyCode in control_keys) and IR.Event.KeyEvent.bKeyDown then begin
        KeyCode:=IR.Event.KeyEvent.wVirtualKeyCode and $FF;
        ControlKeyState:=IR.Event.KeyEvent.dwControlKeyState and $FF;
        break;
      end;
    end else
    if IR.EventType = 2 then begin // Обработка событий мыши
      w := IR.Event.MouseEvent.dwButtonState and $7F;
      while w>0 do begin
        inc(KeyCode);
        if odd(w) then break;
        w := w shr 1;
      end;
      if KeyCode>0 then begin
        ControlKeyState:=IR.Event.MouseEvent.dwControlKeyState and $FF;
        break;
      end;
    end;
    dec(n);
  end; {while n>0}
  if ControlKeyState=$FF then begin // Просмотр состояния управляющих кнопок
    if GetKeyState(VK_RMENU)    and $80 = 0 then ControlKeyState := ControlKeyState xor $01;
    if GetKeyState(VK_LMENU)    and $80 = 0 then ControlKeyState := ControlKeyState xor $02;
    if GetKeyState(VK_RCONTROL) and $80 = 0 then ControlKeyState := ControlKeyState xor $04;
    if GetKeyState(VK_LCONTROL) and $80 = 0 then ControlKeyState := ControlKeyState xor $08;
    if GetKeyState(VK_SHIFT)    and $80 = 0 then ControlKeyState := ControlKeyState xor $10;
    if GetKeyState(VK_NUMLOCK)  and $01 = 0 then ControlKeyState := ControlKeyState xor $20;
    if GetKeyState(VK_SCROLL)   and $01 = 0 then ControlKeyState := ControlKeyState xor $40;
    if GetKeyState(VK_CAPITAL)  and $01 = 0 then ControlKeyState := ControlKeyState xor $80;
  end;
end; {ReadKeys}