Отключение Alt+Tab, Ctrl+Esc, Ctrl+Alt+Del

Тема в разделе "Delphi", создана пользователем WinHack, 27 ноя 2016.

  1. WinHack
    Если Вы хотите отключить эти сочетания клавиш, выполните процедуру SystemKeys. Когда Вы вызываете SystemKeys и переменной Disable присвоено значение True, клавиши будут заблокированы, если False - наоборот.

    Обратите внимание: код не работает под WinNT (XP, 2000)!

    Код:
    procedure SystemKeys(Disable: Boolean) ;
      var OldVal : LongInt;
    begin
      SystemParametersInfo(SPI_SCREENSAVERRUNNING,
                           Word(Disable), @OldVal, 0) ;
    end;