Как отключить комбинацию Alt+Tab |
Previous Top Next |
Если вы хотите зло подшутить над глупым пользователем, а он оказывается не такой уж и глупый, и усиленно пытается переключиться на другую программу, вы можете круто его обломать:
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; |
©Drkb::01480
DelphiWorld 6.0