Если вы хотите зло подшутить над глупым пользователем, а он оказывается не такой уж и глупый, и усиленно пытается переключиться на другую программу, вы можете круто его обломать:
Code: |
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; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!