Bloquear teclado
14/02/2006
0
Bruno.barcellos
Posts
14/02/2006
Truck1n
vo procurar algo para vc..
:wink:
14/02/2006
Aroldo Zanela
function BlockInput(ABlockInput: boolean): Boolean; stdcall; external ´USER32.DLL´;
14/02/2006
Truck1n
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!
15/02/2006
Bruno.barcellos
15/02/2006
Ipc$
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.
13/03/2006
Khundalini
Sds,
Rubem Rocha
Manaus, AM
Clique aqui para fazer login e interagir na Comunidade :)
