Встречаются программист с непрограммистом.
- Вчера прямо на клаве заснул.
- Не может быть! Как к этому отнеслась Клава?
- А никак! А вот теперь у меня вся морда в квадратиках!
Если вы хотите зло подшутить над глупым пользователем, а он оказывается не такой уж и глупый, и усиленно пытается переключиться на другую программу, вы можете круто его обломать:
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;
Статья Как отключить комбинацию Alt+Tab раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.
