DevMedia

contador de teclas utilizando Keyboard Hook

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


Respostas (1)

0
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]