home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / BPC-DE10.ZIP / BIOSKEYS.PAS next >
Encoding:
Pascal/Delphi Source File  |  1995-09-05  |  4.0 KB  |  95 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 7.0                        }
  5. {       BIOS Key Codes                                  }
  6. {                                                       }
  7. {       Copyright (c) 1994,95 by Solar Designer         }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit BIOSKeys;
  12. {$R-,S-,Q-,I-,N-,E-}
  13. interface
  14.  
  15. const
  16.    kbEsc       = $011B;  kbAltSpace  = $0200;  kbCtrlIns   = $0400;
  17.    kbShiftIns  = $0500;  kbCtrlDel   = $0600;  kbShiftDel  = $0700;
  18.    kbBack      = $0E08;  kbCtrlBack  = $0E7F;  kbShiftTab  = $0F00;
  19.    kbTab       = $0F09;  kbAltQ      = $1000;  kbAltW      = $1100;
  20.    kbAltE      = $1200;  kbAltR      = $1300;  kbAltT      = $1400;
  21.    kbAltY      = $1500;  kbAltU      = $1600;  kbAltI      = $1700;
  22.    kbAltO      = $1800;  kbAltP      = $1900;  kbCtrlEnter = $1C0A;
  23.    kbEnter     = $1C0D;  kbAltA      = $1E00;  kbAltS      = $1F00;
  24.    kbAltD      = $2000;  kbAltF      = $2100;  kbAltG      = $2200;
  25.    kbAltH      = $2300;  kbAltJ      = $2400;  kbAltK      = $2500;
  26.    kbAltL      = $2600;  kbAltZ      = $2C00;  kbAltX      = $2D00;
  27.    kbAltC      = $2E00;  kbAltV      = $2F00;  kbAltB      = $3000;
  28.    kbAltN      = $3100;  kbAltM      = $3200;  kbF1        = $3B00;
  29.    kbF2        = $3C00;  kbF3        = $3D00;  kbF4        = $3E00;
  30.    kbF5        = $3F00;  kbF6        = $4000;  kbF7        = $4100;
  31.    kbF8        = $4200;  kbF9        = $4300;  kbF10       = $4400;
  32.    kbHome      = $4700;  kbUp        = $4800;  kbPgUp      = $4900;
  33.    kbGrayMinus = $4A2D;  kbLeft      = $4B00;  kbRight     = $4D00;
  34.    kbGrayPlus  = $4E2B;  kbEnd       = $4F00;  kbDown      = $5000;
  35.    kbPgDn      = $5100;  kbIns       = $5200;  kbDel       = $5300;
  36.    kbShiftF1   = $5400;  kbShiftF2   = $5500;  kbShiftF3   = $5600;
  37.    kbShiftF4   = $5700;  kbShiftF5   = $5800;  kbShiftF6   = $5900;
  38.    kbShiftF7   = $5A00;  kbShiftF8   = $5B00;  kbShiftF9   = $5C00;
  39.    kbShiftF10  = $5D00;  kbCtrlF1    = $5E00;  kbCtrlF2    = $5F00;
  40.    kbCtrlF3    = $6000;  kbCtrlF4    = $6100;  kbCtrlF5    = $6200;
  41.    kbCtrlF6    = $6300;  kbCtrlF7    = $6400;  kbCtrlF8    = $6500;
  42.    kbCtrlF9    = $6600;  kbCtrlF10   = $6700;  kbAltF1     = $6800;
  43.    kbAltF2     = $6900;  kbAltF3     = $6A00;  kbAltF4     = $6B00;
  44.    kbAltF5     = $6C00;  kbAltF6     = $6D00;  kbAltF7     = $6E00;
  45.    kbAltF8     = $6F00;  kbAltF9     = $7000;  kbAltF10    = $7100;
  46.    kbCtrlPrtSc = $7200;  kbCtrlLeft  = $7300;  kbCtrlRight = $7400;
  47.    kbCtrlEnd   = $7500;  kbCtrlPgDn  = $7600;  kbCtrlHome  = $7700;
  48.    kbAlt1      = $7800;  kbAlt2      = $7900;  kbAlt3      = $7A00;
  49.    kbAlt4      = $7B00;  kbAlt5      = $7C00;  kbAlt6      = $7D00;
  50.    kbAlt7      = $7E00;  kbAlt8      = $7F00;  kbAlt9      = $8000;
  51.    kbAlt0      = $8100;  kbAltMinus  = $8200;  kbAltEqual  = $8300;
  52.    kbCtrlPgUp  = $8400;  kbAltBack   = $0800;  kbNoKey     = $0000;
  53.  
  54.    kbSpace     = $3920;
  55.    kbCtrlA=      kbAltA+1;
  56.    kbCtrlB=      kbAltB+2;
  57.    kbCtrlC=      kbAltC+3;
  58.    kbCtrlD=      kbAltD+4;
  59.    kbCtrlE=      kbAltE+5;
  60.    kbCtrlF=      kbAltF+6;
  61.    kbCtrlG=      kbAltG+7;
  62.    kbCtrlH=      kbAltH+8;
  63.    kbCtrlI=      kbAltI+9;
  64.    kbCtrlJ=      kbAltJ+10;
  65.    kbCtrlK=      kbAltK+11;
  66.    kbCtrlL=      kbAltL+12;
  67.    kbCtrlM=      kbAltM+13;
  68.    kbCtrlN=      kbAltN+14;
  69.    kbCtrlO=      kbAltO+15;
  70.    kbCtrlP=      kbAltP+16;
  71.    kbCtrlQ=      kbAltQ+17;
  72.    kbCtrlR=      kbAltR+18;
  73.    kbCtrlS=      kbAltS+19;
  74.    kbCtrlT=      kbAltT+20;
  75.    kbCtrlU=      kbAltU+21;
  76.    kbCtrlV=      kbAltV+22;
  77.    kbCtrlW=      kbAltW+23;
  78.    kbCtrlX=      kbAltX+24;
  79.    kbCtrlY=      kbAltY+25;
  80.    kbCtrlZ=      kbAltZ+26;
  81.  
  82.  { Keyboard state and shift masks }
  83.  
  84.    kbRightShift  = $0001;
  85.    kbLeftShift   = $0002;
  86.    kbCtrlShift   = $0004;
  87.    kbAltShift    = $0008;
  88.    kbScrollState = $0010;
  89.    kbNumState    = $0020;
  90.    kbCapsState   = $0040;
  91.    kbInsState    = $0080;
  92.  
  93. implementation
  94. end.
  95.