Bloquear teclado
Fala Moçada do Delphi to precisnado de um help de vcs. eu queria saber como eu faço para travar totalmente o teclado durante uma determinada operação. agradeço as ajuda.
Bruno.barcellos
Curtidas 0
Respostas
Truck1n
14/02/2006
Pô colocava os dois tópicos em 1 só ...
vo procurar algo para vc..
:wink:
vo procurar algo para vc..
:wink:
GOSTEI 0
Aroldo Zanela
14/02/2006
Colega,
function BlockInput(ABlockInput: boolean): Boolean; stdcall; external ´USER32.DLL´;
GOSTEI 0
Truck1n
14/02/2006
ó achei isso no Google,
espero que ajude, fiz o teste e funciono!
Abraços!
implementation {Funcao de um dll do windows} Function BlockInput(fbLookIt:Boolean):Integer; stdcall; external ´user32.dll´; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin { no evento do botão habilita-se o timer e trava teclado e mouse;} timer1.Enabled:=true; BlockInput(true); end; procedure TForm1.Timer1Timer(Sender: TObject); begin { depois de decorrido o tempo etipulado no timer descongela o mouse e teclado;} timer1.Enabled:=false; BlockInput(false); end;
espero que ajude, fiz o teste e funciono!
Abraços!
GOSTEI 0
Bruno.barcellos
14/02/2006
VAleu mossada mas funciona em partes. eu preciso de travar todo o teclado e essa função não trava a sequencia de teclas ´Ctrl+Alt+Del´ se alguem souber me ajudem. obrigado
GOSTEI 0
Ipc$
14/02/2006
Se for NT/XP acho meio difícil travar a combinação Ctrl+Alt+Del pq ela é interceptada pelo Kernel do Windows antes de entrar na fila de msgs.
Certa vez lí num artigo de Microsoft que ela fez isso nos sistemas NT para evitar que um programa mal intencionado bloquear essa combinação e pedir a senha do sistema por exemplo.
Certa vez lí num artigo de Microsoft que ela fez isso nos sistemas NT para evitar que um programa mal intencionado bloquear essa combinação e pedir a senha do sistema por exemplo.
GOSTEI 0
Khundalini
14/02/2006
BlockInput() trava teclado e mouse!
Sds,
Rubem Rocha
Manaus, AM
Sds,
Rubem Rocha
Manaus, AM
GOSTEI 0