Array
(
)

Bloquear teclado

Bruno.barcellos
   - 14 fev 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.


Truck1n
   - 14 fev 2006

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

vo procurar algo para vc..

:wink:


Aroldo Zanela
   - 14 fev 2006

Colega,

#Código


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



Truck1n
   - 14 fev 2006

ó achei isso no Google,

#Código

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!


Bruno.barcellos
   - 15 fev 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


Ipc$
   - 15 fev 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.


Khundalini
   - 13 mar 2006

BlockInput() trava teclado e mouse!

Sds,

Rubem Rocha
Manaus, AM