Keylogger und diakritische Zeichen

[smallsmoker]

hm habe jetzt ne nette funktion der schweizer gefunden die aktuelle Fenster Caption herausfinden
nur weiß ich nicht genau wie ich dies in das LogKeyPress event einfügen soll ...
er soll ja nur in den log schreiben wenn sich das fenster ändert ..
momentan sieht der inhalt des events bei mir so aus:

Delphi-Quellcode:

procedure TMainForm.LogKeyPress(Sender: TObject; Key: Char);
var aktuellesfensterhandle : integer;
begin
if (aktuellesfensterhandle <> GetForegroundWindow) then
memo1.Lines.Add(activecaption);
Memo1.SelText:= Key;
aktuellesfensterhandle := GetForegroundWindow;
end;

was leider dazü führt bsp.:

Zitat:

Ausführen
h
Ausführena
Ausführenl
Ausführenl
Ausführeno
Unbenannt - Editorh
Unbenannt - Editora
Unbenannt - Editorl
Unbenannt - Editorl
Unbenannt - Editoro

was eigentlich so aussehen sollte.:

Ausführen
hallo

Unbenannt - Editor
hallo

ändert sich ständig das fenster im vordergrund ? oder hab ich da nen denkfehler ..

mfg smallmoker