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
29
30
31
32
33
|
program example5;
{ This program demonstrates the PutKeyEvent function }
uses keyboard;
Var
K,k2 : TKeyEvent;
begin
InitKeyBoard;
Writeln('Press keys, press "q" to end.');
K2:=0;
Repeat
K:=GetKeyEvent;
If k<>0 then
begin
if (k2 mod 2)=0 then
K2:=K+1
else
K2:=0;
K:=TranslateKeyEvent(K);
Writeln('Got key : ',KeyEventToString(K));
if (K2<>0) then
begin
PutKeyEvent(k2);
K2:=TranslateKeyEVent(K2);
Writeln('Put key : ',KeyEventToString(K2))
end
end
Until (GetKeyEventChar(K)='q');
DoneKeyBoard;
end.
|
