contador de teclas utilizando Keyboard Hook
10/10/2009
0
Estou tentando desenvolver para o meu aplicativo, um pequeno contador de teclas usando um Keyboard Hook. A procedure ´FormKeyDown´ funciona apenas quando o programa está aberto. Se eu minimizo ele, o contador não funciona. A procedure ´FormKeyDown´ está assim:
----------------------------------
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
cont:=cont+1;
label2.caption:= inttostr(cont);
--------------------------------
Como disse, a função conta as teclas digitadas apenas quando o programa está em primeiro plano. Se fica em background ou minimizado, as teclas digitadas não são contadas. Se alguém souber como fazer algo parecido, utilizando o Keyboard Hook, ficaria imensamente agradecido.
Saudações!!!
----------------------------------
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
cont:=cont+1;
label2.caption:= inttostr(cont);
--------------------------------
Como disse, a função conta as teclas digitadas apenas quando o programa está em primeiro plano. Se fica em background ou minimizado, as teclas digitadas não são contadas. Se alguém souber como fazer algo parecido, utilizando o Keyboard Hook, ficaria imensamente agradecido.
Saudações!!!
Pfloyd_fan
Curtir tópico
+ 0
Responder
Posts
13/10/2009
Alanporto
Exemplos de implementação de Keyboard Hook:
[url=http://delphi.about.com/od/windowsshellapi/a/keyboard_hook.htm]Ajuda do Delphi[/url]
e
[url=www.delphifaq.com/faq/delphi...API/f512.shtml]FAQ Delphi[/url]
[url=http://delphi.about.com/od/windowsshellapi/a/keyboard_hook.htm]Ajuda do Delphi[/url]
e
[url=www.delphifaq.com/faq/delphi...API/f512.shtml]FAQ Delphi[/url]
Responder
Clique aqui para fazer login e interagir na Comunidade :)