[Back to KEYBOARD SWAG index]  [Back to Main SWAG index]  [Original]


Unit Toggle;
{$O+}

interface

 type
  BytePtr = ^Byte;

 const
  _ScrollLock = $10;
  _NumLock    = $20;
  _CapsLock   = $40;
  _InsertKey  = $80;

 procedure KeyboardToggle ( Mask : byte );

 implementation

 (* To use this procedure, just pass along the constants that you want
    toggled.  For example.  To toggle the Scroll Lock and Caps Lock you
    would call:
        KeyBoardToggle(_ScrollLock + _CapsLock);
 *)

 procedure KeyboardToggle ( Mask : byte );
 var
  KeyBoardStatus : BytePtr;
 begin
  KeyBoardStatus := Ptr($0000,$0417);
  KeyBoardStatus^ := KeyBoardStatus^ xor Mask;
 end;

 end.

[Back to KEYBOARD SWAG index]  [Back to Main SWAG index]  [Original]