Bloquear teclado

Delphi

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

Bruno.barcellos

Curtidas 0

Respostas

Truck1n

Truck1n

14/02/2006

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

vo procurar algo para vc..

:wink:


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

14/02/2006

Colega,

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



GOSTEI 0
Truck1n

Truck1n

14/02/2006

ó 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!


GOSTEI 0
Bruno.barcellos

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$

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.


GOSTEI 0
Khundalini

Khundalini

14/02/2006

BlockInput() trava teclado e mouse!

Sds,

Rubem Rocha
Manaus, AM


GOSTEI 0
POSTAR