Buscar

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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 03/06/10
Por: Mario Negrão
Visualizada: 6997 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009