Недоступность комбинаций alt+tab и ctrl+esc. Вариант 2

Written on 29 Октября 2007. Posted in [Delphi] Система. Клавиатура

procedure TurnSysKeysOff;
var

OldVal : LongInt;

begin

SystemParametersInfo (97, Word (True), @OldVal, 0)

b>;

procedure TurnSysKeysBackOn;
var

OldVal : LongInt;

begin

SystemParametersInfo (97, Word (False), @OldVal, 0)

end;