Советы по Delphi

         

Недоступность комбинаций alt-tab и ctrl+esc II


Subfire советует:

    program small;

{автор Richard Leigh, Deakin Univesity 1997}

Dummy : integer;
begin

Dummy := 0;
{Отключаем ALT-TAB}
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);


{Отключаем CTRL-ALT-DEL}
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
end.

Великолепный способ!!! Хочу добавить, что он спасает не только от ALT-TAB, CTRL-ALT-DEL но и от CTRL-ESC и клавишы вызова меню из кнопки пуск (#91 - Win95 Keyb), что в сочетании с убиранием с экрана кнопки пуск создает классный эффект :) Распространенный вопрос: а как все назад-то вернуть? Вот ответ:

    //Включаем системную обработку
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, 0, 0); SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, 0, 0);

А вообще посмотрите Windows SDK SystemParametersInfo
Много интересного.... [000901]



Содержание раздела