Советы по Delphi

         

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


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;
[000138]
советует:



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]



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