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