salut j'utilise ce code pour recupérer les frappe du clavier et le prbléme c'est que si j'appuis sur n'importe quel touche (exemple 'A')le Tedit1.text recoit une serie de caractére genre AAAAAAAA selon la durer de l'appuis merci de me corriger le code (NB je debute encore j'ai 1 ou2 moi sniff)

procedure TForm1.Timer1Timer(Sender: TObject);
Var X:Byte;
Begin
For X:=0 to 255 do
    Begin
        If GetAsyncKeyState(X)<>0 then
         begin
                Edit1.Text:=Edit1.text + Chr(X);
        End;
   End;
End;

Il te faut ajouter un booleen, le mettre à faux lorsque tu as pressé une touche, et le remettre à vrai uniquement lors du relâchement de celle-ci.
Ensuite tu ne met à jour ton TEdit que si ce boolean vaut "vrai".

var
  IsDown : boolean = false;

procedure TForm1.Timer1Timer(Sender: TObject);
Var X:Byte;
Begin
For X:=0 to 255 do
    Begin
        If GetAsyncKeyState(X)<>0 and !IsDown then
         begin
                IsDown := true;
                Edit1.Text:=Edit1.text + Chr(X);
        End;
   End;
End;


Lorsque tu relâchera ton bouton (je ne me souviens plus du nom de la méthode), tu mettra IsDown  à "false";


Au fait, pourquoi veut-tu faire un KeyLogger ?

Salut, Sinon tu peux essayer avec les méthodes OnKeyDown et OnKeyUp de ton TEdit et tu ne sera pas comfronté a ce problème de touche appuyée longtemps. Bonne Prog

Réponse acceptée !
salut,

je ne sais pas quel est ton but., mais tu t'y prend assez mal. Utiliser un timer et un get getAsyncrone state c'est pas le plus propre. en plus, cela ne te permet pas de capturer les saisies plus rapide que ton timer ni déliminer les doubles. renseigne toi sur OnKeyDown et KeyPreview. si tu veux faire un keylogger, il te faut utiliser une autre approche.

reagrde ici:
http://www.delphifr.com/infomsg_ENREGISTE-TOUCHE-CLAVIER_935893.aspx#4

bonne lecture,

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

Pouvez vous m'expliquer le truc de OnKeypress et OnKeyUp ect ....
Merci d'avance :)

Je suppose que tu as lue attentivement l'aide. Je supppose aussi que tu as fait des essais. Je supose aussi que tu as lue/fait un exemple simple. Je suppose aussi que tu as essayer/étudier les sources de keylogger de ce site.

Donc, quel est ta question? ça marche pas? Tu comprend pas?Quelle partie de marche pas? Quel partie ne comprends-tu pas? Poste nous ton code d'essai qu'on te dise où est le problème.

...

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.