Array
(
)

contador de teclas utilizando Keyboard Hook

pfloyd_fan
   - 10 out 2009

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

alanporto
   - 13 out 2009

Exemplos de implementação de Keyboard Hook:
[url=http]Ajuda do Delphi[/url]
e
[url=www.delphifaq.com/faq/delphi...API/f512.shtml]FAQ Delphi[/url]