[Delphi] Bloquear Alt+Tab, Alt+Esc, Alt+F4

[mgbcrazy 0]

Oi gente, vou ensinar como bloquear e desbloquer Alt + Tab, Alt + Esc, Alt + F4:

 

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

 

No botão bloquear coloque:

 

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;

 

 

No botão desbloquear coloque:

procedure TForm1.btDesbloquearClick(Sender: TObject);

begin

UnRegisterHotkey(Handle, 1);

UnRegisterHotkey(Handle, 2);

UnRegisterHotkey(Handle, 3);

end;

 

 

Créditos: Mario Negrão

 

 

Utilizei o delphi 2010.

Abraço a todos.

[DragonBoss 8]

boa, bem legal...ele blokea somente 3 teclas ,e a partir do blokeo dessas 3 teclas, fikam inativo os comando alt+f4, alt+tab.. e tals..

 

Ha uma outra forma mais radical, uma funçao ke blokea o teclado todo... porem, pra kem ker evitar somente o fechamento do seu programa essa jah eh uma otima dica ^^

 

flw, abraçs

[mgbcrazy 0]

ãkkk porra blokiar o teclado todo eh malukisse T_T

mas tipow ter ate tem como fazer usando este proprio cod

 

eh so pegar todas as HotKeys e adicionar ali :x

 

:p

[~OwneR~ 8]

Bom, pra quem quer evitar que o programa seja fechado é só colocar CanClose:=false no onCloseQuery

[DragonBoss 8]

ãkkk porra blokiar o teclado todo eh malukisse T_T

mas tipow ter ate tem como fazer usando este proprio cod

 

eh so pegar todas as HotKeys e adicionar ali :x

 

pegar todas as hotkeys ? o.O'.. ai sim eh malukisse.. akdpaosdokpoa, mas eh possivel \o/

 

Bom, pra quem quer evitar que o programa seja fechado é só colocar CanClose:=false no onCloseQuery

 

ehh, admito, nem lembrava q isso existia.. akdpoaskdpoak

 

flw

[JoaoZiicka~ 0]

Valeu ae vo coloca aqui pro pai não poder fechar o jogo,asçkçkslaçklsakçl abraços.