Buscar por:

Bloquear Alt+Tab, Alt+Esc, Alt+F4

Código

Coloque dois Buttons , nomeie como btBloquear e btDesbloquear, insira os códigos conforme segue.

Utilizei o delhi 2010.

Abraço a todos.

procedure TForm1.btBloquearClick(Sender: TObject);

begin

   RegisterHotkey(form1.Handle, 1, MOD_ALT , VK_ESCAPE);

   RegisterHotkey(form1.Handle, 2, MOD_ALT , VK_f4);

   RegisterHotkey(form1.Handle, 3, MOD_ALT , VK_TAB);

end;

procedure TForm1.btDesbloquearClick(Sender: TObject);

begin

   UnRegisterHotkey(Handle, 1);

   UnRegisterHotkey(Handle, 2);

   UnRegisterHotkey(Handle, 3);

end;