procedure TurnSysKeysOff; var OldVal: LongInt; begin SystemParametersInfo (97, Word (True), @OldVal, 0); end; procedure TurnSysKeysBackOn; var OldVal: LongInt; begin SystemParametersInfo (97, Word (False), @OldVal, 0); end;