Bloquear tecla F12

Delphi

06/03/2014

Boa noite amigos,

o not de um amigo estar com problemas a tecla F12 e pressionada sozinha, como a teclar f12, ele baixou um programa o Desabe key que desativa qualquer tecla do teclado, e fica minimizado na bandeja o único problema eque ele e pago e tem limitações.
queria saber que rotina posso usar pra fazer um sistema que funcione parecido?.
Marcio Alves

Marcio Alves

Curtidas 0

Respostas

Luiz

Luiz

06/03/2014

cara, da uma olhada aqui:

https://www.devmedia.com.br/forum/bloquear-as-teclas-ctrl-tab/469174

essa unit unDisableWinKeys já desabilita algumas teclas do windows, ai você implementa o F12.
GOSTEI 0
Marcio Alves

Marcio Alves

06/03/2014

cara, da uma olhada aqui:

https://www.devmedia.com.br/forum/bloquear-as-teclas-ctrl-tab/469174

essa unit unDisableWinKeys já desabilita algumas teclas do windows, ai você implementa o F12.



estou testando agora amigo
GOSTEI 0
Marcio Alves

Marcio Alves

06/03/2014

cara, da uma olhada aqui:

https://www.devmedia.com.br/forum/bloquear-as-teclas-ctrl-tab/469174

essa unit unDisableWinKeys já desabilita algumas teclas do windows, ai você implementa o F12.



recrie o o unit e o form, coloquei o botao e chamei DisableWindowsUI()

sua unit e perfeita exatamente o que eu preciso, mas ainda nao conseguir implementar o f12!
GOSTEI 0
Marcio Alves

Marcio Alves

06/03/2014

Resolvido nota 10 brother
GOSTEI 0
Luiz

Luiz

06/03/2014

Maravilha cara !!

Que bom que deu certo!

Era só você colocar o F12 na function LowLevelKeyboardHook:

    if (pkbhs^.vkCode = VK_F12) then
    begin
      Result := 1;
      Exit;
    end;


E para desbloquear as teclas só chamar: EnableWindowsUI();
GOSTEI 0
POSTAR