Как отключить комбинацию Alt+Tab
Falk0ner, вс, 06/07/2008 - 15:34.
Как отключить комбинацию Alt+Tab Если вы хотите зло подшутить над глупым пользователем, а он оказывается не такой уж и глупый, и усиленно пытается переключиться на другую программу, вы можете круто его обломать:
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;
var
OldVal: LongInt;
begin
SystemParametersInfo (97, Word (True), @OldVal, 0);
end;
procedure TurnSysKeysBackOn;
var
OldVal: LongInt;
begin
SystemParametersInfo (97, Word (False), @OldVal, 0);
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий