Главная » Pascal, Исходники, Клавиатура » Показ существуемых комбинаций клавиш
Фев
16

Показ существуемых комбинаций клавиш

Программа показывает как работают многие из ключевых комбинаций которые можно получить с помощью обычный ПК-клавиатуры.
(Пример: Ctrl + F4, Ctrl+Insert и так далее).

[sourcecode language=»pascal»]
Uses Crt;
var ch: char;
begin
TextMode (co80);
TextColor (15);
TextBackGround (1);
ClrScr;
WriteLn (‘Press ESC to quit!’);
Repeat
ch := ReadKey;

If ch = #0 Then
Begin
Ch := readKey;

If ch = #4 Then WriteLn (‘Ctrl+Insert’);
If ch = #5 Then WriteLn (‘Shift+Insert’);
If ch = #6 Then WriteLn (‘Ctrl+Delete’);
If ch = #7 Then WriteLn (‘Shift+Delete’);
[/sourcecode][sourcecode language=»pascal»]
If ch = #59 Then WriteLn (‘F1′);
If ch = #60 Then WriteLn (‘F2′);
If ch = #61 Then WriteLn (‘F3′);
If ch = #62 Then WriteLn (‘F4′);
If ch = #63 Then WriteLn (‘F5′);
If ch = #64 Then WriteLn (‘F6′);
If ch = #65 Then WriteLn (‘F7′);
If ch = #66 Then WriteLn (‘F8′);
If ch = #67 Then WriteLn (‘F9′);
If ch = #68 Then WriteLn (‘F10′);

If ch = #71 Then WriteLn (‘Home’);
If ch = #72 Then WriteLn (‘Up’);
If ch = #73 Then WriteLn (‘PgUp’);
If ch = #75 Then WriteLn (‘Left’);
If ch = #77 Then WriteLn (‘Right’);
If ch = #79 Then WriteLn (‘End’);
If ch = #80 Then WriteLn (‘Down’);
If ch = #81 Then WriteLn (‘PgDn’);
If ch = #82 Then WriteLn (‘Insert’);
If ch = #83 Then WriteLn (‘Delete’);

If ch = #84 Then WriteLn (‘Shift+F1′);





If ch = #85 Then WriteLn (‘Shift+F2′);
If ch = #86 Then WriteLn (‘Shift+F3′);
If ch = #87 Then WriteLn (‘Shift+F4′);
If ch = #88 Then WriteLn (‘Shift+F5′);
If ch = #89 Then WriteLn (‘Shift+F6′);
If ch = #90 Then WriteLn (‘Shift+F7′);
If ch = #91 Then WriteLn (‘Shift+F8′);
If ch = #92 Then WriteLn (‘Shift+F9′);
If ch = #93 Then WriteLn (‘Shift+F10′);

If ch = #94 Then WriteLn (‘Ctrl+F1′);
If ch = #95 Then WriteLn (‘Ctrl+F2′);
If ch = #96 Then WriteLn (‘Ctrl+F3′);
If ch = #97 Then WriteLn (‘Ctrl+F4′);
If ch = #98 Then WriteLn (‘Ctrl+F5′);
If ch = #99 Then WriteLn (‘Ctrl+F6′);
If ch = #100 Then WriteLn (‘Ctrl+F7′);
If ch = #101 Then WriteLn (‘Ctrl+F8′);
If ch = #102 Then WriteLn (‘Ctrl+F9′);
If ch = #103 Then WriteLn (‘Ctrl+F10′);

If ch = #104 Then WriteLn (‘Alt+F1′);
If ch = #105 Then WriteLn (‘Alt+F2′);
If ch = #106 Then WriteLn (‘Alt+F3′);
If ch = #107 Then WriteLn (‘Alt+F4′);
If ch = #108 Then WriteLn (‘Alt+F5′);
If ch = #109 Then WriteLn (‘Alt+F6′);
If ch = #110 Then WriteLn (‘Alt+F7′);
If ch = #111 Then WriteLn (‘Alt+F8′);
If ch = #112 Then WriteLn (‘Alt+F9′);
If ch = #113 Then WriteLn (‘Alt+F10′);

If ch = #115 Then WriteLn (‘Ctrl+Left’);
If ch = #116 Then WriteLn (‘Ctrl+Right’);
If ch = #117 Then WriteLn (‘Ctrl+End’);
If ch = #118 Then WriteLn (‘Ctrl+PgDn’);
If ch = #119 Then WriteLn (‘Ctrl+Home’);
If ch = #132 Then WriteLn (‘Ctrl+PgUp’);
ch := #0;

End;
If ch = #8 Then WriteLn (‘Backspace’);
If ch = #13 Then WriteLn (‘Enter’);
If ch = #32 Then WriteLn (‘Space’);

If (ch <>#0) and (ch <> #8) and (ch <> #13) and (ch <> #32) Then WriteLn (ch);
Until ch = #27; {Esc pressed?}
WriteLn (‘Esc’);
end.
[/sourcecode]



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.