blob: 089c9fccd5110bc36a75293d9b013c0674d1a3c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
Program Example3;
{ Program to demonstrate the GetKeyEventShiftState function. }
Uses keyboard;
Var
K : TKeyEvent;
S : Byte;
begin
InitKeyBoard;
Write('Press keys combined with CTRL/SHIFT/ALT');
Writeln(', or press "q" to end.');
Repeat
K:=GetKeyEvent;
K:=TranslateKeyEvent(K);
S:=GetKeyEventShiftState(K);
If (S=0) then
Writeln('No special keys pressed')
else
begin
Writeln('Detected special keys : ',ShiftStateToString(K,False));
Writeln('Got key : ',KeyEventToString(K));
end;
Until (GetKeyEventChar(K)='q');
DoneKeyboard;
end.
|
