Delphi - intercettatore tasti

Forum - Delphi - intercettatore tasti

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 0:38
Giovedì, 11/02/2010

Salve, programmo in Delphi 2010.

Sto cercando di realizzare un intercettatore di tasti, dove semplicemente in un form inserisco un TMemo e al "KeyDown" del form associo

if (chr(key) in ['A','a'] ) then
memo1.lines.text:= memo1.lines.text + 'a';

il problema è che quando sono su un altra finestra non li intercetta, come posso risolvere il promema di mantenerlo sempre vigile?

lorenzo (Normal User)
Guru

Messaggi: 1178
Iscritto: 15/04/2008

Postato alle 9:22
Giovedì, 11/02/2010

devi usare la funzione GetAsyncKeyState

http://msdn.microsoft.com/en-us/library/ms646293(VS.85).aspx

nessuno (Normal User)
Guru^2

Messaggi: 6403
Iscritto: 03/01/2010

Postato alle 10:22
Giovedì, 11/02/2010

Come per ogni keylogger ...

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 11:55
Giovedì, 11/02/2010

ma dove lo devo mettere?

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 12:19
Giovedì, 11/02/2010

ho provato a metterlo in un Ttimer

if (GetasyncKeyState(97)<>0) then memo1.lines.text:= memo1.lines.text +'a';
if (GetasyncKeyState(98)<>0) then memo1.lines.text:= memo1.lines.text +'b';
if (GetasyncKeyState(99)<>0) then memo1.lines.text:= memo1.lines.text +'c';

ma non succede niente!

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 18:38
Venerdì, 12/02/2010

problema risolto, appena posso posto la soluzione