home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / keyboard / extkey / ektest.pas next >
Pascal/Delphi Source File  |  1988-02-09  |  4KB  |  102 lines
  1. Program EKTest;
  2.  
  3. { Test program for the EXTKEY.PAS unit - Dave Bennett }
  4.  
  5. Uses
  6.   ExtKey, Crt;
  7.  
  8. Var
  9.   Ch : Word;    { A Key to be read must be defined as a Word }
  10.  
  11. Begin
  12.   ClrScr;
  13.   Repeat                              { Start the loop                }
  14.     Ch := ExtendKey;                  {   Get the extended key        }
  15.     If ExtendedKey Then Case Ch Of    {   If the is and extended key  }
  16.       Alt_A : Write('<Alt_A>');       {     Show the extended keys    }
  17.       Alt_B : Write('<Alt_B>');       {             .                 }
  18.       Alt_C : Write('<Alt_C>');       {             .                 }
  19.       Alt_D : Write('<Alt_D>');       {             .                 }
  20.       Alt_E : Write('<Alt_E>');
  21.       Alt_F : Write('<Alt_F>');
  22.       Alt_G : Write('<Alt_G>');
  23.       Alt_H : Write('<Alt_H>');
  24.       Alt_I : Write('<Alt_I>');
  25.       Alt_J : Write('<Alt_J>');
  26.       Alt_K : Write('<Alt_K>');
  27.       Alt_L : Write('<Alt_L>');
  28.       Alt_M : Write('<Alt_M>');
  29.       Alt_N : Write('<Alt_N>');
  30.       Alt_O : Write('<Alt_O>');
  31.       Alt_P : Write('<Alt_P>');
  32.       Alt_Q : Write('<Alt_Q>');
  33.       Alt_R : Write('<Alt_R>');
  34.       Alt_S : Write('<Alt_S>');
  35.       Alt_T : Write('<Alt_T>');
  36.       Alt_U : Write('<Alt_U>');
  37.       Alt_V : Write('<Alt_V>');
  38.       Alt_W : Write('<Alt_W>');
  39.       Alt_X : Write('<Alt_X>');
  40.       Alt_Y : Write('<Alt_Y>');
  41.       Alt_Z : Write('<Alt_Z>');
  42.       UpKey : Write('<UpKey>');
  43.       DownKey : Write('<DownKey>');
  44.       LeftKey : Write('<LeftKey>');
  45.       RightKey : Write('<RightKey>');
  46.       Ctrl_LeftKey : Write('<Ctrl_LeftKey>');
  47.       Ctrl_RightKey : Write('<Ctrl_RightKey>');
  48.       InsKey : Write('<InsKey>');
  49.       DelKey : Write('<DelKey>');
  50.       HomeKey : Write('<HomeKey>');
  51.       EndKey : Write('<EndKey>');
  52.       PageUp : Write('<PageUp>');
  53.       PageDown : Write('<PageDown>');
  54.       Ctrl_HomeKey : Write('<Ctrl_HomeKey>');
  55.       Ctrl_EndKey : Write('<Ctrl_EndKey>');
  56.       Ctrl_PageUp : Write('<Ctrl_PageUp>');
  57.       Ctrl_PageDown : Write('<Ctrl_PageDown>');
  58.       F1 : Write('<F1>');
  59.       F2 : Write('<F2>');
  60.       F3 : Write('<F3>');
  61.       F4 : Write('<F4>');
  62.       F5 : Write('<F5>');
  63.       F6 : Write('<F6>');
  64.       F7 : Write('<F7>');
  65.       F8 : Write('<F8>');
  66.       F9 : Write('<F9>');
  67.       F10 : Write('<F10>');
  68.       Shift_F1 : Write('<Shift_F1>');
  69.       Shift_F2 : Write('<Shift_F2>');
  70.       Shift_F3 : Write('<Shift_F3>');
  71.       Shift_F4 : Write('<Shift_F4>');
  72.       Shift_F5 : Write('<Shift_F5>');
  73.       Shift_F6 : Write('<Shift_F6>');
  74.       Shift_F7 : Write('<Shift_F7>');
  75.       Shift_F8 : Write('<Shift_F8>');
  76.       Shift_F9 : Write('<Shift_F9>');
  77.       Shift_F10 : Write('<Shift_F10>');
  78.       Alt_F1 : Write('<Alt_F1>');
  79.       Alt_F2 : Write('<Alt_F2>');
  80.       Alt_F3 : Write('<Alt_F3>');
  81.       Alt_F4 : Write('<Alt_F4>');
  82.       Alt_F5 : Write('<Alt_F5>');
  83.       Alt_F6 : Write('<Alt_F6>');
  84.       Alt_F7 : Write('<Alt_F7>');
  85.       Alt_F8 : Write('<Alt_F8>');
  86.       Alt_F9 : Write('<Alt_F9>');
  87.       Alt_F10 : Write('<Alt_F10>');
  88.       Ctrl_F1 : Write('<Ctrl_F1>');
  89.       Ctrl_F2 : Write('<Ctrl_F2>');
  90.       Ctrl_F3 : Write('<Ctrl_F3>');
  91.       Ctrl_F4 : Write('<Ctrl_F4>');
  92.       Ctrl_F5 : Write('<Ctrl_F5>');
  93.       Ctrl_F6 : Write('<Ctrl_F6>');
  94.       Ctrl_F7 : Write('<Ctrl_F7>');
  95.       Ctrl_F8 : Write('<Ctrl_F8>');
  96.       Ctrl_F9 : Write('<Ctrl_F9>');
  97.       Ctrl_F10 : Write('<Ctrl_F10>');
  98.     End;
  99.     If ASCIIKey Then Write(Chr(Ch)); {   If it's an ASCII key then display it }
  100.   Until Ch = $001B;                  { Continue program until ESC is pressed  }
  101. End.
  102.