home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PASWIZ14.ZIP / SOURCE.ZIP / KEYBOARD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-02-20  |  2.6 KB  |  102 lines
  1. {   +----------------------------------------------------------------------+
  2.     |                                                                      |
  3.     |        PasWiz  Copyright (c) 1990-1993  Thomas G. Hanlin III         |
  4.     |             3544 E. Southern Ave. #104,  Mesa, AZ 85204              |
  5.     |                                                                      |
  6.     |                     The Pascal Wizard's Library                      |
  7.     |                                                                      |
  8.     +----------------------------------------------------------------------+
  9.  
  10.  
  11.  
  12. Keyboard:
  13.  
  14.    This unit allows you to control the keyboard and to read various
  15.    information from it.
  16.  
  17. }
  18.  
  19.  
  20.  
  21. UNIT Keyboard;
  22.  
  23.  
  24.  
  25. INTERFACE
  26.  
  27.  
  28.  
  29.    FUNCTION AltPress: Boolean;
  30.    FUNCTION CapsOn: Boolean;
  31.    FUNCTION CtrlPress: Boolean;
  32.    FUNCTION InsertOn: Boolean;
  33.    FUNCTION LAltPress: Boolean;
  34.    FUNCTION LCtrlPress: Boolean;
  35.    FUNCTION LShiftPress: Boolean;
  36.    FUNCTION NumOn: Boolean;
  37.    FUNCTION RAltPress: Boolean;
  38.    FUNCTION RCtrlPress: Boolean;
  39.    FUNCTION RShiftPress: Boolean;
  40.    FUNCTION ScrollOn: Boolean;
  41.    FUNCTION ShiftPress: Boolean;
  42.  
  43.    PROCEDURE ClearKbd;
  44.    PROCEDURE PrintScreen;
  45.    PROCEDURE SetCaps (CapsLock: Boolean);
  46.    PROCEDURE SetEnhKbd (Enhanced: Boolean);
  47.    PROCEDURE SetInsert (Ins: Boolean);
  48.    PROCEDURE SetNum (NumLock: Boolean);
  49.    PROCEDURE SetPrtSc (PrtScOn: Boolean);
  50.    PROCEDURE SetScroll (ScrollLock: Boolean);
  51.    PROCEDURE SpeedKey (RepDelay, RepRate: Integer);
  52.    PROCEDURE TypeIn (Keys: String);
  53.  
  54.  
  55.  
  56. { --------------------------------------------------------------------------- }
  57.  
  58.  
  59.  
  60. IMPLEMENTATION
  61.  
  62.  
  63.  
  64. {$F+}
  65.  
  66. { the routines are actually in assembly language }
  67.  
  68.    FUNCTION AltPress; external;
  69.    FUNCTION CapsOn; external;
  70.    FUNCTION CtrlPress; external;
  71.    FUNCTION InsertOn; external;
  72.    FUNCTION LAltPress; external;
  73.    FUNCTION LCtrlPress; external;
  74.    FUNCTION LShiftPress; external;
  75.    FUNCTION NumOn; external;
  76.    FUNCTION RAltPress; external;
  77.    FUNCTION RCtrlPress; external;
  78.    FUNCTION RShiftPress; external;
  79.    FUNCTION ScrollOn; external;
  80.    FUNCTION ShiftPress; external;
  81.  
  82.    PROCEDURE ClearKbd; external;
  83.    PROCEDURE PrintScreen; external;
  84.    PROCEDURE SetCaps; external;
  85.    PROCEDURE SetEnhKbd; external;
  86.    PROCEDURE SetInsert; external;
  87.    PROCEDURE SetNum; external;
  88.    PROCEDURE SetPrtSc; external;
  89.    PROCEDURE SetScroll; external;
  90.    PROCEDURE SpeedKey; external;
  91.    PROCEDURE TypeIn; external;
  92.  
  93.  
  94.  
  95. {$L KBD}
  96.  
  97.  
  98.  
  99. { ----------------------- initialization code --------------------------- }
  100. BEGIN
  101. END.
  102.