Bloquear teclado

14/02/2006

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

Respostas

14/02/2006

Truck1n

Pô colocava os dois tópicos em 1 só ...

vo procurar algo para vc..

:wink:


Responder Citar

14/02/2006

Aroldo Zanela

Colega,

function BlockInput(ABlockInput: boolean): Boolean; stdcall; 
  external ´USER32.DLL´;



Responder Citar

14/02/2006

Truck1n

ó achei isso no Google,

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!


Responder Citar

15/02/2006

Bruno.barcellos

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


Responder Citar

15/02/2006

Ipc$

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.


Responder Citar

13/03/2006

Khundalini

BlockInput() trava teclado e mouse!

Sds,

Rubem Rocha
Manaus, AM


Responder Citar